Einzelnen Beitrag anzeigen

Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.043 Beiträge
 
Delphi 12 Athens
 
#5

AW: System.Net.HTTPClientComponent

  Alt 16. Dez 2022, 16:31
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;
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat