ActiveX y Word

Post Reply
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

ActiveX y Word

Post 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

#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
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Post by Patricio Avalos Aguirre »

Baje el ejemplo que antonio puso en el post

http://fivetechsoft.com/forums/viewtopi ... sc&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
User avatar
Taiwan
Posts: 218
Joined: Fri Oct 07, 2005 1:55 am
Location: Taipei, Taiwan
Contact:

Post by Taiwan »

Hello

What's version of FWH and xHarbour?

Richard
Rochinha
Posts: 309
Joined: Sun Jan 08, 2006 10:09 pm
Location: Brasil - Sao Paulo
Contact:

Post by Rochinha »

Amiguinho

Tentas antes:

Code: Select all

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 )
Post Reply