Ver Mensaje Individual
  #4  
Antiguo 07-10-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 07-10-2013 a las 19:44:46.
Responder Con Cita