FiveTech Support Forums

Vikthor, Antonio:

Sinto que utilizando a Tword, as vezes meu sistema operacional WIN2000 fica muito lento ou trava, sera perca de recurso isso? Eu utilizo o xharb 99.50+FWH2.5, tenho que finalizar o objeto ou algo assim?

Como estou usando:

---

STATIC function ContratoWord( aCampos,NA1,CAMIFO)

---

local x, cModelo:=CurDrive()+':\'+Curdir()+'\oficiomo.dot',;
CIP1,CIP2,CIP3

private ToWord

ToWord := TWord():New() // inicia o objeto OLE Word
if ToWord:IsVisible()
ToWord:Hide()
endif
if SIS_2C22=.F. .or. !empty(sis_1nim)
CIP1 :=ALLTRIM(CAM2)
CIP2 :=SUBSTR(CIP1,4,LEN(CIP1))
CIP3 :=ALLTRIM(SIS_1NIM)
CAMIFO:=CIP3+CIP2+NA1
ELSE
CAMIFO:="&CAM2."+NA1
ENDIF
ToWord:OpenDoc( cModelo ) // abre o documento modelo
for x=1 to len( aCampos )
ToWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
next
ToWord:Save(CAMIFO)
ToWord:visualizar()
return nil

ToWord:OpenDoc( cModelo ) // abre o documento modelo
for x=1 to len( aCampos )
ToWord:Replace( '['+aCampos[x,1]+']' , aCampos[x,2] )
next
ToWord:Save(CAMIFO)
ToWord:End()
ShellExecute( oWnd:hWnd, "open" , camifo , , , )
return nil

Vikthor... Me desculpe a minha ignorancia...Mais o que significa estas linhas?

ToWord:End()
ShellExecute( oWnd:hWnd, "open" , camifo , , , )

Outra coisa, com o xHarb posso usar ToWord:end() ???

Fique com Deus
AokiSantos

AOKISANTOS wrote:Vikthor... Me desculpe a minha ignorancia...Mais o que significa estas linhas?

ToWord:End()
ShellExecute( oWnd:hWnd, "open" , camifo , , , )


Outra coisa, com o xHarb posso usar ToWord:end() ???

Fique com Deus
AokiSantos

AOKISANTOS,

ToWord:End(), libera la clase Word y por lo tanto recursos
ShellExecute(), lanza el word o la aplicación asociada al tipo de archivo en cuestión.