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 xe 下打开内存泄漏调试功能

Delphi的format使用总结

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi 调用viewer-windows10 图像浏览器

Delphi结构体指针的使用

Delphi中exit,abort,break,continue的区别介绍

Delphi tdragimage v0.1 Delphi 图片拖拽组件 带有加速度 碰撞效果

Delphi (vcl及fmx[firemonkey])启动时的欢迎窗口实现代码

Delphi image 直接加载资源文件

Delphi 在桌面中嵌入窗体

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

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