Delphi Как загрузить картинку с интернета сразу в image

[Lomanu4]

Иногда приходиться делать софт, в котором нужно выводить фото зарегистрированного человека в Image, кто то это делает через таблицы блоб формата, а я это делаю через фото даже того же вконтакте или фб и т.д. Так вот вот сама функция
[LIKES].
procedure GetImageByUrl(URL: string; APicture: TPicture);
var
Jpeg: TJPEGImage;
Strm: TMemoryStream;
vIdHTTP : TIdHTTP;
begin
Screen.Cursor := crHourGlass;
Jpeg := TJPEGImage.Create;
Strm := TMemoryStream.Create;
vIdHTTP := TIdHTTP.Create(nil);
try
vIdHTTP.Get(URL, Strm);
if (Strm.Size > 0) then
begin
Strm.Position := 0;
Jpeg.LoadFromStream(Strm);
APicture.Assign(Jpeg);
end;
finally
Strm.Free;
Jpeg.Free;
vIdHTTP.Free;
Screen.Cursor := crDefault;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetImageByUrl('http://localhost/teste/imagem.jpg', Image1.Picture);
end;
[/LIKES]ну и потом по выбору вы можете её сохранить в программе и делать проверку на обновления фото.