Delphi 10.3 Rio: THTTPClient und Proxy; Status 407 authenticationrequired

[Achim Kalwa]

Zitat von Achim Kalwa:

Schön und gut. Und wie kann ich dieser Klasse mitteilen, dass der in Windows bereits eingestellte Proxy verwendet werden soll?

Ich beantworte meine Frage mal selber, vielleicht hilft es ja mal jemandem:
THTTPClientHelper.UseDefaultCredentials
ist die gesuchte Einstellung.

Code:

  
  LStream := TFileStream.Create(aFileName, fmCreate or fmShareExclusive);
  LClient := THTTPClient.Create;
  LClient.UseDefaultCredentials := True; // <-- added
  ResCode := LClient.Get(aURL, LStream);
  if ResCode.StatusCode = 200 then...

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;

Gruß vom Teutoburger Wald,

[TurboMagic]

Zitat von Achim Kalwa:

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

[Achim Kalwa]

Zitat von TurboMagic:

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!

TurboMagic

Den WSDL-Importer zu ändern wäre nur ein Workaround. UseDefaultCredentials := True sollte per Default aktiv sein, so wie in vorherigen Delphi-Versionen. Ich habe einen Bug-Report erstellt:

https://quality.embarcadero.com/browse/RSP-25668