Delphi调用Http接口上传文件

本文整理自网络，侵删。

 
SS := TStringStream.Create('', TEncoding.UTF8);  
HttpClient := TIdHttp.Create();  
MutPartForm := TIdMultiPartFormDataStream.Create;  
try  
  MutPartForm.AddFormField('unitCode', UnitCode);  
  MutPartForm.AddFormField('regCode', RegCode);  
  MutPartForm.AddFile('data', 'data.zip', GetMIMETypeFromFile('data.zip'));  
  HttpClient.Post(Url, MutPartForm, SS);  
  response := SS.DataString;  
finally  
  SS.Free;  
  HttpClient.Free;  
  MutPartForm.Free;  
end;  
 

相关阅读 >>

tidhttpresponseinfo 中文乱码问题解决

Delphi的常用条件编译指令

Delphi 延时程序

Delphi二值图像膨胀算法

Delphi 控制台程序加图标方法

Delphi 如何设置热键

Delphi android实例-红外线操作(xe10.2+小米5)

Delphi 比较俩组ip地址是否一样

Delphi 鼠标跟随代码

Delphixe win7、mssql2000、udl

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi调用Http接口上传文件