Cargar imagen en tiempo de ejecucion desde internet

[ecfisa]

Hola judit25.

Un ejemplo con un TImage:

Código Delphi [-]
...
uses JPeg, Urlmon;

procedure URLToImage(Image: TImage; URL: String);
var
  Buff: array[0..MAX_PATH] of Char;
begin
  URLDownloadToCacheFile(nil, PChar(URL), Buff, SizeOf(Buff),0,nil);
  Image.Picture.LoadFromFile(Buff);
end;

procedure TForm1.btnLoadImgClick(Sender: TObject);
var
  Img : TImage;
begin
  Img := TImage.Create(Self);
  with Img do
  begin
    Name := 'Image'+IntToStr(2);
    Parent  := Self;
    Height  := 166;
    Width   := 180;
    Stretch := True;
    // (El TImage o TDBImage se envía como argumento en el primer parámetro)
    URLToImage(Img, 'http://www.aprendoencasa.com/wp-content/uploads/2012/02/delphi.jpg');
    ...
end;

Saludos