Und für den
SOAP-WebService muss der vom
WSDL-Importer erzeugte Code ergänzt werden:
Code:
uses
...
Soap.SOAPHTTPTrans; // for THTTPReqRespHelper
function GetIService(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): IService;
var
RIO: THTTPRIO;
begin
...
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as IService);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
RIO.HTTPWebNode.UseDefaultCredentials := True; // <-- added
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
Gut zu wissen. Kann derjenige vom Teutoburger Wald bitte jetzt einen QP feature request oder bugreport
anlegen der fordert, dass der
WSDL importer/Generator diese Zeile in Zukunft mit in den Code schreibt?
Danach bitte die Report Nummer hier melden, dann stimmen sicher einige dafür!
Grüße aus Süddeutschland
TurboMagic