Timage y Base de datos

[[poliburro]]

Asi se carga

Código Delphi [-]
          Parameters.ParamByName('PI_BFoto').LoadFromFile(PSRutImg,ftBlob);
        ExecProc;

Así la descargo

Código Delphi [-]

 Var
   LDmDAtos: TDmDatos;  // Instancia de la conexión
   LsMensaje: String;   // Mensaje de estado devuelto por el método
   LmsImagen: TADOBlobStream;
Begin
If Not LdmDAtos.AdsDatos.Fields[26].IsNull Then
  Begin
    LmsImagen := TADOBlobStream.Create(TBlobField(AdsDatos.Fields[26]),bmRead);
    LmsImagen.SaveToFile(ExtractFilePath(Application.ExeName) + 'foto.jpg');
    ImgFoto.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName) + 'foto.JPG')
  End
Else
  ImgFoto.Bitmap.LoadFromFile('sinfoto.JPG');
End;

Por cierto lo que dice caral es correcto, dependiendo del motor evalua guardarlas en el disco duro.

Saludos