Abrir Archivos PDF VER 9.03

[Dioni]

Hola amigos no se como abrir un archivo PDF en la version 9.03

#include "FiveWin.ch"
local oWnda, oActiveX
DEFINE WINDOW oWnda title "Contratos La Quinta" mdichild
oActiveX = TActiveX():New( oWnda, "AcroPDF.PDF.1" )
oWnda:oClient = oActiveX
oActiveX:Do("LoadFile","\\servidor\planilla\contratos\100101.pdf" )
oActiveX:Do("SetCurrentPage", 1 )
ACTIVATE WINDOW oWnda maximized

en la version 7.5 abre perfectamente.

Gracias por la ayuda.

[mmercado]

Hola Dioni:

Hola amigos no se como abrir un archivo PDF en la version 9.03

El siguiente ejemplo (el tuyo con pequeños cambios) funciona perfectamente con FWH 9.03

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()
   local oWnda, oActiveX
   DEFINE WINDOW oWnda title "Contratos La Quinta" // mdichild ...no puede ser mdichild sin petenecer a una ventana mdi
   oActiveX = TActiveX():New( oWnda, "AcroPDF.PDF.1" )
   oWnda:oClient = oActiveX
   oActiveX:Do("LoadFile","Test.pdf" ) // \\servidor\planilla\contratos\100101.pdf"
   oActiveX:Do("SetCurrentPage", 1 )
   ACTIVATE WINDOW oWnda maximized

return nil

Un abrazo.

[Patricio Avalos Aguirre]

Hola

Alguna sugerencia como hacerlo con FoxIt Reader y active X

[Manuel Aranda]

Ya sé que no es exactamente lo que se pregunta, pero por si acaso te es útil, yo hace tiempo que no utilizo activeX para abrir ficheros pdf,

me pasé a ShellExecute( ,"open", cFicheroPdf,,,1 )

y desde entonces no tengo problemas.