本文整理自网络，侵删。
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方式上传文件操作的，实验代码如下：
uses System.Net.Mime, // 用于支持 TMultipartFormData
System.Net.HttpClientComponent; // 用于支持 TNetHTTPClient
procedure TfrmMain.Button1Click(Sender: TObject);
var
cHttp: TNetHTTPClient;
vData: TMultipartFormData;
vRsp: TStringStream;
begin
if OpenDialog1.Execute then
begin
cHttp := TNetHTTPClient.Create(nil);
vData := TMultipartFormData.Create;
vRsp := TStringStream.Create('', TEncoding.GetEncoding(65001));
try
vData.AddFile('fname', OpenDialog1.FileName);
with cHttp 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
on E: Exception do
// Error sending data: (12002) 操作超时.
// Error receiving data: (12002) 操作超时
if Copy(E.Message, 1, Pos(':', E.Message) - 1) = 'Error sending data'
then
Memo1.Lines.Add('Error:连接失败！')
else if Copy(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官方没有提供数据发送的定义，所以无法实现上传进度的显示，但针对下载这块，又提供了，所以只能显示下载进度。
https://www.offeu.com/www/index_id_158.html
相关阅读 >>
Delphi报警声音 beep、messagebeep 和 windows.beep
更多相关阅读请进入《Delphi》频道 >>
