for show a image from a internet source into a timage you can this sample code
procedure TForm24.Button1Click(Sender: TObject);
var
s: TStream;
uri:String;
begin
uri:='http://bankupload.com/images_mega/map.png';
s := TMemoryStream.Create;
with TIdHTTP.Create(nil) do
try
Get(uri, s);
Image1.Bitmap.LoadFromStream(s);
finally
Free;
s.Free;
end;
showMessage('.');
end;
No comments:
Post a Comment