Credencial Alumnos
 

Amigos,
Estoy diseñando una aplicación en Delphi con Firebird, el tema es que me piden generar una especie de Carné o Documento Escolar, donde vienen los datos básicos del alumno (nombre, apellido, foto --- por ejemplo), el tema es que la foto NO la quiero almacenar en la BD, sólo quiero dejar las imagenes en una carpeta especial para ello.

Tabla alumnos:
idalumno
nombres
apellidos
ruta_foto (en este campo quiero almacenar la RUTA de la Foto del alumno en cuestión)

Buscando material, hay muchos pero muy muy enredados para el tema puntual que necesito, nosé si alguien por ahi me puede hechar una mano para "guardar" y "mostrar" ???


Saludos

Checa esto...haber si te puede ayudar:

http://www.clubdelphi.com/foros/showthread.php?t=75274

LoadFromFile y SaveToFile

Código Delphi [-]
procedure TDMMain.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;
        MessageDlg(_('Error al abrir imagen'), mtError, [mbOK], 0);
     end;
  end;
end;

procedure TDMMain.GuardarEnArchivo(Imagen: TImage; Archivo: string);
begin
  try
     Imagen.Picture.SaveToFile(Archivo);
  except
     MessageDlg(_('Error al guardar imagen'), mtError, [mbOK], 0);
  end;
end;