Mostrar una Imagen desde una URL: LoadURLImage

On miércoles, 8 de diciembre de 2010 0 comentarios

Os propongo una forma sencilla de cargar una imagen desde una URL y mostrarla en un Form:

Código: [Seleccionar]
uses  Urlmon;
//...........................................................................
procedure LoadURLImage(Image: TImage; URL: String);
var
  TempName: String;
begin
   TempName:= 'temp' + ExtractFileExt(URL);
   URLDownloadToFile(nil, PCHAR(URL), PCHAR(TempName), 0, nil);
   Image.Picture.LoadFromFile(TempName);
   DeleteFile(TempName);
end;
 

Un ejemplo de uso:
Código: [Seleccionar]
 LoadURLImage(Image1, '[url]http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg'[/url]);
 


Saludos.

0 comentarios:

Publicar un comentario