Abrir PDF almacenado en la base de Datos

[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

[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;

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

Algo así debería valer...

Código Delphi [-]
  // Crear una query para buscar el registro
  qInsert.SQL.Add('select * from ficheros where Nombre=:nombre');
  qInsert.ParamByName('nombre').AsString := FDQuery1.FieldByName('nombre').AsString;
  qInsert.Open;
  // Utiliza un TBlobField para grabarloa disco (a la inversa de como has hecho para gusrdarlo)
  TBlobField(qInsert.FieldByName('fichero')).SaveToFile('c:\temp\fichero_salida.pdf');

[giantonti1801]

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

Algo así debería valer...

Código Delphi [-]
  // Crear una query para buscar el registro
  qInsert.SQL.Add('select * from ficheros where Nombre=:nombre');
  qInsert.ParamByName('nombre').AsString := FDQuery1.FieldByName('nombre').AsString;
  qInsert.Open;
  // Utiliza un TBlobField para grabarloa disco (a la inversa de como has hecho para gusrdarlo)
  TBlobField(qInsert.FieldByName('fichero')).SaveToFile('c:\temp\fichero_salida.pdf');

Excelente pero con eso logro guardarlo nuevamente en disco pero como hago para abrirlo? no quisiera que el usuario tenga que seguir la ruta para abrirlo con un dobleclick sobre el archivo. la idea es que se abra automaticamente.

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

Empezado por giantonti1801

Excelente pero con eso logro guardarlo nuevamente en disco pero como hago para abrirlo? no quisiera que el usuario tenga que seguir la ruta para abrirlo con un dobleclick sobre el archivo. la idea es que se abra automaticamente.

Usa ShellExecute

https://www.clubdelphi.com/foros/sho...69&postcount=1