Ver Mensaje Individual
  #3  
Antiguo 14-11-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Esta es la forma que yo opero con archivos, no es con los componentes UniDAC pero supongo que para todos es la misma,

Para guardarlo:

Código Delphi [-]
var
  LStream: TStream;
begin
  LStream := TFileStream.Create(RutaAlPdf, fmOpenRead);
  try
    Parameters.ParamByName('PDF').LoadFromStream(LStream , ftVarBytes);
  finally
    LStream .Free;
  end;
end;

Para obtener el archivo:

Código Delphi [-]
procedure DownloadPdf(const RutaDescarga: string);
var
  LQuery: TXXXQuery; // componente unidac, ado, etc para ejecutar consultas
begin
  LQuery := .... // crear query, configurar la conexion...
  try
    LQuery.SQL.Text := ' SELECT * FROM Archivo '; // ejecutamos una consulta SQL, podria tener WHERE, etc...
   LQuery.Open; // abrimos
   TBlobField(LQuery.FieldByName('Dato')).SaveToFile(RutaDescarga);
  finally
    LQuery.Free;
  end;
end;
Responder Con Cita