Я использовал импортер WSDL с Delphi XE2, и он сгенерировал процедуру, которая выглядит следующим образом, за исключением 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 указано...
If you need to use a proxy server, or if the server requires authentication, use the properties of the THTTPReqResp object that is the value of the HTTPWebNode property to provide the necessary information.
Это я сделал, но когда я пытаюсь использовать свою службу, возникает исключение ESOAPHTTPException с сообщением...
Unauthorized (407) - 'https://server/XYZService.svc'
Я наткнулся на этот пост, в котором говорится, что нужно установить параметры прокси-сервера после установки WSDLLocation, Service и Port, которые я безуспешно пробовал.
http://www.delphigroups.info/2/10/555621.html
Я также не строю с определением USE _INDY. Моя служба использует SSL, поэтому я использую WinInet.
Я не уверен, что не так с этим подходом, поэтому любая помощь приветствуется.
Спасибо, Михаил