Ver Mensaje Individual
  #1  
Antiguo 06-12-2012
Avatar de RoyTan
RoyTan RoyTan is offline
Miembro
 
Registrado: oct 2003
Ubicación: Mijas - Málaga
Posts: 121
Reputación: 21
RoyTan Va por buen camino
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
Responder Con Cita