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;

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
      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;