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

领测软件测试网

    pos2 := instr(’"’,content,pos1);
    FFilename := copy(content,pos1,pos2-pos1);
  end;

  pos1 := instr(#13#10#13#10,content,pos2+1)+4;
  FormValue := copy(content,pos1,length(content)-pos1);

  if isfile then
  begin
    FFileData := FormValue;
    //查找文件类型信息
    pos2 := instr(’Content-Type: ’,content,pos2+1);
    if pos2 <> 0 then
    begin
      pos2 := pos2 + 14;
      FFileType := copy(content,pos2,pos1-4-pos2);
    end;
  end
  else
  begin
  FFormInfo.add(FormName+’=’+FormValue);
  end;

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