Hi,
you can use the following code, which is a variation from over there:
klick
Delphi-Quellcode:
function DownloadBitmap(
uri:
String; bm: TBitmap): Boolean;
var
s: TStream;
begin
Result := False;
s := TMemoryStream.Create;
with TIdHTTP.Create(
nil)
do
try
Get(
uri, s);
bm.LoadFromStream(s);
Result := True;
finally
Free;
s.Free;
end;
end;
Kind Regards