Mostrar un PDF en un formulario con "Shell.Explorer.2"

[Jose Antonio Blasco]

Buenas tardes,

He incluido en un formulario de mi aplicación, el objeto "Shell.Explorer.2" para mostrar en el diferentes archivos PDF, cuya ruta y nombre tengo almacenados en una tabla.

Si lo manejo desde el IDE funciona correctamente, mostrando los diferentes PDF's conforme me desplazo por la tabla, pero si genero el "exe" y lo ejecuto desde la misma carpeta, no muestra ningún error, pero no se muestran los PDF's.

No sé cual puede ser el problema, porque además, detecto que con el "exe", al salir del formulario tarda como 12 o 14 segundos en cerrarse, cuando desde IDE es inmediato.

¿ Alguien tiene idea de que puede estar pasando ?

José A. Blasco

VFP9 SP2  Vers. 7423

Zaragoza - España

[jorgeg...@gmail.com]

Que tal José.

Oracle Outside in Viewer ActiveX

http://docs.oracle.com/outsidein/854/index.html

Yo trabajo con esta dll OutsideX32_855 de oracle free y permite visualizar e imprimir archivos pdf, doc, xls, jpg, bmp

Saludos....

[Zarlu]

Buenos días José!

Uso el mismo control.

En ejecución me presenta el retardo al iniciar el formulario y cargar el primer PDF. Retardo mínimo.

Después del primero el cambio a otro PDF es "rápido". Los otros PDF están en el mismo directorio en red.

Lo parché en el GoFoucs() del Form para  distraer al usuario:

*para dar tiempo se cargue primer pdf al abrir formulario
IF ThisForm.Tag=="cargado"
        waitscale("Cargando archivos PDF, espere por favor . . .","TIMEOUT 2 WINDOWS")
        Thisform.grid1.SetFocus
        ThisForm.Tag="listo"
EndIf

Probare cambiando a PDF en otro directorio

Suerte

zarlu

Chetumal, Quintana Roo, México

[Jose Antonio Blasco]

Gracias a los dos por las sugerencias.  Voy a continuar haciendo pruebas con las indicaciones.

Ya os diré.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c8205a45-cb6e-4b50-8297-c74695a8fff2n%40googlegroups.com.

[Jose Antonio Blasco]

No hay manera Zarlu, no es que tenga un retardo, es que, con el "exe", no llega a mostrar nada, después de esperar varios minutos.  Tampoco muestra ningún mensaje de error.  Parece estar todo registrado correctamente, pero no sé que diferencia puede haber entre ejecutarlo desde el IDE o el "exe" generado en la misma carpeta.

Seguiré probando.

Jorge, he estado mirando el ActiveX de Oracle pero no me queda claro que componente tengo que descargar y como usarlo.  Además parece que la instalación tiene su complejidad, pero lo miraré más tranquilamente.

Un saludo a ambos.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

[HernanCano]

Jose:

Verifica si en los comandos que estás usando hay TRY/CATCH. Mira cómo los desactivas para que salgan (se vean) los errores.

También mira cómo incluyes AERROR() de manera que tengas otra forma de capturar los errores.

[Zarlu]

Qué tal José!

Muestra como lo cargas.

Quizá agregando un form sólo para eso y crear el exe.

Otras opciones:

https://www.sumatrapdfreader.org/download-free-pdf-viewer.html

https://mupdf.com/

zarlu

Chetumal, Quintana Roo, Mexico

[jmn...@gmail.com]

Estimado prueba con esto, le pasas como parámetro la ruta y nombre de archivo, no solo sirva para pdfs, también previsualizar documentos de  Word, Excel, jpg, etc

 

 

PROCEDURE File_Form

****************************

PARA XNAMEDOC

XNAMEDOC = ALLTRIM(XNAMEDOC)

 

IF ATC(' ',XNAMEDOC) > 0

   XNAMEDOC = NameCortoFile(XNAMEDOC,1)

Endi 

_Vfp.AutoYield = .F.

Public oFormWord

oFormW = Createobject("formword")

oFormW.Show()

 

*- Definición de la clase formword

Define Class formword As form &&BASEFORM

      Add Object oleWebWrowser As IEClass With Name = "oleWebBrowser"

    

      Procedure Resize

            This.oleWebBrowser.Height = This.Height

            This.oleWebBrowser.Width = This.Width

      Endproc

 

      Procedure Init

            This.Height = _vfp.height-200

            This.width = _vfp.width-50

            This.autocenter = .t.

            *This.icon = 'graficos\excel.ico'

            This.icon = 'graficos\camera.ico'

            This.Caption = ' '

            This.BorderStyle = 3

            This.Closable = .t.

            This.maxbutton = .T.

            This.minbutton = .f.

            With This.oleWebBrowser

                  .Top = 0

                  .Left = 0

                  .Navigate(XNAMEDOC)

            Endwith

            This.Resize()

            this.windowtype = 1

      Endproc

Enddefine

 

 

