delphi - 使用 indy/delphi 组件通过 https 发布文件

Question

我正在尝试使用delphi中的Indy组件通过https上传文件。这是我的代码:

HTTP := TIdHTTP.Create(Self)
IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create;   

HTTP.Request.Host           := RemoteHost;
HTTP.Request.Connection     := 'keep-alive';
HTTP.Request.Accept         := 'multipart/mixed';

HTTP.IOHandler              := IOHandler;
HTTP.ConnectTimeout         := 0;
HTTP.ReadTimeout            := 0;


//### CREATE FILE TO SEND           
TestStream := TIdMultipartFormDataStream.Create;
try

  //### POST PARAMETERS
  TestStream.AddFormField('ReceiverId','LOOPTEST');
  TestStream.AddFormField('FileType','LOOPBACK');

  //### ADD FILE        
  TestStream.AddFile('filename','C:\PRUEBA.txt',GetMIMETypeFromFile('C:\PRUEBA.txt'));

  HTTP.Request.ContentType := TestStream.RequestContentType;


  HTTP.Post('https://www.remotehost.com/controller?function=submitfile',TestStream, Resultado);


  memResultado.Lines.Add(Resultado.DataString);


finally
    FreeAndNil(TestStream);
    FreeAndNil(HTTP);
    FreeAndNil(IOHandler);
end;

服务器未发送任何错误。只是文件没有上传。我的代码有问题吗？

我花了两天时间试图让它发挥作用:S。

任何帮助将不胜感激。我正在使用 Delphi XE 和 Indy 版本 10.1.1。

更新:我使用了 Indy TIdLog 组件，这是结果。我找不到任何奇怪的地方:

Stat Connected.
Sent 05/09/2013 12:52:00 p.m.: POST /servlet/controller HTTP/1.1<EOL>Content-Type: application/x-www-form-urlencoded<EOL>Content-Length: 47<EOL>Host: ebmx.extra.client.com<EOL>Accept: text/html, /*<EOL>Accept-Encoding: identity<EOL>User-Agent: Mozilla/3.0 (compatible; Indy Library)<EOL><EOL>
Sent 05/09/2013 12:52:00 p.m.: function=login&username=******&password=******
Recv 05/09/2013 12:52:01 p.m.: HTTP/1.1 200 OK<EOL>Server: Sun-ONE-Web-Server/6.1<EOL>Date: Thu, 05 Sep 2013 17:51:22 GMT<EOL>Content-type: text/html<EOL>Set-cookie: JSESSIONID=8035B4F90EBA1A337E4923520558E5DC;Path=/servlet<EOL>Transfer-encoding: chunked<EOL><EOL>001a<EOL>Success! Member Type is 0<LF><EOL>
Recv 05/09/2013 12:52:01 p.m.: 0<EOL><EOL>
Stat Disconnected.

Stat Connected.
Sent 05/09/2013 12:52:11 p.m.: POST /servlet/controller?function=submitfile HTTP/1.1<EOL>Content-Type: multipart/form-data; boundary=--------090513125207913<EOL>Content-Length: 525<EOL>Host: ebmx.extra.client.com<EOL>Accept: text/html, */*<EOL>Accept-Encoding: identity<EOL>User-Agent: Mozilla/3.0 (compatible; Indy Library)<EOL>Cookie: JSESSIONID=8035B4F90EBA1A337E4923520558E5DC<EOL>Cookie2: $Version="1"<EOL><EOL>
Sent 05/09/2013 12:52:11 p.m.: ----------090513125207913<EOL>Content-Disposition: form-data; name="ReceiverId"<EOL>Content-Type: text/plain<EOL>Content-Transfer-Encoding: quoted-printable<EOL><EOL>LOOPTEST<EOL>----------090513125207913<EOL>Content-Dis‌​position: form-data; name="FileType"<EOL>Content-Type: text/plain<EOL>Content-Transfer-Encoding: quoted-printable<EOL><EOL>LOOPBACK<EOL>----------090513125207913<EOL>Content-Dis‌​position: form-data; name="filename"; filename="PRUEBA.txt"<EOL>Content-Type: text/plain<EOL>Content-Transfer-Encoding: binary<EOL><EOL>UKELELE 2013<EOL>----------090513125207913--<EOL>
Recv 05/09/2013 12:52:15 p.m.: HTTP/1.1 200 OK<EOL>Server: Sun-ONE-Web-Server/6.1<EOL>Date: Thu, 05 Sep 2013 17:51:36 GMT<EOL>Content-type: text/html<EOL>Transfer-encoding: chunked<EOL><EOL>0009<EOL>Failure!<LF><EOL>
Recv 05/09/2013 12:52:16 p.m.: 0<EOL><EOL>  

Answer 1

HTTP.Request.Host := RemoteHost;

不要手动设置。 TIdHTTP 将为您管理。

HTTP.Request.Accept := 'multipart/mixed';

您告诉服务器您只接受多部分/混合的响应，这是您真正想要的吗？

HTTP.Request.ContentType := TestStream.RequestContentType;

发送 TIdMultipartFormDataStream 时请勿手动设置，Post() 将为您处理。

HTTP.Post('https://www.remotehost.com/controller?function=submitfile',TestStream, Resultado); memResultado.Lines.Add(Resultado.DataString);

服务器发送响应的字符集是否与您初始化 Resultado 时使用的字符集相同？如果不是，则读取 DataString 属性可能会失败并返回空白字符串(TEncoding 在对字符串进行编码/解码失败时不会引发异常)。您应该让 Indy 为您解码响应数据，因为它知道响应的类型和字符集:

var
  Resultado: string;

Resultado := HTTP.Post('https://www.remotehost.com/controller?function=submitfile', TestStream);
memResultado.Lines.Add(Resultado);

The server does not send any error. Just the file is not uploaded.

如果服务器没有发回 HTTP 错误响应(这将导致 TIdHTTP 引发异常)，那么它是:

1. 发回 HTTP 成功响应，但在响应数据中发送错误消息。

2. 接受文件，但随后丢弃它

3. 接受文件，但将其保存在与您预期不同的路径/名称下。

很难确定，因为您没有显示正在传输的实际 HTTP 请求/响应数据。

更新:服务器IS使用上面的#1发回一个错误。服务器正在发送回 HTTP 200 OK 回复，但回复内容为 'Failure!' (事实上，您的原始代码应该将该消息记录在您的TMemo)。这就是为什么 TIdHTTP 没有引发异常。它只查找 HTTP 错误，而不查找正文内容中的错误消息。您必须添加额外的代码来解决这种可能性，例如:

Resultado := HTTP.Post('https://www.remotehost.com/controller?function=submitfile', TestStream);
if TextStartsWith(Resultado, 'Failure') then
begin
  // Upload failed, do something...
end;

至于服务器首先出现故障的原因，您必须联系服务器管理员并询问。管理员可能会使用服务器端日志来进行故障排除。

但是，我要提到的是，TIdMultipartFormDataStream 目前确实为文本字段发送 Content-Type: text/plain header ，这对于 HTML 4 来说很好(甚至是鼓励)表单，但对于 HTML 5 表单来说不行(这是禁止的)，并且如果文本字段存在 Content-Type header ，某些服务器会失败。 HTML5 仅允许在文件字段上使用它。这是 TIdMultipartFormDataStream 的一个已知问题，已在解决中，但尚不清楚何时可以修复该问题。但您可以询问服务器管理员服务器对此情况有何 react 。