REST Request Fehler

[jaenicke]

Zitat von TiGü:

In Tokyo ist dafür nichts vorgesehen bzw. ist das in TWinHTTPClient.Create auskommentiert.
Entweder gibt es in Sydney dann Möglichkeiten dafür ODER du kopierst dir die System.Net.HttpClient.Win in dein Projekt und veränderst sie entsprechend, um mehr Informationen loggen zu können.

Das wurde mit Delphi 10.3 überarbeitet. Dort gibt es nun ein entsprechendes Callback, das die Auswertung übernimmt und in der Property SecureFailureReasons ablegt.

Es wurden auch diverse Routinen zur Auswertung von Zertifikaten usw. hinzugefügt.

// EDIT:
Ja, so ähnlich sieht die Callbackfunktion HTTPCallback auch in der RTL nun aus.

[t2000]

Ja, in 10.4.1 so:

in System.Net.HttpClient.Win

Delphi-Quellcode:

  // Send Request
  if not WinHttpSendRequest(LRequest.FWRequest, WINHTTP_NO_ADDITIONAL_HEADERS, 0, WINHTTP_NO_REQUEST_DATA, 0, LDataLength, 0) then
    Exit(HandleExecuteError(@SNetHttpClientSendError, ARequest));

und dann:

Delphi-Quellcode:

function TWinHTTPClient.HandleExecuteError(AErrorMsg: PResStringRec; const ARequest: THTTPRequest): TWinHTTPClient.TExecutionResult;
var
  LastError: Cardinal;
begin
  LastError := GetLastError;
  case LastError of
    ERROR_WINHTTP_SECURE_FAILURE:
      if (SecureFailureReasons <> [THTTPSecureFailureReason.SecurityChannelError]) and
         not TWinHTTPRequest(ARequest).FServerCertificateAccepted then
        Exit(TExecutionResult.ServerCertificateInvalid)
      else
        raise ENetHTTPClientException.CreateResFmt(AErrorMsg, [LastError, SysErrorMessage(LastError, TWinHttpLib.Handle)]);
    ERROR_WINHTTP_CLIENT_AUTH_CERT_NEEDED:
      Exit(TExecutionResult.ClientCertificateNeeded);
    ERROR_WINHTTP_RESEND_REQUEST:
      Exit(TExecutionResult.Retry);
    else
      if (LastError = ERROR_WINHTTP_OPERATION_CANCELLED) and
         (SecureFailureReasons = [THTTPSecureFailureReason.CertNotAccepted]) then
        raise ENetHTTPCertificateException.CreateRes(@SNetHttpServerCertificateNotAccepted)
      else
      if (LastError = ERROR_WINHTTP_OPERATION_CANCELLED) or TWinHTTPRequest(ARequest).FCancelled then
        Exit(TExecutionResult.Success)
      else
        raise ENetHTTPClientException.CreateResFmt(AErrorMsg, [LastError, SysErrorMessage(LastError, TWinHttpLib.Handle)]);
  end;
end;

Ich habe nun aber erstmal damit zu tun, dass über das Provisorium die Daten alle rüber kommen. Dauert ein wenig. Danach spreche ich mit dem Kunden, ob dasa Provisorium noch 6 Wochen laufen oder wir weiter suchen sollen. Kostet ja alles Geld.

Vielen Dank nochmal, falls ich die Tage etwas Zeit habe, mache ich mir ein Testprogramm.

[t2000]

Wir hatten das Problem gerade wieder.

REST Abfrage auf Woocommerce Shop mit original Delphi Komponenten.
Gleichzeitig auf mehreren PC's.
Nur auf einem Windows 11 PC hat alles nach wie vor funktioniert.

Grund war folgender:
Auf dem Webserver, auf dem der Woocommerce Shop installiert ist, wurden verschiedene Updates eingespielt.
Anschließend einige Einstellungen überprüft. U.a. auch die SSL/TLS Einstellungen vom Server. Diese sollten regelmäßig synchronisiert werden.
Warum auch immer, die Einstellungen standen auf "modern". Das bedeutet, das nur TLS 1.3 erlaubt ist.

Unsere Testsystem auf Clientseite waren folgende:
Windows Server 2012 R2
Windows Server 2019
Windows 10
Windows 11

Das Programm, welches den REST Aufruf macht, war von 2021 und mit Delphi 10.4.1 kompiliert.
Gleichzeitig haben wir aber auch eine Version ganz neu mit Delphi 11.3 kompiliert und auch getestet.
Schon mal vorweg, es gab keinerlei Unterschiede zwischen der 2021er Version und heute.

Von den 4 Testsystemen lief nur Windows 11. Die 3 anderen System haben die Fehlermeldung gebracht.

Nun haben wir den Webserver auf "ausgewogen" gestellt. Also die mittlere Einstellung. Bei der ist TLS 1.2 und TLS 1.3 aktiv.

Gleiches Spiel auf allen 4 Testsystemen.

Nächster Test, Webserver auf "alt" eingestellt. Jetzt sind TLS 1.0 - TLS 1.3 verfügbar.

Alle System laufen wieder.
Egal ob in 2021 kompiliert oder aktuell.

Daneben haben wir natürlich verschieden Tests mit Einstellungen auf den Client PC's gemacht.
1) PC Internetoptionen verschieden Einstellungen TLS ausprpbiert
2) Delphi REST-Client Komponente Security Einstellung TLS 1.0 - 1.3 ausprobiert.

All das hat überhaupt keine Auswirkung gehabt.

Was bewirken die Einstellungen auf dem PC?
Was bewirken die Einstellungen in der REST Client Komponente?

Wie sind die zu nutzen?

Ich glaube, ich habe hier noch einige Wissenslücken.

Ich würde gerne den Webserver zumindest auf TLS 1.2 stellen ("ausgewogen"). Aber das bekomme ich nicht zum laufen.

Hier noch 2 Bilder von den PLESK Einstellungen auf dem Webserver.

Vielleicht hat ja noch mal jemand eine Idee.

Danke.
Viele Grüße
Thomas