*- Definición de la clase IEClass

Define Class IEClass As OleControl

      OleClass = "Shell.Explorer.2"

 

      Procedure Init

            This.Navigate("about:blank")

      Endproc

 

      Procedure Refresh

            Nodefault

      Endproc

Enddefine

 

 

 

 

 

Saludos cordiales,

 

Manuel Navarro

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/015d4412-5d4c-4296-8f07-aedcd09807dan%40googlegroups.com.

Libre de virus. www.avast.com

[ZeRoberto]

Hola Jose Antonio

No es que no lo abra sino que a la primera vez demora en cargar el Adobe Reader y a no lo muestra en su reemplazo muestra una pantalla oscura, a veces hay que maximizar el formulario para que se muestre la hoja.

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/45563fbe-e2b6-4b88-aece-cc0187dc0296n%40googlegroups.com.

[Jose Antonio Blasco]

Gracias a todos por las sugerencias.  

Todos los ejemplos que pasais funcionan correctamente, de hecho, como ya he comentado, también el mío, "siempre que lo pruebe desde el IDE".  Todo cambia cuando genero el "exe" y ejecuto éste desde la misma carpeta, por si faltase algo de incluir en el proyecto.

ZeRoberto, no es que se demore en cargar la primera vez, porque he llegado a esperar 10' mirando la pantalla como un "gilip...." y no ocurre nada.

Por concretar más, el formulario es un ABM de un fichero, que también incluye entre sus campos, uno con la ruta donde se encuentra un PDF asociado a la información de cada registro.  En mi formulario, además de los diferentes textbox para el resto de los campos, también incluyo un objeto "Shell.Explorer.2", donde mostrar el PDF.   Si ejecuto la aplicación desde el IDE (con "DO INI.PRG" que es mi prg inicial), entrando al formulario en cuestión, se muestra tras un par de segundos el PDF asociado al primer registro, y si voy pulsando en "Siguiente" o "Anterior", va apareciendo el PDF asociado al registro que se muestra sin problemas.  Cuando genero el "exe" de dicho proceso, y lo ejecuto, puedo seguir moviéndome sin problemas por los diferentes registros, pero los PDF's asociados no se muestran.

La rutina que carga el PDF en el objeto ("thisform.vista.pdf" en mi caso) es la siguiente:

NOTA: "cPdfFileName" contiene la ruta y nombre del PDF, y cuando llega a esta rutina, ya he comprobado que dicho PDF exista.

Lparameters cPdfFileName

*

Local lnSeconds

*-- Limipiar navaegador

Thisform.vista.pdf.Navigate2("about:blank")

*-- Espera hasta completar

lnSeconds = Seconds()

Do While (Thisform.vista.pdf.Busy Or Thisform.vista.pdf.ReadyState <> 4) ;

AND (Seconds() - lnSeconds) < 30

DoEvents

Enddo

* Cargar PDF

If !Empty(cPdfFileName)

*

thisform.LockScreen = .T.

WITH thisform.vista.pdf

.left = 1

.top = 1

.height = .parent.height - 2

.width = .parent.width - 2

endwith

thisform.LockScreen = .F.

*

Wait Window Nowait NOCLEAR "Cargando Plano ..."

Thisform.vista.pdf.Navigate2(cPdfFileName)

*-- Espera hasta completar

lnSeconds = Seconds()

Do While (Thisform.vista.pdf.Busy Or Thisform.vista.pdf.ReadyState <> 4) ;

AND (Seconds() - lnSeconds) < 30

DoEvents

Enddo

Wait Clear

thisform.vista.BackStyle = 0

thisform.vista.pdf.SetFocus()

Endif

Mi rutina de errores sigue el método antiguo con "ON ERROR DO ..", tal vez podría cambiar la carga del PDF usando "TRY...CACH".

Como el plazo de entrega se acerca, he tenido que cambiar la pantalla, incluyendo un botón que con "WScript.Shell.Run" le paso la ruta y nombre del PDF y lo abre con la app asociada (Adobe Reader) sin problemas, tanto desde el IDE como con el "exe", pero el resultado, aunque operativo, me parece peor y me gustaría saber como solucionarlo.

Gracias a todos por vuestro interés.  Si consigo solucionarlo, os lo comentaré.

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8rvEv46%3DCSz3J46bpFBpd3wEmqwuzU4dS52q14%2BcxdYeQ%40mail.gmail.com.

[Zarlu]

Buenos días José!

Te sugiero crear un ejecutable con sólo un formulario y con sólo esa rutina.

La idea es descartar que el entorno de tu aplicación original lo este afectando.

Suerte

zarlu

Chetumal, Quintana Roo, México

[Esteban Herrero]

Hola José.

Yo utilizo un método q guardo en una clase llamada rutinas q se llama abrirpdf y es así:

PARAMETERS lcFile
LOCAL loShell
loShell = CREATEOBJECT("Shell.Application")
loShell.ShellExecute(lcFile)
RELEASE loShell

abre el acrobat reader con el pdf...

