Posts: 22

Joined: Fri Nov 04, 2005 09:05 PM

TOleAuto Excel and xharbour
Posted: Wed Aug 09, 2006 02:12 PM

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

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

TOleAuto Excel and xharbour
Posted: Wed Aug 09, 2006 02:15 PM

Philippe,

What error do you get ?

regards, saludos

Antonio Linares
www.fivetechsoft.com

jacquet philippe

Posts: 22

Joined: Fri Nov 04, 2005 09:05 PM

TOleAuto Excel and xharbour
Posted: Wed Aug 09, 2006 02:28 PM

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
    =&gt; codpat                             NOTES

 Relations in use

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

 Indexes in use                        TagName
    =&gt; code                               DICTIO

 Relations in use

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

 Indexes in use                        TagName
    =&gt; 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
    =&gt; blanc()                            PATNOM
       dtos(dtn)                          PATDATE
       strzero(val(patrec-&gt;upn),4)        PATUPN
       patrec-&gt;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
    =&gt; WDN-&gt;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

Posts: 711

Joined: Thu Oct 06, 2005 09:57 PM

Re: TOleAuto Excel and xharbour
Posted: Wed Aug 09, 2006 04:26 PM

jacquet philippe wrote:oXls:end()

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

Un saludo

Manuel

FiveTech Support Forums