Delphi如何实现multipart/form-data方式上传文件呢？以前我们是使用indy，也就是用idHttp加TIdMultiPartFormDataStream来实现；本着研究精神，今天看了一下TNetHttpClient的定义，发现有个function Post(const AURL: string; const ASource: TMultipartFormData; const AResponseContent: TStream = nil; const AHeaders: TNetHeaders = nil): IHTTPResponse; overload;的定义，然后官网查看了一下TMultipartFormData的说明，确认TNetHttpClient是可以独立完成formdata方式上传文件操作的，实验代码如下：
usesSystem.Net.Mime, // 用于支持 TMultipartFormData
System.Net.HttpClientComponent; // 用于支持 TNetHTTPClient
procedureTfrmMain.Button1Click(Sender: TObject);
var
cHttp: TNetHTTPClient;
vData: TMultipartFormData;
vRsp: TStringStream;
begin
ifOpenDialog1.Execute then
begin
cHttp := TNetHTTPClient.Create(nil);
vData := TMultipartFormData.Create;
vRsp := TStringStream.Create('', TEncoding.GetEncoding(65001));
try
vData.AddFile('fname', OpenDialog1.FileName);
withcHttp do
begin
ConnectionTimeout := 2000; // 2秒
ResponseTimeout := 10000; // 10秒
AcceptCharSet := 'utf-8';
AcceptEncoding := '65001';
AcceptLanguage := 'zh-CN';
ContentType := 'multipart/form-data';
UserAgent := 'Embarcadero URI Client/1.0';
try
Memo1.Lines.Add('尝试上传文件 '+ OpenDialog1.FileName);
Post('https://www.offeu.com/upfile', vData, vRsp);
Application.ProcessMessages;
except
onE: Exception do
// Error sending data: (12002) 操作超时.
// Error receiving data: (12002) 操作超时
ifCopy(E.Message, 1, Pos(':', E.Message) - 1) = 'Error sending data'
then
Memo1.Lines.Add('Error:连接失败！')
elseifCopy(E.Message, 1, Pos(':', E.Message) - 1) = 'Error receiving data'
then
Memo1.Lines.Add('Error:接收失败，请延长接收超时时间！')
else
Memo1.Lines.Add('Error:'+ E.Message);
end;
Memo1.Lines.Add(vRsp.DataString);
end;
finally
cHttp.Free;
vRsp.Free;
vData.Free;
end;
end;
end;
我拿自己的网站的formdata接口进行了测试，上传文件很稳定。
不过，有个问题，因为emb官方没有提供数据发送的定义，所以无法实现上传进度的显示，但针对下载这块，又提供了，所以只能显示下载进度。