Cargar imagen en tiempo de ejecucion desde internet

[judit25]

Buenas noches.

Estoy creando los dbimage en ejecucion segun la cantidad de imagenes que voy necesitando y necesito cargar las imagenes que va a llevar cada uno desde el internet (grabo la direccion en un campo de la tabla). Este el codigo que estoy utilizando

Código Delphi [-]
NumImagenes := numimagenes + 1;
with TDBImage.Create(Self) do
begin
   Name := 'DBImage' + IntToStr(NumImagenes);
   Parent := Self;
   Height := 166;
   Width := 180;
   j := j;
   D := D;
   Top := j;
   left := D;
   stretch := true;
   if fileexists(Query1Ruta.Value) then
      begin
         Picture.LoadFromFile(Query1Ruta.Value); //Esto lo empleaba cuando tenía las fotos locales, pero las tengo ahora en internet.
      end;
   onclick := HaciendoClick;
end;

Hay alguna funcion o componente que me permita cargar una imagen desde el internet en tiempo de ejecución?

Muchas gracias anticipadas.

[ecfisa]

Hola judit25.

En este enlace, tenes dos modos de de cargar una imágen desde internet en tiempo de ejecución.

Saludos

[judit25]

Empezado por ecfisa

Hola judit25.

En este enlace, tenes dos modos de de cargar una imágen desde internet en tiempo de ejecución.

Saludos

Gracias por el enlace ecfisa. Una pregunta con relación a eso: como puedo pasarle de parámetro el tdbimage que estoy creando de momento si no se el nombre de el?

Gracias nuevamente anticipadas

[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

[judit25]

Gracias por tu ayuda ecfisa.

Ya me deja compilar y me muestra el cuadro del dbimage aunque toidavia no me muestra la imagen. Estoy chequeando que error puedo tener ahi

[ecfisa]

Hola judit25.

Tal vez te pueda servir lo comentado en este enlace: Recorrer archivos de un directorio y mostrar graficos en miniaturas

Saludos

[judit25]

Empezado por ecfisa

Hola judit25.

Tal vez te pueda servir lo comentado en este enlace: Recorrer archivos de un directorio y mostrar graficos en miniaturas

Saludos

Muchas gracias por tu ayuda ecfisa.

Estaba haciendo un if que no debía y por eso no lo mostraba.

Gracias nuevamente