Almacenar y bajar PDF en MYSQL Delphi 2010 desktop

[marvajes]

Muchas gracias por tu ayuda AgustinOrtu, primeramente por la corrección, pues tenia una idea errónea del uso de try finally.
Con el tema de bajar el archivo, solo hice una pequeña modificación al código.

Insertar el archivo en la Base de datos

Código Delphi [-]
  var
  LStream: TStream;
begin
   SQL.SQL.Add('INSERT INTO ARCHIVOS VALUES(:ID,ATO)');
   SQL.ParamByName('ID').AsInteger:=1;
   SQL.ParamByName('DATO').LoadFromFile('1.pdf',ftblob);
    try
      Sql.ExecSQL;
    finally
        //ERROR
    end;
end;

Recuperar el archivo y almacenar en disco duro

Código Delphi [-]
var
  LStream: TStream;
begin
  LStream := TFileStream.Create('1.pdf', fmOpenRead);
    Sql.SQL.Add('SELECT * FROM ARCHIVOS');
  try
      SQL.Open; // abrimos
   TBlobField(SQL.FieldByName('NOMBRE')).SaveToFile('C:\u\1.pdf');
  finally
    LStream .Free;
  end;
end;

Cabe mencionar que inicialmente al recuperar el archivo, este aparecia corrupto o no mostraba el contenido y esto debido justamente como indicaste el limite, utilizado inicialmente BLOB ≈ 64KB, MEDIUMBLOB ≈ 16MB and LONGBLOB ≈ 4GB. Lo deje en MEDIUMBLOB y perfecto.
Muchas gracias por la ayuda amigo!.
Saludos.

[petercat]

Buenas Leyendo este post me cabe una duda.
Y si en vez de guardar el archivo en una ruta especifica pudiera abrirlo con AcroPDF??
Como podria hacerlo.
Yo puedo abrir archivos pdf desde rutas especificas pero en mi caso quiero abrir dicho archivo pdf pero desde la propia base de datos sin tener que llevarlo a ningun lugar del disco duro.


Esto es posible??

[Casimiro Notevi]

Crea un hilo nuevo con tu duda, no aportas nada a la solución de este hilo.
De todas formas, haz una búsqueda por los foros, es un tema que se ha tratado otras veces.
No olvidas repasar nuestra guía de estilo, gracias