如何用Delphi 6开发ASP上传组件详解

领测软件测试网

    FContentData := FContentData + chr(byte(tmpvar[i]));
  end;

  pos1 := pos(#13#10,FContentData);
  FDelimeter := copy(FContentData,1,pos1+1);
  DeliCount := length(FDelimeter);
  lastpos := 1;

  pos1:=0;
  while pos2>=pos1 do
  begin
    pos1 := instr(FDelimeter,FContentData,lastpos);
    if pos1 = 0 then Break;
    pos1 := pos1 + DeliCount;
    pos2 := instr(FDelimeter,FContentData,pos1)-1;
    AnalyFormData(copy(FContentData,pos1,pos2-pos1-1));
    lastpos := pos2;
  end;
end;
 


前面说过，OnStartPage方法是Delphi自动生成的，在装载页面时发生。在这个方法中，我们完成一些初始化的任务：读取表单的原始数据，解析表单中的域，并存入相应的属性中，以备调用。 

文章来源于领测软件测试网 https://www.ltesting.net/