Asi se carga
Código Delphi
[-]
Parameters.ParamByName('PI_BFoto').LoadFromFile(PSRutImg,ftBlob);
ExecProc;
Así la descargo
Código Delphi
[-]
Var
LDmDAtos: TDmDatos; LsMensaje: String; 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