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