Delphi THTTPRio如何使用身份验证代理服务器

我在Delphi XE2中使用了WSDL导入器，它生成了一个例程，如下所示，不包括我试图使用代理服务器的3条注释行

function GetIXYZService(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IXYZService;
const
  defWSDL = 'https://server/XYZService.svc?wsdl';
  defURL  = 'https://server/XYZService.svc';
  defSvc  = 'Company.XYZ.Services.XYZService';
  defPrt  = 'BasicHttpBinding_IXYZService';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    // RIO.HTTPWebNode.Proxy := 'server_ip:port';
    // RIO.HTTPWebNode.Username := 'username';
    // RIO.HTTPWebNode.Password := 'password';

    Result := (RIO as ISSOService);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

我需要通过身份验证代理服务器访问服务。我已经添加了上面显示的3行，当我取消注释它们时，我无法连接。THTTPRio的帮助说明

如果需要使用代理服务器，或者如果服务器需要 身份验证时，请使用要验证的THTTPReqResp对象的属性 HTTPWebNode属性的值，以提供必要的 信息

我已经这样做了，但当我尝试使用我的服务时，会引发一个ESOAPHTTPEException，其中包含消息

Unauthorized (407) - 'https://server/XYZService.svc'

我无意中发现了这篇文章，上面说在设置WSDLLocation、Service和Port之后再设置代理设置，但我尝试了却没有成功

我也不是用定义好的用途来建造的。我的服务使用SSL，所以我使用WinInet

我不确定这种方法有什么问题，因此非常感谢您的帮助

谢谢， Michael

根据，有两种方法可以为wininet设置代理授权。我在Soap.SOAPHTTPTrans的源代码中没有看到任何HTTP_STATUS_PROXY_AUTH_REQ，因此您可能必须编写自己对该错误的处理。为此，请设置THTTPReqResp.OnWinInetError处理程序并处理HTTP\u STATUS\u PROXY\u AUTH\u REQ错误代码

或者，您可以尝试捕获THTTPReqResp的OnBeforePost，并使用base64编码的登录名和密码对调用HttpAddRequestHeaders。 希望能有帮助