Vikthor - Por favor - Preciso que funcione a TWORD!

Post Reply
AOKISANTOS
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am

Vikthor - Por favor - Preciso que funcione a TWORD!

Post by AOKISANTOS »

Vikthor, por favor meu amigo... Estou precisando muito fazer funcionar a TWORD no meu sistema...

Amigo, eu utilizo FWH2.5 + XHARBOUR 99.50 + BCC5.5.1

Com estas versões vou ter algum problema em compilar a TWORD?

A necessidade de anexar alguma LIB especial para a TWORD?

Antonio, Vikthor, muito obrigado por me responder...

Antonio, respondendo a sua pergunta... Eu nunca consegui fazer funcionar está comunicação com o WORD!... Tenho varias dúvidas:

1) Tenho que adicionar alguma LIB para que funcione ?
2) Eu anexei ao sistema a TWORDHB está certo? ou devo usar a TWORD?


Vikthor, por favor amigo...me ajude!!!
Estou precisando muito!!!

AOKISANTOS
PARANÁ - BRAZIL

*********************************************
Vikthor:
na TWORDHB o método NEW estava assim:

METHOD NEW() CLASS TWord
::lWord := .T.
#IFDEF __XHARBOUR__
TRY
::oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
::oWord := CreateObject( "Word.Application" )
CATCH
Alert( "ERROR! Word no está instaldo en esta PC.")
::lWord := .F.
END
END
#ELSE
::oWord := TOleAuto():New("Word.Application")
IF ::oWord:hObj == 0
Alert( "ERROR! Word no está instaldo en esta PC.")
::lWord := .F.
ENDIF
#ENDIF

RETURN( Self )

Então, ai mudei para ficar igual ao seu:
METHOD NEW() CLASS TWord
::lWord := .T.
TRY
::oWord := GetActiveObject( "Word.Application" )
CATCH
TRY
::oWord := CreateObject( "Word.Application" )
CATCH
Alert( "ERROR! Word no está instaldo en esta PC. [" + Ole2TxtError()+ "]" )
::lWord := .F.
END
END
RETURN( Self )

MAIS MESMO ASSIM, CONTINUA A ME DAR O ERRO:
Application
===========
Path and name: C:\XCARCERE\INQ\INQUERITO.EXE (32 bits)
Size: 2,324,992 bytes
Time from start: 0 hours 0 mins 30 secs
Error occurred at: 07/09/2006, 19:17:26
Error description: Error Word.Application/1829 Unknown error: VISIBLE
Args:

Stack Calls
===========
Called from TOLEAUTO:VISIBLE(0)
Called from (b)TWORD(140)
Called from TWORD:ISVISIBLE(0)
Called from CONTRATOWORD(27)
Called from PORDEUS(17)




:cry:
FWH25+XHARBOUR 99.50
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

AokiSantos,

Usa este ejemplo que funciona muy bien:
http://hyperupload.com/download/0167295 ... N.PRG.html
regards, saludos

Antonio Linares
www.fivetechsoft.com
AOKISANTOS
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am

Gracias Antonio... Vou testar

Post by AOKISANTOS »

Gracias Antonio... Vou testar...

Fique com Deus

Aokisantos
FWH25+XHARBOUR 99.50
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Re: Vikthor - Por favor - Preciso que funcione a TWORD!

Post by Vikthor »

AOKISANTOS wrote:Vikthor, por favor meu amigo... Estou precisando muito fazer funcionar a TWORD no meu sistema...

Amigo, eu utilizo FWH2.5 + XHARBOUR 99.50 + BCC5.5.1

:cry:
You can download it from http://vikthor.com.mx/fivewin
Vikthor
AOKISANTOS
Posts: 210
Joined: Sun Jul 23, 2006 1:15 am

Gracias Antonio... gracias Vikthor

Post by AOKISANTOS »

:D O problema era o meu office do WINDOWS 98, deu certo...

MUIIIIIIIIIIIIIIIITO OBRIGADO

AOKISANTOS
FWH25+XHARBOUR 99.50
Post Reply