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;