topic-19720

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

error en toleauto
Posted: Tue Aug 31, 2010 10:41 AM

Hola amigos:

En mi aplicacion realizo varios archivos de excel y de word con TOLEAUTO y funciona bien cuando hago cualquiera pero cuando trato de repetir el mismo listado o documento me da el siguiente error:

Code (fw): Select all Collapse

Application
===========
   Path and name: C:\ColtHop\cyewin\cyewin.exe (32 bits)
   Size: 5,065,216 bytes
   Time from start: 0 hours 0 mins 13 secs 
   Error occurred at: 31/08/2010, 12:33:05
   Error description: Error TOleAuto/65535  : TOLEAUTO:NEW
   Args:
     [   1] = C   Word.Application

Stack Calls
===========
   Called from:  => THROW(0)
   Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW(346)
   Called from: gestcuan.prg => GESTCUA521(7268)
   Called from: gestcuan.prg => (b)GESTCUAN51(5389)
   Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
   Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1446)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => SENDMESSAGE(0)
   Called from: .\source\classes\WINDOW.PRG => TMDICHILD:COMMAND(1035)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:HANDLEEVENT(319)
   Called from: .\source\classes\WINDOW.PRG => _FWH(3391)
   Called from:  => WINRUN(0)
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(976)
   Called from: cyewin.prg => MAIN(248)
System
======
   CPU type: Intel(R) Core(TM)2 CPU         T5300  @ 1.73GHz 1733 Mhz
   Hardware memory: 1022 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6715)
   Windows version: 5.1, Build 2600 Service Pack 3

   Windows total applications running: 46
      1 TF_FloatingLangBar_WndTitle
      2 CiceroUIWndFrame
      3 M
      4 Default IME
      5 SysFader
      6 CL RC Engine3 Dummy Winidow
      7 CyEWin Contabilidad y Estimaciones en WINDOWS
      8 memo2009.doc [Modo de compatibilidad] - Microsoft Word
      9 DDE Server Window
     10 Símbolo del sistema
     11 FiveTech Software tech support forums • Post a new topic - Windows Internet Explorer
     12 MCI command handling window
     13 Acrobat IEHelper
     14 cyewin
     15 Panel de control
     16 Lphant v3.51 ( SU:10 DE:9,9 MEDDE:28,4 )
     17 Beyond Quick Launch Buttons Message Window
     18 Socket Notification Sink
     19 AcrobatTrayIcon
     20 MediaContextNotificationWindow
     21 PNPNOTIFICATIONRECEIVER_08B6D868
     22 SystemResourceNotifyWindow
     23 .NET-BroadcastEventWindow.2.0.0.0.378734a.0
     24 .NET-BroadcastEventWindow.2.0.0.0.33c0d9d.0
     25 BTW Stack Server
     26 DAEMON Tools Agent window
     27 Avira AntiVir Personal - Free Antivirus - SysTray
     28 Connections Tray
     29 SR Monitor
     30 HPWU
     31 DivXUpdate
     32 Updater Error
     33 DivX Update
     34 DivXIPCWindowName
     35 NVSVCPMMWindowClass
     36 Medidor de energía
     37 MS_WebcheckMonitor
     38 Touchpad driver tray icon window
     39 TouchPad object helper window
     40 Touchpad driver backward compatibility window
     41 Touchpad driver helper window
     42 MediaCenter
     43 BTTrayMainWindow
     44 GDI+ Window
     45 MsoWorkPane
     46 Program Manager

