Consultar un Archivo PDF en una Forma

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

[adls65]

Quiero agradecer a radenf, ecfisa y nlsgarcia por sus amables comentarios asi como de tomarse el tiempo para ayudarme, la opcion de nlsgarcia me funciono exactamente para mis necesidades.

Muchas gracias al CLUB y a uds principalmente.

[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

[ecfisa]

Empezado por radenf

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

Hola radenf.

No tuve oportunidad de probarlo en W 64 bits, pero ya enterado de tu prueba, la solución para ambas plataformas debe ser ShellExcecute como comentaste anteriormente.

Saludos

[radenf]

Empezado por ecfisa

No tuve oportunidad de probarlo en W 64 bits, pero ya enterado de tu prueba, la solución para ambas plataformas debe ser ShellExcecute como comentaste anteriormente.

Es la única que a mí me funciona.
Otra opción que probé es utilizar un OleContainer, que abre casi cualquier archivo, pero desafortunadamente no logré redimensionar el archivo Pdf y la calidad de la visualización no terminó de gustarme.
Saludos

[[nlsgarcia]]

radenf,

Empezado por radenf

...En Windows 7 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...

Te comento:

1- El código propuesto en el Msg #6 no funciona correctamente en Delphi 7 bajo Windows 7 Professional x64 y Acrobat Reader 11.0.03

2- Si se compila el código propuesto en el Msg #6 en Delphi 7 bajo Windows 7 Professional x32 y se ejecuta en Windows 7 Professional x64 funciona correctamente.

3- El código propuesto en el Msg #6 funciona correctamente en Delphi 2010 bajo Windows 7 Professional x64 y Acrobat Reader 11.0.03

4- El código propuesto en el Msg #6 funciona correctamente en Delphi XE4 bajo Windows 7 Professional x64 y Acrobat Reader 11.0.03 si se compila en 32 Bits y no funciona correctamente si se compila en 64 Bits.

Pregunto:

1- ¿Puedes compilar en 32 Bits y ejecutar en 64 Bits el código propuesto en el Msg #6?.

2- ¿Que versión de Delphi utilizas?.

3- ¿Probastes el código propuesto en el Msg #10 del hilo ActiveX AcroPdf no funciona?

Espero sea útil

Nelson.

[radenf]

Empezado por radenf

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

Me corrijo.
Para que funcione el código, en el WebBrowser1 debe colocarse la propiedad Silent:= True;

Saludos

[[nlsgarcia]]

radenf,

Empezado por radenf

...Para que funcione el código, en el WebBrowser1 debe colocarse la propiedad Silent:= True...

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;
begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'PDF files|*.pdf';
   openDialog.FilterIndex := 1;
   if openDialog.Execute then
   begin
      WebBrowser1.Silent := True;
      WebBrowser1.Navigate('file://' + openDialog.FileName);
   end;
end;

// UnLoad PDF Files
procedure TForm1.Button2Click(Sender: TObject);
begin
   WebBrowser1.Stop;
end;

end.

El código anterior en Delphi7, Delphi 2010 y Delphi XE4 sobre Windows 7 Professional x32 y x64, visualiza archivos PDF en el componente TWebBrowser.

Nota del Msg #13 : El componente TAcroPDF de Adobe Reader 11.0.07, funciona en Delphi 7 solo si es ejecutado directamente desde el ejecutable, en modo Debug no funciona.

Espero sea útil

Nelson.