Hi, ich habe folgendes Problem:
Delphi-Quellcode:
procedure TForm3.FormCreate(Sender: TObject);
var
http: THttpClient;
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
http := THttpClient.Create;
http.HandleRedirects := true;
try
try
http.Get('https://cdn.wallpapersafari.com/81/79/vl5G7p.jpg', stream);
stream.Position := 0;
except
end;
finally
http.DisPoseOf;
end;
Image1.Bitmap.LoadFromStream(stream);
stream.free;
end;
Der oben stehende Code sollte ein Bild in eine Bitmap laden. Irgendwie verweigert aber die Klasse unter Windows bei dem Code die Arbeit. Unter OSX, Android und iOS geht das aber problemlos. Ich mag aber nicht auf
Indy umstellen, sondern lieber den Nativen Code von Embarcadero nutzen. Soweit ich mich erinnere ging das aber unter 10.3 ohne Murren und Knurren.
Peter