Lo q te pasó Jorge (librería Oracle), es interesante, voy a hacer algun prueba cuando tenga tiempo p ver.

Saludos

Esteban

[Daniel Sánchez]

Manda un wait  cPdfFileName window nowait

para que veas si va el nombre del archivo con la ruta correcta, eso solo para que verifiques luego si esta correcto lo quitas

Saludos

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFg9aWzSkjSA5ZNpramYzXX-4RcwHzNijzJ%2B26%2Br-hWOA7R-bg%40mail.gmail.com.

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software SAC
Móvil y WhatsApp +051-949398047 / Móvil 948615385
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[jorgeg...@gmail.com]

Jose es super sencillo y poderoso.

Jorge, he estado mirando el ActiveX de Oracle pero no me queda claro que componente tengo que descargar y como usarlo.  Además parece que la instalación tiene su complejidad, pero lo miraré más tranquilamente.

esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c8205a45-cb6e-4b50-8297-c74695a8fff2n%40googlegroups.com.

[ZeRoberto]

Hola Jose me he dado cuenta que se demora en esta parte

*-- Espera hasta completar

lnSeconds = Seconds()

Do While (Thisform.vista.pdf.Busy Or Thisform.vista.pdf.ReadyState <> 4) AND (Seconds() - lnSeconds) < 30

  DoEvents

Enddo

Si le disminuyes a 5 segundos te vas a dar cuenta que es un poco más rápido

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFg9aWzSkjSA5ZNpramYzXX-4RcwHzNijzJ%2B26%2Br-hWOA7R-bg%40mail.gmail.com.

[ZeRoberto]

Y como se descarga no encuentro ningun link

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/984b38c4-1caf-4857-927c-c84c80f66e03n%40googlegroups.com.

[ZeRoberto]

 Jose Antonio me he dado cuenta que si quitas toda esa sección el pdf te cargará más rápido, pero te recomiendo que lo lances desde un timer

Ejemplo

Al Timer ponle un intervalo de 10

Procedure btnVer.Click()

   ThisForm.NombrePdf = dbTable.NombrePdf
   ThisForm.tmrLanzador.Enabled = .T.

EndProc

Procedure tmrLanzador.Timer()

   This.Enabled = .F.
   With ThisForm.ocxVisor
        .Navigate(ThisForm.NombrePdf)
        .Refresh()
   EndWith

EndProc

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

El jue, 17 feb 2022 a la(s) 10:03, Jose Antonio Blasco (jabl...@gmail.com) escribió:

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/45563fbe-e2b6-4b88-aece-cc0187dc0296n%40googlegroups.com.

[Miguel A.]

Creo que puede ser porque no esté abriendo pdf.ocx que debería y que está abriéndolo con el ocx de tu versión de Acrobat.

Saludos maño!

Miguel

[jorgeg...@gmail.com]

Aqui esta el link y un ejemplo

https://www.dropbox.com/s/bpyq66fmg0g1e4v/ax_855_sample.rar?dl=0

[ZeRoberto]

Me asombra la velocidad con la que abre un PDF pero a los XML no los abre como debe ser

Saludos

Ze

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/07772727-04a8-4934-af81-13a72687decan%40googlegroups.com.

[Edwin Duran]

Saludos gracias por el aporte, veo que no solo pdf también otros archivos, por casualidad tienes la documentación del ocx

[HernanCano]

https://groups.google.com/g/publicesvfoxpro/c/gWf56G0BT-k/m/fLaUkSIGBQAJ

[HernanCano]

https://www.berezniker.com/content/pages/visual-foxpro/view-pdf-vfp-form

[jorgeg...@gmail.com]

Aqui esta el pdf Edwin Duran, si lee varios formatos, pdf, doc, xls, jpg, bmp, corel, autocad.....

https://www.dropbox.com/s/9iec8m5nh1y5ksb/OIVWX.pdf?dl=0

[Edwin Duran]

Gracias

[Jose Antonio Blasco]

Jorge, funciona perfecto, y como ya ha dicho algún compañero es muy rápido en la carga.

!! Muchas gracias !!.

Voy a probar también el resto de sugerencias.

Gracias a todos.

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

El lun, 21 feb 2022 a las 16:08, HernanCano (<jherna...@gmail.com>) escribió:

https://www.berezniker.com/content/pages/visual-foxpro/view-pdf-vfp-form

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/0b1cbcf8-48d3-43d7-823a-9c29f578a4a5n%40googlegroups.com.

[Victor Espina]

Tienes a mano el link para descargar ese Viewer?   Lo busque pero no pude encontrarlo.  Se ve bien interesante.

Victor Espina

[Victor Espina]

Gracias!!

[Zarlu]

Buenas tardes maestro Victor!

A lo de oracle se refiere?

Quizá por acá:

https://www.dropbox.com/s/bpyq66fmg0g1e4v/ax_855_sample.rar?dl=0

Suerte

zarlu

Chetumal, Quintana Roo, México