Delphi THTTPRio如何使用认证代理服务器答案

【问题标题】：Delphi THTTPRio how to use authenticating proxy serverDelphi THTTPRio如何使用认证代理服务器
【发布时间】：2012-07-31 14:58:21
【问题描述】：

我在 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 属性的值以提供必要的信息。

我已经这样做了，但是当我尝试使用我的服务时，会引发 ESOAPHTTPException 并显示消息...

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

我偶然发现这篇文章说在设置 WSDLLLocation、服务和端口后设置代理设置，我尝试过但没有成功。

http://www.delphigroups.info/2/10/555621.html

我也没有在定义 USE_INDY 的情况下进行构建。我的服务使用 SSL，所以我使用的是 WinInet。

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

谢谢，迈克尔

【问题讨论】：

标签： delphi authentication soap proxy delphi-xe2

【解决方案1】：

根据this，wininet设置代理授权有2种方式。我没有在 Soap.SOAPHTTPTrans 的源代码中看到任何 HTTP_STATUS_PROXY_AUTH_REQ，因此您可能必须编写自己的此错误处理方式。为此，请设置 THTTPReqResp.OnWinInetError 处理程序并处理 HTTP_STATUS_PROXY_AUTH_REQ 错误代码。

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

【讨论】：