Ver Mensaje Individual
  #18  
Antiguo 25-10-2012
Avatar de kurono
[kurono] kurono is offline
Miembro Premium
 
Registrado: jul 2007
Ubicación: Republica Dominicana
Posts: 1.144
Reputación: 21
kurono Va por buen camino
el codigo que utilize fue el mismo que mencione al principio del hilo

Código Delphi [-]
// De archivo en disco a campo BLOB 
TBlobField(ADOTable1.FieldByName('pdf')).LoadFromFile('archivo.pdf'); 
 // De campo BLOB a archivo en disco 
TBlobField(ADOTable1.FieldByName('pdf')).SaveToFile('archivo.pdf');

este es un ejemplo de como lo utilize en mis codigo de pruebas

para guardar en la base de datos

Código Delphi [-]
 
begin
  try
     TBlobField(ADOTable1.FieldByName('archivos')).LoadFromFile(Open.FileName);
   finally
     ADOTable1.Post;
     ShowMessage('archivo guardado');
   end;
end;


y este es para guardar de la base de datos al disco

Código Delphi [-]
 
begin
  TBlobField(ADOTable1.FieldByName('archivos')).SaveToFile('C:\'+ DBEdit1.Text+'.exe');
  ShowMessage('archivo guardado');
end;

Última edición por kurono fecha: 25-10-2012 a las 21:36:00.
Responder Con Cita