Ver Mensaje Individual
  #6  
Antiguo 18-11-2008
madriles madriles is offline
Miembro
 
Registrado: may 2003
Ubicación: madrid
Posts: 93
Reputación: 21
madriles Va por buen camino
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

Última edición por ecfisa fecha: 27-03-2015 a las 08:46:57. Razón: agregar etiquetas
Responder Con Cita