Ver Mensaje Individual
  #4  
Antiguo 28-11-2005
fidel fidel is offline
Miembro
 
Registrado: mar 2005
Posts: 381
Reputación: 20
fidel Va por buen camino
Hola:

Si tienes guardada la foto en un campo blob puedes hacer esto:

Pones un TImage (si, TImage), y en un evento adecuado, por ejemplo en OnDateChange del DataSource que alimenta el grid pones este código (adaptado a tu tabla). Cada vez que cambies de línea en el grid aparecerá la foto correspondiente.

Código Delphi [-]
uses
  Windows .... Jpeg, DB;
.....

//mostrar imagen (evento ondatachange de datasource)
procedure TFDatos.DSAlumnosFDataChange(Sender: TObject; Field: TField);
var
  m: TStream;
begin
  if DM.IBDSAlumnosFOTO.IsNull then
    //para registros sin foto poner imagen vacia
    ImageFoto.Picture := nil
  else
    begin
      //si es formato JPG
      ImageFoto.Picture.Graphic:= TJpegImage.Create
      //copiar los datos desde la tabla con un stream
      m:= DM.IBDSAlumnos.CreateBlobStream(DM.IBDSAlumnosFOTO, bmRead);
      ImageFoto.Picture.Graphic.LoadFromStream(m);
      m.Free;
    end;
end;

Un saludo.
Responder Con Cita