使用 multipart/form-data idhttp delphi 将图像上传到网站

Question

我需要帮助来解决使用 IdHTTP 将照片上传到 wildberries.ru 的问题。从网站加载图片时，发布数据如下所示：

------WebKitFormBoundaryCpJAFY6AlIHK7dZt
Content-Disposition: form-data; name="nmId"

13927988
------WebKitFormBoundaryCpJAFY6AlIHK7dZt
Content-Disposition: form-data; name="photos"; filename="13927988-2.jpg"
Content-Type: image/jpeg

{here these photos are most likely}
------WebKitFormBoundaryCpJAFY6AlIHK7dZt--

无法弄清楚如何通过 IdHTTP 传输数据。我正在使用 RAD Studio 10.3.1 Rio，Indy 10。

Answer 1

TIdHTTP 有一个重载的Post() 方法，该方法将TIdMultipartFormDataStream 作为输入，而该方法又具有AddFormField() 和AddFile() 方法。例如：

uses
  ..., IdHTTP, IdSSLOpenSSL, IdMultipartFormData;

var
  HTTP: TIdHTTP;
  SSL: TIdSSLIOHandlerSocketOpenSSL;
begin
  HTTP := TIdHTTP.Create;
  try
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(HTTP);
    SSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
    HTTP.IOHandler := SSL;

    Data := TIdMultipartFormDataStream.Create;
    try
      with Data.AddFormField(‘nmId’, ‘13927988’) do
      begin
        ContentType := '';
        ContentTransfer := '';
      end;
      with Data.AddFile(‘photos’, ‘full path to\13927988-2.jpg’, ‘image/jpeg’) do
        ContentTransfer := '';
      HTTP.Post(‘https://www.wildberries.ru/...’, Data);
    finally
      Data.Free;
    end;
  finally
    HTTP.Free;
  end;
end;