使用 Delphi Indy HTTP 组件上传包含表单数据的文件

Question

我想使用 Indy 在 Delphi 中复制这部分 Python 代码：

postdata = {'data': '{"data":{"xMode":0,"overrideOS":1,"messageId":"","vmProfileList":"11","submitType":"0","url":""},"filePriorityQ":"run_now" }'}
file_up = {'amas_filename':open('/home/samples/temp/vtest32.exe','r')}
file_upload_req=requests.post(url,postdata,files=file_up,headers=headers,verify=False)

我这样试过：

Params.AddFormField('data', '{"data":{"xMode": '+ xMode +',"analyzeAgain":1,"overrideOS":1,' +
                            '"vmProfileList":"' + DBProfileID.Value + '","submitType":0,"url":""}}');
Params.AddFile('amas_filename', DBTestFilePath.Value, GetMIMEType(DBTestFilePath.Value));
Params.Position := 0;
HTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
JSON := HTTP1.Post(URL, Params);

但是它给了我一个 HTTP 错误 "HTTP/1.0 400 Bad Request" 并且网络服务器说 "Bad Request. Check input data and payload size"。我知道数据量够小了。

这是来自客户端的请求和来自服务器的响应：

客户端说

POST /php/fileupload.php HTTP/1.0
Content-Type: multipart/form-data; boundary=--------031317093926335
Content-Length: 248815
VE-SDK-API: <<APIKEYWasHere>>
Host: Server_IP
Accept: application/vnd.ve.v1.0+json
Accept-Encoding: identity
User-Agent: Mozilla/3.0 - NBL
Cookie: PHPSESSID=<<Cookie_Was_Here>>

----------031317093926335
Content-Disposition: form-data; name="data"
Content-Type: text/plain
Content-Transfer-Encoding: quoted-printable

{"data":{"xMode": 0,"analyzeAgain":1,"overrideOS":1,"vmProfileList":"2=
4","submitType":0,"url":""},"filePriorityQ":"run_now"}
----------031317093926335
Content-Disposition: form-data; name="amas_filename"; filename="Process.exe"
Content-Type: application/x-msdownload
Content-Transfer-Encoding: binary

MZP
<<FileDataWasHere>>

服务器服务说

HTTP/1.0 400 Bad Request
X-Content-Type-Options: nosniff
X-Content-Type-Options: nosniff
Cache-Control: no-store, no-cache, must-revalidate, private,max-age=0
Cache-Control: no-store, no-cache, must-revalidate, private,max-age=0
Pragma: no-cache
Pragma: no-cache
Expires: Sat, 26 Jul 1997 05:00:00 GMT
Content-type: text/html; charset=UTF-8
Content-Length: 89
Connection: close
Date: Mon, 13 Mar 2017 06:39:19 GMT
Server: Server FIPS

{"success":false,"errorMessage":"Bad Request. Check input data and payload size(<=200M)"}

我的代码有什么问题？

PS: 之前没有用表单数据上传过文件

Answer 1

下次您在与其他人的 API 互动时遇到问题时，您应该指出 API 实际上是什么，以便人们有机会查找其文档以查看是否有任何遗漏或错误.在这种情况下，您似乎正在使用 McAfee Advanced Threat Defense API.

在您显示的 HTTP 请求中，有几件事让我印象深刻：

HTTP1.Request.ContentType := 'application/x-www-form-urlencoded';

这完全是错误的。正确的内容类型是 multipart/form-data。但是，TIdHTTP 在发布 TIdMultipartFormDataStream 时会为您处理此问题，因此您根本不需要为 Request.ContentType 属性分配值，TIdHTTP只会覆盖它。但这并不能改变您的代码中仍然存在错误的事实。
Accept-Encoding: identity

这表明您使用的是旧版本的 Indy。您应该考虑升级到更新的版本。 TIdHTTP 不再在 Accept-Encoding 请求 header 中发送 identity 除非 TIdHTTP.Request.AcceptEncoding 属性包含其他值，这里不是这种情况。某些服务器在请求中明确说明时无法处理 Accept-Encoding: identity，这就是默认情况下不再发送它的原因。
Content-Type: text/plain

您的 JSON 字段应具有 application/json 的 Content-Type，或者甚至可能在此 API 中具有 application/vnd.ve.v1.0+json。如果没有另外指定，默认值为 text/plain。 AddFormField() 有一个 AContentType 参数用于此目的。 Web 服务器可能对该值敏感。 JSON 通常也使用 UTF-8 编码，因此您也应该指出这一点。 AddFormField() 有一个用于该目的的 ACharset 参数。
Content-Transfer-Encoding: quoted-printable

您的 JSON 字符串正在使用 quoted-printable 编码，这通常适用于 MIME 中的文本内容，但并非所有网络服务器都处理网络表单提交中的内容，并且它可能不适合非 text/... 媒体类型，例如 JSON。 AddFormField()returns一个TIdFormDataFieldobject。要禁用 QP 编码，您可以将 TIdFormDataField.ContentTransfer 属性设置为 8bit 或 binary.

话虽这么说，试试这样的东西：

Params.AddFormField('data', '{"data":{"xMode": ' + xMode + ',"analyzeAgain":1,"overrideOS":1,' +
                            '"vmProfileList":"' + DBProfileID.Value + '","submitType":0,"url":""}}',
                    'utf-8',
                    'application/json'
).ContentTransfer := '8bit';

// using GetMIMEType() to specify the ContentType is redundant as
// AddFile() already does that internally for you using Indy's own
// GetMIMETypeFromFile() function...
Params.AddFile('amas_filename', DBTestFilePath.Value);

JSON := HTTP1.Post(URL, Params);

如果仍然不能解决问题，我建议您直接联系 McAfee 以获得进一步的帮助。

使用 Delphi Indy HTTP 组件上传包含表单数据的文件

Upload file with form data using Delphi Indy HTTP component

delphi

file-upload

http

indy

form-data