Almacenar y bajar PDF en MYSQL Delphi 2010 desktop

[[AgustinOrtu]]

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;