indy控件上传、下载文件

最新推荐文章于 2020-06-30 16:19:48 发布

jgwei

最新推荐文章于 2020-06-30 16:19:48 发布

阅读量2.4k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/jgwei/article/details/9341323

版权

delphi 专栏收录该内容

8 篇文章 0 订阅

订阅专栏

下载

var
  DownLoadFile: TMemoryStream;
  url: string;
  ExcelApp: Variant;
  tmpfile: TStrings;
  tmpurl: string;
  index: integer;
  param2: string;
  
begin

   url := edit1.Text;
//  index := pos('/business/storemanager/', param2);
//  tmpurl := copy(param2, 1, index);
//  url := tmpurl + StringReplace(param1, '../../../../', '', [rfReplaceAll, rfIgnoreCase]);;  
  //  url := url + param2;
  DownLoadFile := TMemoryStream.Create();
  IdHTTP1.Get(url, DownLoadFile);
  if FileExists('c:\rfid_tmp_.txt') then
    DeleteFile('c:\rfid_tmp_.txt');
  DownLoadFile.SaveToFile('c:\rfid_tmp_.txt');
  DownLoadFile.Free;

上传

var
  AValues: TStringList;
  PostStream: TIdMultiPartFormDataStream;
  ResponseStream: TStringStream;
  sURL: string;
begin
  sURL:= 'fileupload?fileid=';
  AValues := TStringList.Create;

//  AValues.Values['usr'] := '"John Doe" ';
//  AValues.Values['grp'] := 'public';
  AValues.Values['file'] := 'c:\yfrfid_tmp_.txt';

  PostStream:= TIdMultiPartFormDataStream.Create;
  ResponseStream := TStringStream.Create('');

  try
//      PostStream.AddFormField('usr', AValues.Values['usr']);//等同于html中的<input type="text" value="">
//      PostStream.AddFormField('grp', AValues.Values['grp']);

      PostStream.AddFile('file', AValues.Values['file'], GetMIMETypeFromFile(AValues.Values['file']));//类似html中的<input type="file" value="">

      IdHTTP1.Request.ContentType := PostStream.RequestContentType;
      IdHTTP1.Post(sURL, PostStream, ResponseStream);
  finally
     memo1.Text := ResponseStream.DataString;
      ResponseStream.Free;
      PostStream.Free;
      AValues.Free;
  end;
end;