TOleAuto Excel and xharbour

[jacquet philippe]

I try to convert a 16 bit to 32 bit application using the Tole Class.

When i use oXls:end() , i receive an error message with xharbour and not with clipper fivewin.

What is the instruction to stop the ole connection with excel .

Any idea ?

Philippe Jacquet

[Antonio Linares]

Philippe,

What error do you get ?

[jacquet philippe]

Antonio,
Here is the error message :

It is the end instruction that cause the problem .

Application
===========
Path and name: g:\medical\dmedi\apps\dmi.exe (32 bits)
Size: 1,400,320 bytes
Time from start: 0 hours 0 mins 17 secs
Error occurred at: 09-08-2006, 16:24:01
Error description: Error Excel.Application/-1 DISP_E_UNKNOWNNAME: Excel.Application:END
Args:
[ 1] = O Object
[ 2] = C END
[ 3] = A { ... }

Stack Calls
===========
Called from TOLEAUTO:END(836)
Called from OPXLS(965)
Called from (b)BIOBIO(38)
Called from TBUTTON:CLICK(0)
Called from TBUTTON:HANDLEEVENT(0)
Called from _FWH(0)
Called from SENDMESSAGE(0)
Called from TDIALOG:COMMAND(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from TDIALOG:HANDLEEVENT(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from BIOBIO(40)
Called from (b)VPAT(202)
Called from TBUTTON:CLICK(0)
Called from TBUTTON:HANDLEEVENT(0)
Called from _FWH(0)
Called from SENDMESSAGE(0)
Called from TDIALOG:COMMAND(0)
Called from TWINDOW:HANDLEEVENT(0)
Called from TDIALOG:HANDLEEVENT(0)
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0)
Called from VPAT(213)
Called from (b)MAIN(72)
Called from TWINDOW:ACTIVATE(0)
Called from MAIN(72)

System
======
CPU type: Intel Pentium IV 1800 Mhz
Hardware memory: 256 megs

Free System resources: 0 %
GDI resources: 0 %
User resources: 0 %

Compiler version: xHarbour build 0.99.2 Intl. (SimpLex)
Windows version: 5.1, Build 2600 Service Pack 2

Windows total applications running: 0

Variables in use
================
Procedure Type Value
==========================
TOLEAUTO:END
Local 1: U
Local 2: U
Local 3: U
Local 4: U
Local 5: U
Local 6: U
Local 7: U
Local 8: U
Local 9: U
Local 10: O Class: TOLEAUTO
Local 11: C "END"
Local 12: L .T.
Local 13: U
Local 14: C "DISP_E_UNKNOWNNAME"
Local 15: N 0
Local 16: C ""
Local 17: O Class: ERROR
OPXLS
Param 1: C "N"
(b)BIOBIO
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
_FWH
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 17
Local 1: O Class: TBUTTON
SENDMESSAGE
Param 1: N 1835636
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TDIALOG:COMMAND
Param 1: N 930
Param 2: N 1835636
Local 1: O Class: TDIALOG
Local 2: O Class: TBUTTON
Local 3: N 0
Local 4: N 930
Local 5: N 1835636
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 930
Param 3: N 1835636
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 930
Param 3: N 1835636
Local 1: O Class: TDIALOG
DIALOGBOX
Param 1: N 4194304
Param 2: C "BIOBIO"
Param 3: N 720960
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: U
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 720960
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
BIOBIO
Local 1: C "G:\GLOBAL\MEDITEMP\wdn02.ntx"
(b)VPAT
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
_FWH
Param 1: N 0
Param 2: N 2048
Param 3: N 0
Param 4: N 0
Param 5: N 9
Local 1: O Class: TBUTTON
SENDMESSAGE
Param 1: N 3015054
Param 2: N 2048
Param 3: N 0
Param 4: N 0
TDIALOG:COMMAND
Param 1: N 920
Param 2: N 3015054
Local 1: O Class: TDIALOG
Local 2: O Class: TBUTTON
Local 3: N 0
Local 4: N 920
Local 5: N 3015054
TWINDOW:HANDLEEVENT
Param 1: N 273
Param 2: N 920
Param 3: N 3015054
TDIALOG:HANDLEEVENT
Param 1: N 273
Param 2: N 920
Param 3: N 3015054
Local 1: O Class: TDIALOG
DIALOGBOX
Param 1: N 4194304
Param 2: C "VUEPAT"
Param 3: N 721020
Param 4: O Class: TDIALOG
TDIALOG:ACTIVATE
Param 1: U
Param 2: U
Param 3: B {|| ... }
Param 4: L .T.
Param 5: U
Param 6: L .T.
Param 7: U
Param 8: U
Param 9: U
Param 10: L .F.
Local 1: O Class: TDIALOG
Local 2: N 721020
Local 3: U
Local 4: U
Local 5: U
Local 6: O Class: TDIALOG
VPAT
Local 1: O Class: TSAY
Local 2: O Class: TDIALOG
Local 3: O Class: TWBROWSE
Local 4: O Class: TWBROWSE
Local 5: C "UPN0624 PORTOLAN Lino 24-07-1943 ~ M
=-= Rue de l'Ancienne Ecole, 44,
4030 GRIVEGNEE (LIEGE) 04/367.41.69
Origine :UPN0624 Upr : 00000586 (0385015H)
Greffes:26-06-2002 06-10-2004 18-01-2005 - - - -
"
Local 6: A Len: 114
Local 7: C "G:\GLOBAL\MEDITEMP\wdpat02"
(b)MAIN
Param 1: O Class: TWINDOW
TWINDOW:ACTIVATE
Param 1: C "NORMAL"
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: U
Param 18: U
Param 19: U
Local 1: O Class: TWINDOW
Local 2: U
Local 3: U
MAIN
Local 1: U
Local 2: U
Local 3: U

Linked RDDs
===========
DBF
DBFDBT
DBFNTX

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

1: NOTES RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
2261 10087 .F. .F.

Indexes in use TagName
=> codpat NOTES

Relations in use

2: DICTIO RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
62 264 .F. .F.

Indexes in use TagName
=> code DICTIO

Relations in use

3: DIAGPAT RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
2376 3792 .F. .F.

Indexes in use TagName
=> codpat+dtos(date) DIAGPAT

Relations in use

4: => PATREC RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
586 11620 .F. .F.

Indexes in use TagName
codpat PATREC
=> blanc() PATNOM
dtos(dtn) PATDATE
strzero(val(patrec->upn),4) PATUPN
patrec->matchu PATCHU

Relations in use

5: WDPAT RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 1 .F. .F.

Indexes in use TagName

Relations in use

6: WDC RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.

Indexes in use TagName

Relations in use

7: WDN RddName: DBFNTX
==============================
RecNo RecCount BOF EOF
1 0 .T. .T.

Indexes in use TagName
=> WDN->DATE WDN02

Relations in use

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TWINDOW
4 TDIALOG
5 TBRUSH
6 TCONTROL
7 TGET
8 GET
9 TCLIPGET
10 TBUTTON
11 TFONT
12 TMENU
13 TMENUITEM
14 TFILE
15 TTXTFILE
16 TSAY
17 TWBROWSE
18 TSCROLLBAR
19 TSTRUCT
20 TLISTBOX
21 TOLEAUTO
22 ERROR

Memory Analysis
===============
171 Static variables

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

[Manuel Valdenebro]

oXls:end()

In xHarbour you don´t need to use 'oXls:End()'.-