Pdf Acrobat 11

[shoulder]

Lo solucione como me han dicho ustedes con el TBrowser y oculte la toolbar y la toolbar de navegacion gracias!!!.

archivo := archivo+'#toolbar=0&navpanes=0&scrollbar=0' ;
WebBrowser1.Navigate('file:///'+archivo);

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...Lo solucione...con el TWebBrowser...oculte la toolbar y la toolbar de navegación...

Te sugiero dejar activo el Scrollbar para facilitar la lectura del archivo PDF.

Revisa este código:

Código Delphi [-]
 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 + '#toolbar=0&navpanes=0&scrollbar=1');
    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, eliminando del View PDF el ToolBar, el Panel de Navegación y permitiendo el uso del ScrollBar.

Espero sea útil

Nelson.

[shoulder]

Gracias Nelson!!!, lo unico hay que tener en cuenta que en tiempo de compilacion no funciona, hay que ir directamente al exe generado.
tengo delphi 7 - Windows 7.

[[nlsgarcia]]

shoulder,

...hay que tener en cuenta que en tiempo de compilación no funciona, hay que ir directamente al exe generado...tengo Delphi 7...Windows 7...

El código del Msg #6 funciona correctamente en modo Debug y en RunTime (Ejecutable) en Delphi7, Delphi 2010 y Delphi XE4 sobre Windows 7 Professional x32 y x64, en Tiempo de Compilación no da ningún tipo de error o mensaje de advertencia.

Espero sea útil

Nelson.

[shoulder]

Hola, en Debug o compilacion no me funciona, no me da error, simplemente no me trae el PDF, en Run Time funciona perfecto.

[[nlsgarcia]]

shoulder,

Empezado por shoulder

...en Debug o compilación no me funciona, no me da error, simplemente no me trae el PDF, en Run Time funciona perfecto...

Pregunto:

1- ¿Que versión de Delphi 7 utilizas?.

2- ¿Que versión de Windows 7 utilizas?, ¿Es de 32 o 64 bits?.

3- ¿Estas usando el componente TWebBrowser de Delphi o otro componente?.

4- ¿Tienes la propiedad Silent del TWebBrowser en True?.

5- ¿Puedes publicar tu código?.

Espero sea útil

Nelson.

[shoulder]

Windows 7 32 bits - Delphi 7 Build 4.4.53
TWebBrowser el componente del ActiveX de Delphi

el codigo

Código Delphi [-]
archivo  := archivo+'#toolbar=0&navpanes=0&scrollbar=1' ;
WebBrowser1.Silent := True;
WebBrowser1.Navigate('file:///'+archivo);