TNetHttpClient multipart/form-data

TNetHttpClient multipart/form-data

multipart/form-data 是HTTP的一项国际标准，专门用于传输二进制大数据文件。

因为是国标，所以主流的开发语言都支持，因此可以用于REST API开发。

DELPHI来说，INDY、TNetHttpClient都支持multipart/form-data。

multipart/form-data不仅可以上传文件，也可以用来传输“键值对”类型的参数列表。

对于HTTP服务器来说，完全可以通过multipart/form-data来定义远程方法的接口。

uses System.Net.Mime;

var NetHTTPClient1: TNetHTTPClient;

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42

procedure TForm1.Button1Click(Sender: TObject); var   http: TNetHTTPClient;   parts: TMultipartFormData;   resp: TStringStream; begin   if OpenDialog1.Execute then   begin     http := TNetHTTPClient.Create(nil);     parts := TMultipartFormData.Create;     resp := TStringStream.Create('', TEncoding.GetEncoding(65001));     try<br>      parts.AddField('fieldname', 'fieldvalue');       parts.AddFile('fname', OpenDialog1.FileName);       http.ConnectionTimeout := 2000; // 2秒       http.ResponseTimeout := 10000; // 10秒       http.AcceptCharSet := 'utf-8';       http.AcceptEncoding := '65001';       http.AcceptLanguage := 'zh-CN';       http.ContentType := 'multipart/form-data';       http.UserAgent := 'Embarcadero URI Client/1.0';       try         Memo1.Lines.Add('尝试上传文件 ' + OpenDialog1.FileName);         http.Post('https://www.offeu.com/upfile', parts, resp);         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(resp.DataString);     finally       http.Free;       resp.Free;       parts.Free;     end;   end; end;