Galeria de Imágenes en Delphi 7 (Paradox)

madriles · #6 18-11-2008

hola a todos, yo lo que uso es lo siguiente, creo una subcarpeta donde van las fotos o graficos, en formato jpg
Las imagenes tienen que tener un nombre que coincida con alguno de los campos de la base de datos, en mi caso concreto use el de la reerencia del producto. en el DataSouce pongo este codigo

Código Delphi [-]procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
   try
     Foto := Ruta + 'MisFotos\'+DBEdit4.Text+'.jpg';
     if FileExists(Foto) then
       Image1.Picture.LoadFromFile(Foto)
     else
       Image1.Picture := nil;
   Except
       Image1.Picture := nil;
   end;
end;

se repite el codigo en el DataSource1StateChange

Foto es una variable String;
Ruta es una string donde esta la ruta del ejecutable, yo la pogo en el onCreate

Ruta := ExtractFilePath(ParamStr(0));

asi no necesitas almacenar las imagenes en ninguna base ni crear campos especificos con la ruta, a mi me resulta muy practico