Consultar un Archivo PDF en una Forma

[adls65]

Hola, como puedo hacer una consulta de un Archivo PDF dentro de mi aplicacion (solo abrir el archivo PDF, no modificar) en una forma independiente, encontre aqui mismo en el CLUB lo siguiente:

ShellExecute(nombre_del_form.Handle,nil,PChar('c:\archivo.pdf'),'','',SW_SHOWNORMAL);

y si funciona , pero me abre el PDF como si lo ejecutara desde windows, normal.

Tengo DELPHI 6 y el Sistema Operativo WIN 7 PRO.

Muchas Gracias.

[ecfisa]

Hola adls65.

Busca en los foros por el componente TAcroPDF que realiza justamente lo que deseas.

Aquí los pasos para agregarlo: Use Adobe Acrobat (PDF) Files in a Delphi Application

Saludos

[radenf]

Estimados adls65 y ecfisa:

El componente TAcroPDF ya no tiene soporte para aplicaciones de 32 bits y genera un AccessViolation con la última versión de Adobe Reader.
Yo no recomiendo utilizarlo hasta que Adobe solucione el problema de compatibilidad y al parecer no pretenden hacerlo.
De hecho el código que muestra adls65 es el adecuado para visualizar archivos PDF, ya que es la API de Windows quien se encarga de lidiar con el visor PDF determinado del sistema.
Para más información en estos links:

http://helpx.adobe.com/acrobat/kb/vb...sue-11007.html

https://forums.adobe.com/message/6400765#6400765

Saludos

[ecfisa]

Hola radenf.

No estaba al tanto, gracias por el dato

Saludos

[ecfisa]

Hola.

Leyendo los enlaces que amablemente nos facilitó radenf, vi la sugerencia de reemplazar por un TWebBrowser para mostrar el archivo .pdf dentro de un form. Y pude comprobar que lo hace correctamente en Win 32 y Adobe Reader v 11.0.07.79.

Saludos

[[nlsgarcia]]

adls65,

Empezado por adls65

...como puedo hacer una consulta de un Archivo PDF dentro de mi aplicación...

Revisa este código:

Código Delphi [-]
 unit Unit1;
 
 interface
 
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, OleCtrls, SHDocVw;
 
 type
   TForm1 = class(TForm)
     WebBrowser1: TWebBrowser;
     Button1: TButton;
     Button2: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.dfm}
 
 // Load PDF Files
 procedure TForm1.Button1Click(Sender: TObject);
 var
    openDialog : TOpenDialog;    // Open dialog variable
 begin
    openDialog := TOpenDialog.Create(self);
    openDialog.InitialDir := GetCurrentDir;
    openDialog.Options := [ofFileMustExist];
    openDialog.Filter := 'PDF files|*.pdf';
    openDialog.FilterIndex := 1;
    if openDialog.Execute then
       WebBrowser1.Navigate('file://' + openDialog.FileName);
 end;
 
 // UnLoad PDF Files
 procedure TForm1.Button2Click(Sender: TObject);
 begin
    WebBrowser1.Stop;
 end;
 
 end.

El código anterior en Delphi7 sobre Windows 7 x32, visualiza archivos PDF en el componente TWebBrowser como se muestra en la siguiente imagen:



Revisa esta información:

ActiveX AcroPdf no funciona

Espero sea útil

Nelson.

[radenf]

Empezado por ecfisa

Leyendo los enlaces que amablemente nos facilitó radenf, vi la sugerencia de reemplazar por un TWebBrowser para mostrar el archivo .pdf dentro de un form. Y pude comprobar que lo hace correctamente en Win 32 y Adobe Reader v 11.0.07.79.

En Windows7 64 bits el uso del WebBrowser con el código de nlsgarcia no me funciona con la última versión de Adobe Reader y congela la aplicación.
Saludos