como mostrar una imagen a base de un componente

[fidel]

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.

[Nelly]

Disculpa, pero ¿DM que viene siendo? Es la unica duda que tengo

Empezado por fidel

Código Delphi [-]
if DM.IBDSAlumnosFOTO.IsNull then

[vtdeleon]

Empezado por Nelly

Disculpa, pero ¿DM que viene siendo? Es la unica duda que tengo

Creo qeu es un DataModulo

[fidel]

Hola:

Efectivamente, DM es el nombre del DataModule donde tengo el DataSet (IBDSAlumnos).

A propósito, para cargar la foto en el campo blob lo hago también con Streams, el código es mucho más corto que el tuyo, si te interesa te lo pongo.

Un saludo.

[rastafarey]

HAber si etso te sirve
Tbdimage