Vincular imagen a una base de datos

[[duilioisola]]

Ya las tienes vinculadas por el nombre. (Imagen = Ruta + CodigoProducto + ".JPG")

Supongo que te refieres a mostrar la imagen.
En ese caso tienes que tener un componente TImage en el formulario y cargarle la imagen:

Código Delphi [-]
procedure TForm.CargarImagenDeArchivo(Imagen: TImage; Archivo: string);
begin
  try
     Imagen.Picture.LoadFromFile(Archivo);
  except
     on EInvalidGraphic do
     begin
        Imagen.Picture.Graphic := nil;
        MessageDlg(_('Formato de imagen no aceptado'), mtError, [mbOK], 0);
     end;
     on EFOpenError do
     begin
        Imagen.Picture.Graphic := nil;
     end;
  end;
end;

begin
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';
[...]
   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
[...]
end;

[DiegoPucho]

Gracias duilioisola No sabia como hacerlo o encargarlo... :-).

[Casimiro Noteví]

Empezado por DiegoPucho

...

Te aconsejo este estupendo libro, es libre y gratis, enfocado a delphi con bases de datos.

[DiegoPucho]

Gracias Casimiro consejo tomado y descargando...

[DiegoPucho]

Donde coloco esto??? Ultima parte...

Código Delphi [-]
begin
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';
[...]
   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
[...]
end;

Perdón que recién empiezo con delphi y a programar... estoy aprendiendo mucho así... a prueba y error...

[[duilioisola]]

Esto debes ponerlo en el lugar donde quieras que se ejecute la acción de mostrar la imagen.

Se me ocurre que lo quieres cada vez que cambie el producto. En ese caso lo puedes poner en el evento OnChange del Edit que muestre el código del producto.

También lo puedes poner en el OnClick de un botón para evitar que se carguen cada vez que muestras un producto diferente. Solo se cargará la imagen si el usuario lo pide, presinando el botń.

Código Delphi [-]
procedure TForm.BotonMuestraImagen.Click(Sender: TObject);
begin
   // Estas deberían ser variables globales, o globales a la unidad
   // Podrías cargarlas desde un fichero .ini que contenga la configuración/preferencias
   RutaImagenesProductos := 'C:\Imagenes\Productos\';
   RutaImagenesClientes := 'C:\Imagenes\Clientes\';

   CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')
end;
otń.

[DiegoPucho]

Hola duilioisola tengo problemas en que se visualice. Hice muchas pruebas y nada aun.. explico por donde voy:
Tenia problemas con este código:

Código Delphi [-]
RutaImagenesProductos := 'C:\Imagenes\Productos\';

Le puse en un VAR y nada hasta que se me ocurrió esto:

Código Delphi [-]
const
  RutaImagenesProductos:String = ('C:\SOME\Imagenes\Productos');

entre USE y TYPE.
Luego coloque justo donde mencionas:

Código Delphi [-]
CargarImagenDeArchivo(MiImagen, RutaImagenesProductos + Tabla.FieldByName('PRODUCTO').AsString + '.JPG')

Aun no logro que la muestre, esta bien por donde voy????

[DiegoPucho]

Hola voy de nuevo... En el form tengo los siguientes componentes: Base de Datos, un Query, un DBGrid y un SImage.
Lo que quiero es visualizar una imagen guardada con el numero de código de un producto. cuando selecciono en el dbgrid me muestre dicha Imagen correspondiente.

[[duilioisola]]

Mañana trataré de hacer un minidemo de eso.
Lo publicaré aquí para que puedas probarlo.
Ahora no tengo un delphi a mano...