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 を使用しています。
このアプローチの何が問題なのかわからないので、助けていただければ幸いです。
ありがとう、マイケル