7

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 のヘルプには...

プロキシ サーバーを使用する必要がある場合、またはサーバーで認証が必要な場合は、HTTPWebNode プロパティの値である THTTPReqResp オブジェクトのプロパティを使用して、必要な情報を提供します。

これは実行しましたが、サービスを使用しようとすると ESOAPHTTPException が発生し、メッセージが表示されます...

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

WSDLLocation、Service、および Port を設定した後にプロキシ設定を設定するというこの投稿に出くわしましたが、成功しませんでした。

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

また、USE_INDY を定義してビルドしていません。私のサービスは SSL を使用しているため、WinInet を使用しています。

このアプローチの何が問題なのかわからないので、助けていただければ幸いです。

ありがとう、マイケル

4

1 に答える 1

2

これによると、wininet のプロキシ認証を設定するには 2 つの方法があります。Soap.SOAPHTTPTrans のソース コードで HTTP_STATUS_PROXY_AUTH_REQ を見たことがないので、おそらくこのエラーの独自の処理を記述する必要があります。これを行うには、THTTPReqResp.OnWinInetError ハンドラを設定し、HTTP_STATUS_PROXY_AUTH_REQ エラー コードを処理します。

または、THTTPReqResp の OnBeforePost をキャッチし、base64 でエンコードされたログインとパスワードのペアで HttpAddRequestHeaders を呼び出すこともできます。それが役に立てば幸い。

于 2013-03-19T16:52:17.220 に答える