Ver Mensaje Individual
  #3  
Antiguo 27-08-2008
Avatar de poliburro
[poliburro] poliburro is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: México D.F
Posts: 3.068
Reputación: 23
poliburro Va por buen camino
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
__________________
Conoce mi blog http://www.edgartec.com
Responder Con Cita