Ver Mensaje Individual
  #3  
Antiguo 23-02-2023
giantonti1801 giantonti1801 is offline
Miembro
 
Registrado: oct 2022
Posts: 143
Reputación: 2
giantonti1801 Va por buen camino
Cita:
Empezado por Neftali [Germán.Estévez] Ver Mensaje
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;
Responder Con Cita