Delphi 11.3中multipart/form-data格式POST请求报错求助

错误原因分析 #

1. HTTP 415 错误：最初的415错误是因为请求未正确设置multipart/form-data类型的Content-Type。Delphi的REST组件默认不会为单个RequestBody参数自动启用multipart格式，导致组件可能使用了application/json或text/plain等默认类型，服务端无法识别。
2. 添加虚拟参数后HTTP 400错误：添加虚拟参数触发了multipart格式，但大概率是虚拟参数配置出错——比如参数的Kind属性设置错误、参数名/值不符合服务端要求，或是混淆了URL参数与请求体参数，导致请求结构不符合服务端预期。另外，也可能是未给实际XML参数指定正确的Content-Type（如application/xml），导致服务端解析multipart内容失败。

单个元素的multipart/form-data实现方案 #

无需依赖“两个RequestBody参数自动触发multipart”的机制，直接手动配置更可靠：

方案1：使用TRESTRequest的AddMultiPartFormField方法 #

直接调用该方法构建multipart表单字段，无需额外虚拟参数：

procedure SendTrans;
var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
  RESTResponse: TRESTResponse;
begin
  RESTClient := TRESTClient.Create(nil);
  RESTRequest := TRESTRequest.Create(nil);
  RESTResponse := TRESTResponse.Create(nil);
  try
    // 配置带参数的基础URL，示例：http://xxx.com/api?param1=testValue
    RESTClient.BaseURL := '你的目标URL（包含URL参数）';
    
    // 关联组件
    RESTRequest.Client := RESTClient;
    RESTRequest.Response := RESTResponse;
    RESTRequest.Method := rmPOST;

    // 添加自定义请求头
    RESTRequest.Params.AddHeader('X-Custom-Header', '你的自定义头值');

    // 添加单个multipart/form-data字段，指定XML内容及对应类型
    RESTRequest.AddMultiPartFormField('xml_data', '你的XML字符串内容', 
      ctAPPLICATION_XML, '', 'request.xml'); // 第三个参数按需调整为服务端接受的类型

    // 执行请求
    RESTRequest.Execute;
    // 此处处理响应内容
  finally
    RESTResponse.Free;
    RESTRequest.Free;
    RESTClient.Free;
  end;
end;

该方式会自动设置正确的multipart/form-data Content-Type，且能精准控制字段的类型与内容。

方案2：手动构建multipart请求体（适配复杂场景） #

若组件自动处理不符合需求，可手动拼接multipart内容后设置请求体：

procedure SendTrans;
var
  RESTClient: TRESTClient;
  RESTRequest: TRESTRequest;
  RESTResponse: TRESTResponse;
  Boundary: string;
  MultipartContent: TStringStream;
begin
  RESTClient := TRESTClient.Create(nil);
  RESTRequest := TRESTRequest.Create(nil);
  RESTResponse := TRESTResponse.Create(nil);
  MultipartContent := TStringStream.Create('');
  Boundary := '----DelphiMultiPart' + IntToStr(GetTickCount); // 生成唯一分隔符
  try
    RESTClient.BaseURL := '你的目标URL（包含URL参数）';
    RESTRequest.Client := RESTClient;
    RESTRequest.Response := RESTResponse;
    RESTRequest.Method := rmPOST;

    // 添加自定义请求头
    RESTRequest.Params.AddHeader('X-Custom-Header', '你的自定义头值');
    // 设置Content-Type为multipart/form-data并指定分隔符
    RESTRequest.Params.AddHeader('Content-Type', 'multipart/form-data; boundary=' + Boundary);

    // 手动拼接multipart内容
    MultipartContent.WriteString('--' + Boundary + #13#10);
    MultipartContent.WriteString('Content-Disposition: form-data; name="xml_data"' + #13#10);
    MultipartContent.WriteString('Content-Type: application/xml' + #13#10#13#10);
    MultipartContent.WriteString('你的XML字符串内容' + #13#10);
    MultipartContent.WriteString('--' + Boundary + '--' + #13#10);
    MultipartContent.Position := 0;

    // 设置请求体
    RESTRequest.Body.SetStream(MultipartContent, ctMULTIPART_FORM_DATA, True);

    RESTRequest.Execute;
    // 此处处理响应内容
  finally
    MultipartContent.Free;
    RESTResponse.Free;
    RESTRequest.Free;
    RESTClient.Free;
  end;
end;

额外注意事项 #

• 区分URL参数与请求体参数：不要将URL参数放入multipart字段中，确保两者位置正确。
• 对比Postman请求结构：用抓包工具（如Fiddler）或Delphi的RESTRequest.OnBeforeExecute事件打印请求内容，对比Postman的请求头、multipart分隔符、字段名是否一致，差异点通常就是错误根源。
• 匹配服务端字段名：确保代码中设置的multipart字段名与Postman中使用的完全一致，字段名不匹配会直接导致400错误。

内容的提问来源于stack exchange，提问作者Grzegorz Skoczylas