Page 1 of 1

ActiveX y Word

PostPosted: Fri Dec 15, 2006 8:50 pm
by Patricio Avalos Aguirre
Estimado

Estoy compilando el ejemplo fwh\samples\word y me mando error de memoria no se puede leer...blabla..

pero compilo los otros ejemplos y funcionan bien

Code: Select all  Expand view
#include "FiveWin.ch"

function Main()

   local oWnd, oActiveX

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"

   oActiveX = TActiveX():New( oWnd, "Word.Application.8" )

   alert( oActivex:Classname )


   oWnd:oClient = oActiveX // To fill the entire window surface

   ACTIVATE WINDOW oWnd

return nil


ahora el nombre "Word.Application.8", depende de alguna version en especial?, ya que tengo office2003

Bueno en realidad lo que quiero hacer es enviar un documento y luego que lo impriman


saludos
Patricio

PostPosted: Fri Dec 15, 2006 9:34 pm
by Patricio Avalos Aguirre
Baje el ejemplo que antonio puso en el post

http://fivetechsoft.com/forums/viewtopic.php?t=4404&postdays=0&postorder=asc&start=0

http://hyperupload.com/download/0287ba6816/pdf.zip.html

y me salio el mismo error

http://img457.imageshack.us/my.php?image=activexeo9.jpg

Ahora la pregunta, al utilizar activeX y cambien de version los usuarios, puede provocar que salga este error??


Saludos
Patricio

PostPosted: Sat Dec 16, 2006 3:20 am
by Taiwan
Hello

What's version of FWH and xHarbour?

Richard

PostPosted: Sat Dec 16, 2006 4:18 am
by Rochinha
Amiguinho

Tentas antes:

Code: Select all  Expand view
if IsActivex( "Word.Application.8" )
   cString := "Word.Application.8"
endif
if IsActivex( "Word.Application.9" )
   cString := "Word.Application.9"
endif
if IsActivex( "Word.Application.10" )
   cString := "Word.Application.10"
endif
if IsActivex( "Word.Application.11" )
   cString := "Word.Application.11"
endif
oActiveX = TActiveX():New( oWnd, cString )