ActiveX & xHarbour

Randal · Post by **Randal** » Wed Apr 26, 2006 3:19 pm

Antonio,

I received your email with the updated libs. When I try to set the the event block I get an error on:

oMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

This line generates the error:

Error MapPoint.Control/16389 E_FAIL: _BONEVENT

I also tried replacing the ActiveX lib with the one you posted here for someone else recently. When I use this lib I get an error "yourapp.exe has encountered a problem and needs to close".

If I comment out the bOnEvent code the control works ok, at least the map is opened in a window.

Using FWH March 2006 and xBuilder 2006 w/xcc.

The other problem I reported seemed to be a problem with the MapPoint 2004 install, I was using the MSDN version. I uninstalled that version and installed MapPoint 2002 and this seems to be working.

Is there anyone else using MapPoint with ActiveX?

If your interested I could email you the mappoint setup and run discs.

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Wed Apr 26, 2006 3:40 pm

Randal,

> I also tried replacing the ActiveX lib with the one you posted here

You must use the library I posted here or then you are using xHB ActiveX instead of FWH one.

Please show your code to see why you may get an error.

Randal · Post by **Randal** » Wed Apr 26, 2006 4:11 pm

Antonio,

The following is a sample of my code.

DEFINE WINDOW oWndMap OF oWnd ;
FROM 0,0 TO 0,0 ;
MDICHILD ;
MENU MapMenu(oWndMap) ;
TITLE "Map Point"

oMapPoint = TActiveX():New( oWndMap, "MapPoint.Control" )

oWndMap:oClient = oMapPoint // To fill the entire window surface

oMapPoint:Do("NewMap", 1)

// Generates an error on this line. If I comment out the window opens
oMapPoint:bOnEvent = { | event, aParams | cEvents += EventInfo( event, aParams ) }

ACTIVATE WINDOW oWndMap ;
ON INIT ( oWndMap:Move(0,0,640,390,.t.) ) ;
ON PAINT oWndMap:SetFocus() ;
VALID ( oMapPoint:Do("CloseMap"), .T. )

RETURN NIL

function EventInfo( event, aParams )

local cMsg := "Event: " + cValToChar( event ) + CRLF
local n

cMsg += "Params: "

for n = 1 to Len( aParams )
cMsg += cValToChar( aParams[ n ] ) + CRLF
next

return cMsg + CRLF

This is a list of the libs in the \fwh\lib folder. Using the Apr 2006 Build. I extracted ole.obj from the fivehc.lib. I also updated the Fivehcm and fivemx libs you sent me.

04/04/06 10:50 AM 1,400,320 Fiveh.lib
04/03/06 10:41 AM 346,112 fivehc.BAK
04/26/06 10:58 AM 339,968 fivehc.lib
04/17/06 11:18 AM 630,194 Fivehcm.lib
04/04/06 10:50 AM 2,353,354 Fivehm.lib
04/20/06 09:00 PM 2,382,536 Fivehmx.lib
04/04/06 10:50 AM 1,420,288 Fivehx.lib
04/21/06 01:33 PM 863,030 libs.zip

I'm also linking the ActiveX.lib you posted here recently.

04/21/06 08:23 AM 4,172 ActiveX.lib

Using xHarbour/xBuilder March 2006 w/xcc.

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Wed Apr 26, 2006 4:52 pm

Randal,

> I extracted ole.obj from the fivehc.lib.

Don't extract it. Please try with it.

Randal · Post by **Randal** » Wed Apr 26, 2006 7:23 pm

Antonio,

When using the original fivehc.lib dated 4/3/06 I get the message "yourapp has encountered a problem and needs to close" at this line:

oMapPoint = TActiveX():New( oWndMap, "MapPoint.Control" )

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Wed Apr 26, 2006 8:23 pm

Randal,

Could you please try samples\webexp.prg and check if it works ok for you ? thanks.

Randal · Post by **Randal** » Thu Apr 27, 2006 1:20 pm

Antonio,

If I build webexp sample using xharbour and bcc it works fine. If I build using xBuilder and xcc, linking ActiveX.lib from xHabour I get the same error message.

Error description: Error Shell.Explorer/16389 E_FAIL: _BONEVENT

If I build with xBuilder and do not link xHarbour ActiveX.lib I get the error

Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: HWND

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Thu Apr 27, 2006 1:56 pm

Randal,

> Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: HWND

What source code generates that error ?

Randal · Post by **Randal** » Thu Apr 27, 2006 2:06 pm

Antonio,

The line that generates that error is:

oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

Here is the error log:

Application
===========
Path and name: D:\xHB\bin\webexp.exe (32 bits)
Size: 1,504,768 bytes
Time from start: 0 hours 0 mins 1 secs
Error occurred at: 04/27/06, 09:03:38
Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: HWND
Args:

Stack Calls
===========
Called from: => HWND(0)
Called from: TActiveX.prg => TACTIVEX:NEW(0)
Called from: TActiveX.prg => CREATEACTIVEX(184)
Called from: TActiveX.prg => TACTIVEX:NEW(0)
Called from: webexp.prg => MAIN(11)

