Abrir PDF almacenado en la base de Datos

[giantonti1801]

Hola amigo gracias a la ayuda del foro logre convertir y guardar un archivo desde fastreport a mi tabla de SQL SERVER en el campo varbinaryMax y hasta allí no tengo ningún problema aunque no logre hacerlo realmente como quería ya que para lograrlo tuve que crear un archivo en el directorio C:\ luego tomar este archivo y guardarlo uno de mis temores es que tenga algún inconveniente si en un futuro compilo para android o Iphone pero en este momento quisiera resolver el tema de abrir esta archivo que esta guardado en el campo varbinaryMax que se supone debe ser un PDF

Código Delphi [-]
 UniQueryFichaDoc.ParamByName('DOC').LoadFromFile(frxPDFExport1.FileName, ftBlob);

[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