Consultar un Archivo PDF en una Forma

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