Delphi - HTTPRIO 组件的 SOAP 请求问题

Question

全部

我遇到了来自 delphi 的 SOAP 请求的奇怪问题，它正在工作，但没有给出预期的结果。所以我已经开始使用 SOAP UI 进行调试，我发现以下观察结果。

当我使用 SOAP UI 工具时，我尝试创建新请求并使用下面的标头创建它，但它没有按预期工作（当我从 delphi 发送请求时面临同样的问题）。

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/">

但如果我在 SOAP UI 请求中将标头更改为下方，则会给出预期结果。

<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:tem="http://tempuri.org/" xmlns:acc="http://schemas.datacontract.org/2004/07/AccountService.DataContracts" xmlns:acc1="http://schemas.datacontract.org/2004/07/AccountService.FaultContracts">

如何在 delphi 2010 中将标头更改为 HTTPRIO 对象？

Answer 1

一种可能性是修改 THTTPRIO 对象的 OnBeforeExecute 事件处理程序中的 request。

类似以下内容：

procedure TForm1.RIOBeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
  sl : TStringList;
begin
  SOAPRequest.Position := 0;

  sl := TStringList.Create;
  try
    sl.LoadFromStream(SOAPRequest);
    sl.Text := StringReplace(sl.Text, 'old header text', 'new header text', [rfReplaceAll]);
    SOAPRequest.Size := 0;
    SOAPRequest.Position := 0;
    sl.SaveToStream(SOAPRequest);
  finally
    sl.Free;
  end;
end;