System
======
CPU type: Intel(R) Pentium(R) 4 CPU 3.20GHz 3200 Mhz
Hardware memory: 1023 megs

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

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

Windows total applications running: 35
1
2 SysFader
3 Start Menu
4 DirectDBNotifyWndProc
5 Outlook Express FolderSync Window Class
6 Outlook Express NewsStore
7 DirectDBListenWndProc
8 Norton AntiVirus
9 FiveWin ActiveX Support
10 xBuild - D:\xHB\bin\webexp.exe.xbp
11 Multi-Edit - [D:\FWH\SAMPLES\webexp.prg]
12 MCI command handling window
13 DDE Server Window
14 ThorConnWndClass
15 Identity Mgr Notify
16 WAB Notification Window
17 WOWExec
18 Microsoft ActiveSync
19 DefAlert_Window_29DABAC8-AB93-43f3-926D-1DDE0C909FDF
20 WCES Manager Thunk Window
21 DirectCD
22 DccMan
23 SigmatelSysTray
24 Connections Tray
25 ccApp
26 Power Meter
27 MS_WebcheckMonitor
28 UnErase Process
29 ATI video bios poller
30 ACT!
31 VCERuntime
32 www.FiveTechSoft.com :: View topic - ActiveX & xHarbour - Microsoft Internet Explorer
33 Command Prompt
34 xHarbour - Outlook Express
35 Program Manager

Variables in use
================
Procedure Type Value
==========================
HWND
Local 1: U
Local 2: U
Local 3: N 0
TACTIVEX:NEW
Param 1: N 1312076
Param 2: C "Shell.Explorer"
Param 3: O Class: TACTIVEX
Param 4: U
Local 1: U
Local 2: U
CREATEACTIVEX
Param 1: N 1312076
Param 2: C "Shell.Explorer"
Param 3: O Class: TACTIVEX
Local 1: U
Local 2: U
Local 3: C "Shell.Explorer"
Local 4: N 0
Local 5: O Class: ERROR
Local 6: O Class: SHELL.EXPLORER.1
Local 7: N 1330792
Local 8: N 1406416
Local 9: O Class: TYPELIB
Local 10: C "{D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}"
TACTIVEX:NEW
Param 1: O Class: TWINDOW
Param 2: C "Shell.Explorer"
Local 1: O Class: TACTIVEX
Local 2: U
Local 3: O Class: TACTIVEX
MAIN
Local 1: O Class: TWINDOW
Local 2: U
Local 3: C ""

Linked RDDs
===========
DBF
DBFFPT
DBFNTX

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

Classes in use:
===============
1 HBCLASS
2 HBOBJECT
3 TWINDOW
4 TBRUSH
5 TFONT
6 TCONTROL
7 TACTIVEX
8 TYPELIB
9 ENUMTYPEINFO
10 CONSTANTTYPEINFO
11 OBJECTTYPEINFO
12 INTERFACETYPEINFO
13 METHODTYPEINFO
14 ARGUMENTTYPEINFO
15 PROPERTYTYPEINFO
16 TOLEAUTO
17 OLEWRAPPER
18 OLEXWRAPPER
19 SHELL.EXPLORER.1
20 {EAB22AC3-30C1-11CF-A7EB-0000C05BAE0B}
21 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}
22 SHELL.EXPLORER.2
23 {8856F961-340A-11D0-A96B-00C04FD705A2}
24 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}.IWEBBROWSER2
25 {D30C1661-CDAF-11D0-8A3E-00C04FC9E26E}.IWEBBROWSER
26 {EAB22AC1-30C1-11CF-A7EB-0000C05BAE0B}
27 ERROR
28 TREG32

Memory Analysis
===============
126 Static variables

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

Post by **Antonio Linares** » Thu Apr 27, 2006 4:36 pm

Randal,

> Called from: TActiveX.prg => TACTIVEX:NEW(0)

You are using xHB TActiveX.prg. You need to use the ActiveX.lib we provided here that is an empty lib.

FWH's one is named ActiveX.prg.

Randal · Post by **Randal** » Fri Apr 28, 2006 1:48 pm

Antonio,

If I link the small activex.lib you posted here and not the activex.lib that comes with xHarbour I get the msg "yourapp.exe has encountered a problem and needs to close" on this line:

oMapPoint = TActiveX():New( oWndMap, "MapPoint.Control" )

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Fri Apr 28, 2006 3:48 pm

Randal,

Where we may download a demo version of such mappoint activex ?

Randal · Post by **Randal** » Thu May 04, 2006 3:48 pm

Antonio,

I don't know of anywhere you can download a trial version. Is there somewhere I can send you my version for you to review? I can zip up the setup and run disks, they are about 600mb & 300mb (zipped).

Thanks,
Randal Ferguson

Post by **Antonio Linares** » Thu May 04, 2006 3:51 pm

Yes, you may email them to me as ZIP files. Thanks,