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;  
 

相关阅读 >>

Delphi回调函数高级应用

Delphi memo 文本列合并

Delphi windows 编程[11] - wm_size 消息

webbrowser部分用法

Delphi -- 农历算法单元

Delphi tmsweb core webhttprequest1提交json数据

Delphi 获取打印机纸型的例子

Delphi 根据进程名称获取进程号

Delphi sysem.json 链式写法

Delphi出现 no mapping for the unicode character exists in the target multi-byte code page 处理方法

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

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