Visualizar Foto al navegar por un DBGrid
 

Saludos.

Tengo en un campo llamado FOTO de una base de datos firebird la ruta de donde tengo guardadas las fotos ('C:\Datos\Fotos\NombreFoto.Jpg'), necesito navegar por el DBGrid y mostrarlas en un TImage, pero no hay forma.

Este es el código:

Código Delphi [-]
procedure TF_Agenda.DBGAgendaKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 Extension : string[4];
begin

    Extension := ExtractFileExt(ModuloDatos.IBQAgendaFOTO.AsString);

  if Extension = '.jpg' then
   Begin
         ImagenAgenda.Picture.LoadFromFile(ModuloDatos.IBQAgendaFOTO.AsString);
   End;
End;

Haber si alguien me puede ayudar.

Gracias

Saludos. Debería hacer el llamado a Picture.LoadFromFile desde el evento OnDataChange del DataSource asociado al DbGrid.

-

Lo puse en el evento OnDataChange y hacia lo mismo.

El problema era la extensión de la foto, algunas estaban en mayúsculas y otras en minúsculas.

Solución:

Código Delphi [-]
procedure TModuloDatos.DSAgendaDataChange(Sender: TObject; Field: TField);
var
 Extension : string[4];
begin

    Extension := ExtractFileExt(ModuloDatos.IBQAgendaFOTO.AsString);

  if (LowerCase(Extension) = '.jpg')  then
   Begin
         F_Agenda.ImagenAgenda.Picture.LoadFromFile(ModuloDatos.IBQAgendaFOTO.AsString);
   End;

end;

end.

Gracias.