Visualizar PDF

[fglez]

Estimados Consultores:
Quiero utilizando un boton de ayuda ?, el cual una vez que se active, se
despliegue un archivo PDF (Manual de Operacion) de ayuda de la misma manera
que en el IDE de Xailer, que tenga su propia ventana, podrian ayudarme con
alguna sugerencia de como lo mando desplegar.
Gracias Francisco

[Bingen Ugaldebere]

Tienes que generar integrar en tu aplicación el OCX del navegador de
Internet WebBrowser.Ocx y en un componente de tipo Page que integras en
un Form lo presentas de esta manera:
cDocumento:=".Documentos PdfDocumento a presentar.Pdf"
cDocumento:=StrTran(cDocumento,".","")
cDocumento:=StrTran(cDocumento,"","/")
cDocumento:=StrTran(cDocumento," ","%20")
::oOcx:Navigate( "file:///"+cDocumento )
::oPage:Select()
Espero que te sirva y si no consigues entenderlo te preparo un ejemplo.
Salu2.

[Xevi]

Bingen,
Te agradecerí­a, por mi parte, el poder preparar un pequeño ejemplo, así­
también lo podrí­a integrar en mis aplicaciones.
Gracias.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje de noticias
news:47316d8c$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Tienes que generar integrar en tu aplicación el OCX del navegador de
> Internet WebBrowser.Ocx y en un componente de tipo Page que integras en un
> Form lo presentas de esta manera:
>
> cDocumento:=".Documentos PdfDocumento a presentar.Pdf"
> cDocumento:=StrTran(cDocumento,".","")
> cDocumento:=StrTran(cDocumento,"","/")
> cDocumento:=StrTran(cDocumento," ","%20")
> ::oOcx:Navigate( "file:///"+cDocumento )
> ::oPage:Select()
>
> Espero que te sirva y si no consigues entenderlo te preparo un ejemplo.
>
> Salu2.

[Angel]

Bingen Ugaldebere escribió:
> Tienes que generar integrar en tu aplicación el OCX del navegador de
> Internet WebBrowser.Ocx y en un componente de tipo Page que integras
> en un Form lo presentas de esta manera:
>
> cDocumento:=".Documentos PdfDocumento a presentar.Pdf"
> cDocumento:=StrTran(cDocumento,".","")
> cDocumento:=StrTran(cDocumento,"","/")
> cDocumento:=StrTran(cDocumento," ","%20")
> ::oOcx:Navigate( "file:///"+cDocumento )
> ::oPage:Select()
>
> Espero que te sirva y si no consigues entenderlo te preparo un ejemplo.
>
> Salu2.
Bingen, ¿supongo que así­ se conseguirí­a "incrustar" el pdf dentro de un
formulario? Opino que serí­a lo más correcto pues no se saldrí­a de la
aplicación.
Cuando he tenido que presentar PDF's en la aplicación, he establecido
una ruta que se le pasa como parametro a la función WinExec() y que ya
se encargue Windows de abrirla con el programa que tenga asociada la
extensión .PDF
cDocumento:=".Documentos PdfDocumento a presentar.Pdf"
WINEXEC(cDocumento,SW_HIDE) //La constante SW_HIDE es para que no nos
muestre la ventana de ejecución ms-dos.
De todas maneras, creo que para ambos ejemplos es necesario que este
instalado un visor de PDF's, aunque yo personalmente no uso Acrobat.

[Bingen Ugaldebere]

> Bingen, ¿supongo que así­ se conseguirí­a "incrustar" el pdf dentro de un
> formulario? Opino que serí­a lo más correcto pues no se saldrí­a de la
> aplicación.
Efectivamente
> Cuando he tenido que presentar PDF's en la aplicación, he establecido
> una ruta que se le pasa como parametro a la función WinExec() y que ya
> se encargue Windows de abrirla con el programa que tenga asociada la
> extensión .PDF
Si pero esto falla dependiendo de la versión de Acrobat Reader que tenga
el cliente instalado en su PC, es increí­ble pero a veces falla y no dice
nada y funciona a la segunda y otras veces ni sale ni nada.
Con el sistema que propongo sale siempre perfectamente.
> De todas maneras, creo que para ambos ejemplos es necesario que este
> instalado un visor de PDF's, aunque yo personalmente no uso Acrobat.
Efectivamente ha de estar instalado el Acrobat Reader de la versión que
sea y mas concretamente su activex para Internet que es en realidad lo
que lanzo.
Lo uso en varias aplicaciones muy grandes pero en cuanto pueda preparo
un ejemplo mas pequeño y lo pongo aquí­.
Salu2.

[antonio.ortega]

¿ Se puede distribuir el Activex de acrobat, con nuestra aplicación ?, lo
pregunto porque quizás sería conveniente que directamente abramos un nuevo
formulario con el activex del acrobat, sin necesidad de pasar por el
navegador.
Antonio F. Ortega

[Bingen Ugaldebere]

Aquí­ os dejo un ejemplo de como se visualiza un PDF.
OJO al evento :Size del form por que en cuanto cambias el tamaño del
form como no vuelvas a recargar en pdf se desmadra el tema.
Salu2.
--

[Xevi]

Bingen,
Gracias.
Un Saludo,
Xevi.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje de noticias
news:4731ac09$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Aquí­ os dejo un ejemplo de como se visualiza un PDF.
>
> OJO al evento :Size del form por que en cuanto cambias el tamaño del
> form como no vuelvas a recargar en pdf se desmadra el tema.
>
> Salu2.
>
>

[jasm]

Bingen,
Se me abre una ventana a parte para mostrar el PDF ¿es correcto?
Saludos
Jose A. Suarez

[Bingen Ugaldebere]

Se muestra el PDF en el PAGE inferior de la propia ventana donde se
despliega un Ocx Internet Webbrowser, no en una ventana separada.
Al menos con Adobe acrobat 6, 7 u 8.
¿Que versión de Adobe Acrobat tienes instalada?
Salu2.

[desarrollo]

Lo vemos en Madrid.
Creo que es la 5 (por aquello del OCX). Actualizo y pruebo.
"Bingen Ugaldebere" <bingen@muninser.com> escribió en el mensaje
news:4732be4a$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Se muestra el PDF en el PAGE inferior de la propia ventana donde se
> despliega un Ocx Internet Webbrowser, no en una ventana separada.
>
> Al menos con Adobe acrobat 6, 7 u 8.
>
> ¿Que versión de Adobe Acrobat tienes instalada?
>
> Salu2.

[xAvi]

Gracias Bingen,
De paso sirve para ilustrar un pequeño error de TOcx creo, cuando no localiza el CLSID.
Basta con cambiar en TWebBrowser.prg "ShEll" por "ShAll" que probablemente no esté registrado .-
....
PROPERTY cCLSID INIT "Shall.Explorer.2"
....
Para obtener .-
#1: GPF (Code = c0000005):
Access violation
OLEADDREF (0)
TOLEAUTO:NEW (321)
TWEBBROWSER:CREATE (68)
TFORM1:FORMINITIALIZE (34)
TFORM1:ONINITIALIZE (0)
TFORM1:NEW (183)
MAIN (14)
No tiene mucha importancia.
Un saludo
Xavi