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

领测软件测试网

    procedure AnalyFormData(content:string);
  end;
 


下面我们来一一分析这些成员的具体实现。 

procedure Tupfile.OnStartPage(const AScriptingContext: IUnknown);
var
  AOleVariant : OleVariant;
  tmpvar : OleVariant;
  contentlength : integer;
  i,DeliCount,pos1,pos2,lastpos : integer;
  FDelimeter : string;
begin
  inherited OnStartPage(AScriptingContext);
  FFormInfo := TStringList.Create;

  contentlength := Request.TotalBytes;
  AOleVariant := contentlength;
  tmpvar := Request.BinaryRead(AOleVariant);
  for i := 1 to contentlength -1 do
  begin

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