System.Net.HTTPClientComponent

[Detlev]

Ich nutze Delphi 10.2 Tokyo und versuche gerade, einfache Methoden für den Zugriff über https:// zu finden.

System.Net.HTTPClientComponent war mir bisher unbekannt. Ich habe hier zwei Versuche, die beide nicht funktionieren. Die Dokumentation ist dazu furchtbar dürftig.

Delphi-Quellcode:

procedure TForm1.SpeedNETGet2Click(Sender: TObject);
var
  AHTTPClient     : TNetHTTPClient;
  AResponseStream : TMemoryStream;
begin
  AHTTPClient := TNetHTTPClient.Create(nil);
  AResponseStream := TMemoryStream.Create;

  MemoGetSSL2.Text := AHTTPClient.Get('https://de.wikipedia.org/wiki/Wikipedia:Hauptseite', AResponseStream).ContentAsString;

  AResponseStream.Free;
  AHTTPClient.Free;
end;

SpeedNETGet2Click crasht bei https mit ENetHTTPCertificateException "Serverzertifikat ungültig oder nicht vorhanden", aber funktioniert mit normalen http-Seiten.

Was mache ich falsch?

Unterstützt die Komponenten überhaupt https?

[Detlev]

Habe die Originalfrage gekürzt auf das verbliebende Unwissen. Habe gerade herausgefunden, dass man THTTPRequest mit einem THTTPClient verbinden muss. Dann frage ich mich aber: Was soll das? Hat jemand darauf eine Antwort, warum man dann nicht gleich den HTTPClient verwendet, sondern umständlich einen HTTPRequest verbindet?!

Wie auch immer, https funktioniert so nicht, http aber schon. Die zentrale Frage bleibt also.

Delphi-Quellcode:

procedure TForm1.SpeedNETGetClick(Sender: TObject);
var
  AHTTPRequest    : TNetHTTPRequest;
  AHTTPClient     : TNetHTTPClient;

  AResponseStream : TMemoryStream;
  AString         : String;
begin
  AHTTPClient     := TNetHTTPClient.Create(nil);

  AHTTPRequest    := TNetHTTPRequest.Create(nil);
  AHTTPRequest.Client := AHTTPClient;

  AResponseStream := TMemoryStream.Create;

  MemoGetSSL2.Text := AHTTPRequest.Get('http://squarenmr.com', AResponseStream).ContentAsString;

  AResonseStream.Free;
  AHTTPRequest.Free;
  AHTTPClient.Free;

[Uwe Raabe]

Für einen simplen Abruf einer Seite kann man natürlich gleich den Client verwenden. In der Regel sind die Anforderungen aber deutlich komplexer und lassen sich mit einem Client und mehreren Requests flexibler gestalten.

[Detlev]

OK, danke. Habe inzwischen herausgefunden, dass die TNEThttpClient-Sache als Komponente auf einem Formular gedacht sind und man ebenso gut auch THTTPClient direkt verwenden kann, ohne Komponenten-Wrapper. Das war mir vorher nicht klar.

Trotzdem bleibt die entscheidende Frage, wie man ggf. https zum Laufen bekommt.

[Uwe Raabe]

Also hier läuft das ohne Probleme (mit einfacherer Lösung für Stream zu String):

Delphi-Quellcode:

var
  AHTTPClient : TNetHTTPClient;
  AResponseStream : TStringStream;
  AString : String;
begin
  AHTTPClient := TNetHTTPClient.Create(nil);
  try
    AResponseStream := TStringStream.Create;
    try
      AHTTPClient.Get('https://de.wikipedia.org/wiki/Wikipedia:Hauptseite', AResponseStream);
      AString := AResponseStream.DataString;
    finally
      AResponseStream.Free;
    end;
  finally
    AHTTPClient.Free;
  end;
  Memo1.Text := AString;
end;

[Detlev]

Bei dir läuft das?! Das ist ja verdammt seltsam. Bei mir wirft es den Zertifikatsfehler.