delphi请求http接口并上传附件
实现附件的上传:需要使用TIdMultiPartFormDataStream控件,
uses
IdMultipartFormData;
例子:
procedure TClientForm.Button42Click(Sender: TObject);
var paramStream: TIdMultiPartFormDataStream;
vResponse: TStringStream;
filename, vres: string;
vList: TStringList;
jsonstr: string;
begin
paramStream := TIdMultiPartFormDataStream.Create;
vResponse := TStringStream.Create('');
vList := TStringList.Create;
//传递普通参数
paramStream.AddFormField('fun', 'ADD_ATTA');
paramStream.AddFormField('PROCESS_ID', '4');
paramStream.AddFormField('user_id', '2');
paramStream.AddFormField('name', '2');
paramStream.AddFormField('attachment_memo', '2');
paramStream.AddFormField('filename', 'C:\1.doc');
//上传文件需要用的addFile属性
filename := 'C:\1.doc';//文件路径
paramStream.AddFile('file', filename, GetMIMETypeFromFile(filename));
IdHTTP1.Post('http://localhost:8089/ENGINEER?', paramStream, vResponse);
vres := (vResponse.DataString); //Utf8ToAnsi
Memo1.Text := vres;
// ShowMessage(vres);
end;
最新文章
- 关于GDB使用
- 安装YouCompleteMe
- js只需5分钟创建一个跨三大平台纯原生APP
- js调用soapWebService服务
- c#三层架构登陆实例
- loj 1025(记忆化搜索)
- 实战Django:官方实例Part4
- oracle-行转列
- [PWA] 14. Loop cursor
- git操作流程
- c#鼠标点击TextBox控件后清空默认字体
- Solr服务在Linux上的搭建
- maven编译的时候跳过test
- Linux 虚拟内存机制
- (动态规划)免费馅饼--hdu--1176
- 让外部网络访问K8S service的四种方式
- Debugging Java Native Memory Leaks
- 怎么安装Docker CE 17( Centos 7)
- vue+element-ui中的图片获取与上传
- bootstrap源码学习与示例:bootstrap-tab