Abrir PDF almacenado en la base de Datos

[giantonti1801]

Empezado por Neftali [Germán.Estévez]

Pon el código de cómo lo has guardado en Base de Datos.
La forma de recuperarlo y abrirlo debería ser análoga a como lo guardas.

Si utilizas el disco para guardar temporalmente el fichero para guardarlo y recuperarlo, asegúrate de:

• Que utilizas un directorio accesible por permisos para el usuario (directorio temporal)
• Que lo borras después de utilizarlo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s1:tStream;
filtro :string;
begin
          frxPDFExport1.FileName := 'c:\Test.pdf';
          frxReport1.PrepareReport();
          frxReport1.Export(frxPDFExport1);
          //frxReport1.SaveToStream(s1);
           UniQueryFichaDoc.close;
          UniQueryFichaDoc.SQL.Clear;
          UniQueryFichaDoc.SQL.Add('Insert into fichadoc (REGPAC, TIPODOCUMENTO, DOC, MEDPRES)');
          UniQueryFichaDoc.SQL.Add('VALUES (:REGPAC, :TIPODOCUMENTO, OC, :MEDPRES )');
          UniQueryFichaDoc.ParamByName('REGPAC').AsString := '2';
          UniQueryFichaDoc.ParamByName('TIPODOCUMENTO').AsString := 'RECIPE MEDICO2';
          UniQueryFichaDoc.ParamByName('DOC').LoadFromFile(frxPDFExport1.FileName, ftBlob);
          UniQueryFichaDoc.ParamByName('MEDPRES').AsString := 'MEDICO2';
          UniQueryFichaDoc.ExecSQL;

end;