delphi请求http接口并上传附件

最新推荐文章于 2022-05-30 15:48:31 发布

weixin_30709061

最新推荐文章于 2022-05-30 15:48:31 发布

阅读量1k

点赞数

文章标签： php

原文链接：http://www.cnblogs.com/xwgcxk/p/7239654.html

版权

实现附件的上传：需要使用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;

转载于:https://www.cnblogs.com/xwgcxk/p/7239654.html