Ver Mensaje Individual
  #20  
Antiguo 02-07-2012
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
Si quieres prescindir de las indi, puedes usar este código:

Código Delphi [-]
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;

Uso:

Código Delphi [-]
LoadURLImage(Image1, 'http://telmosilva.files.wordpress.com/2010/03/informatica_12.jpg');


Saludos.
Responder Con Cita