Variables in use
================
   Procedure     Type   Value
   ==========================
   THROW
     Param   1:    O    Class: ERROR
     Local   1:    U    
     Local   2:    U    
   TOLEAUTO:NEW
     Param   1:    C    "Word.Application"
     Local   1:    U    
     Local   2:    U    
     Local   3:    O    Class: TOLEAUTO
     Local   4:    O    Class: ERROR
   GESTCUA521
     Param   1:    N    3
   (b)GESTCUAN51
     Param   1:    O    Class: TBUTTON
   TBUTTON:CLICK
     Local   1:    O    Class: TBUTTON
   TBUTTON:HANDLEEVENT
     Param   1:    N    2048
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    O    Class: TBUTTON
     Local   2:    U    
   _FWH
     Param   1:    N    0
     Param   2:    N    2048
     Param   3:    N    0
     Param   4:    N    0
     Param   5:    N    135
     Local   1:    O    Class: TBUTTON
   SENDMESSAGE
     Param   1:    N    1378178
     Param   2:    N    2048
     Param   3:    N    0
     Param   4:    N    0
   TMDICHILD:COMMAND
     Param   1:    N    281
     Param   2:    N    1378178
     Local   1:    O    Class: TMDICHILD
     Local   2:    N    0
     Local   3:    N    281
     Local   4:    N    1378178
   TWINDOW:HANDLEEVENT
     Param   1:    N    273
     Param   2:    N    281
     Param   3:    N    1378178
   TMDICHILD:HANDLEEVENT
     Param   1:    N    273
     Param   2:    N    281
     Param   3:    N    1378178
     Local   1:    O    Class: TMDICHILD
   _FWH
     Param   1:    N    1378178
     Param   2:    N    273
     Param   3:    N    281
     Param   4:    N    1378178
     Param   5:    N    63
     Local   1:    O    Class: TMDICHILD
   WINRUN
     Param   1:    N    1902012
     Local   1:    N    1
     Local   2:    N    1
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
     Local   8:    U    
     Local   9:    U    
     Local  10:    U    
     Local  11:    U    
     Local  12:    U    
     Local  13:    U    
     Local  14:    U    
     Local  15:    U    
     Local  16:    N    1
     Local  17:    U    
     Local  18:    U    
     Local  19:    U    
     Local  20:    U    
     Local  21:    U    
     Local  22:    U    
     Local  23:    U    
     Local  24:    U    
     Local  25:    U    
     Local  26:    U    
     Local  27:    U    
     Local  28:    U    
     Local  29:    U    
     Local  30:    U    
     Local  31:    U    
     Local  32:    U    
     Local  33:    U    
     Local  34:    U    
     Local  35:    U    
     Local  36:    U    
     Local  37:    U    
     Local  38:    U    
     Local  39:    U    
     Local  40:    U    
     Local  41:    N    1
     Local  42:    N    1
     Local  43:    U    
     Local  44:    U    
     Local  45:    U    
     Local  46:    U    
     Local  47:    U    
     Local  48:    U    
     Local  49:    U    
     Local  50:    U    
     Local  51:    U    
     Local  52:    U    
     Local  53:    U    
     Local  54:    U    
     Local  55:    U    
     Local  56:    U    
     Local  57:    U    
     Local  58:    U    
     Local  59:    U    
     Local  60:    U    
     Local  61:    U    
     Local  62:    U    
     Local  63:    U    
     Local  64:    N    1
     Local  65:    N    1
     Local  66:    U    
     Local  67:    U    
     Local  68:    U    
     Local  69:    U    
     Local  70:    U    
     Local  71:    U    
     Local  72:    U    
     Local  73:    N    1
     Local  74:    U    
     Local  75:    U    
     Local  76:    U    
     Local  77:    U    
     Local  78:    U    
     Local  79:    U    
     Local  80:    U    
     Local  81:    U    
     Local  82:    U    
     Local  83:    U    
     Local  84:    U    
     Local  85:    U    
     Local  86:    U    
     Local  87:    U    
     Local  88:    U    
     Local  89:    U    
     Local  90:    U    
     Local  91:    U    
     Local  92:    U    
     Local  93:    U    
     Local  94:    U    
     Local  95:    U    
     Local  96:    U    
     Local  97:    N    1
     Local  98:    N    1
     Local  99:    U    
     Local 100:    U    
     Local 101:    U    
     Local 102:    U    
     Local 103:    U    
     Local 104:    U    
     Local 105:    U    
     Local 106:    U    
     Local 107:    U    
     Local 108:    U    
     Local 109:    U    
     Local 110:    U    
     Local 111:    U    
     Local 112:    U    
     Local 113:    U    
     Local 114:    U    
     Local 115:    U    
     Local 116:    U    
     Local 117:    U    
   TMDIFRAME:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Local   1:    O    Class: TMDIFRAME
     Local   2:    U    
     Local   3:    U    
   MAIN
     Local   1:    U    

Linked RDDs
===========
   DBF
   DBFCDX

DataBases in use
================

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 HBOBJECT
     5 TCURSOR
     6 TSKINBUTTON
     7 TWINDOW
     8 TDIALOG
     9 TBRUSH
    10 TCONTROL
    11 TBUTTON
    12 TFONT
    13 TMDIFRAME
    14 TMENU
    15 TMENUITEM
    16 TICON
    17 TMDICLIENT
    18 TMSGBAR
    19 TRECT
    20 TMSGITEM
    21 TTIMER
    22 TMDICHILD
    23 TSAY
    24 TBTNBMP
    25 TBITMAP
    26 TRADMENU
    27 TRADIO
    28 TOLEAUTO
    29 TREG32

Memory Analysis
===============
      195 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes

La version es 10.7 de FWH, el xHarbour Compiler Build 1.2.1 y el BCC 582

Alguien me podria decir como solucionarlo.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: error en toleauto
Posted: Tue Aug 31, 2010 11:01 AM

Se me ha olvidado pro ejemplo el codigo que utilizo es :

Code (fw): Select all Collapse

PROCEDURE gestcua321(Opc)
zOpc = Opc
clos data
oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open(fich)
oWord:Visible := .T.
oWord:Set( "WindowState", 1 )
oWord:=NIL
OleUninitialize()
gestcua312(zOpc)
RETURN (NIL)

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Ramon Paredes

Posts: 215

Joined: Fri Feb 02, 2007 03:38 PM

Re: error en toleauto
Posted: Wed Sep 01, 2010 05:06 PM

colthop,

Aparentemente el error se genera cuando el metodo open trata de abrir un archivo abierto antes del oWord:=Nil deberias cerrar el documento con el metodo oWord:Close( Nombre del Documento) asi no deberia generarte error de llamada cuantas veces sea necesario el mismo documento,

Saludes desde Managua, Nicaragua

Ramon Paredes

... Desde la Tierra de lagos y Volcanes......

colthop

Posts: 505

Joined: Sat Apr 22, 2006 09:09 AM

Re: error en toleauto
Posted: Wed Sep 01, 2010 06:22 PM

Hola Ramon:

El problema lohe solucionadoesta mediodia y loprobocaba la instrucción:

OleUninitialize()

La he quitado y funciona todo correctamente. Pero gracias por tu interes.

Un saludo

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

FiveTech Support Forums

Continue the discussion