TActiveX class using FHW64

[bradmaudlin]

Hello,

Has anyone used the TActiveX class using Harbour, FWH64 and MSVC 2015?
Do .ocx (ActiveX controls) files need to be 32bit or 64bit specific like .lib files?

The same code compiled using Harbour, FWH32 and BCC582 loads the ActiveX and works fine.
But when I compile using FWH64 it errors out on the ActiveX Statement.

MsgInfo("Start oNetePay ActiveX Control")
oNetePay := TActiveX():NEW(oMainDlg,"DSIEMVX.DsiEMVXCtrl.1",1,1,10,10)

I get to the MsgInfo() line then error out with this -

------------------------------------------------------------------------
Application Internal Error - C:\Projects\cmpos\CMPOS64.exe
Terminated at: 2016-05-19 16:33:34
Unrecoverable error 6005: Exception error:

Exception Code:C0000005 ACCESS_VIOLATION
Exception Address:00007FF65E4AD0BE
RAX:0000000000000000 RBX:0000000000000001 RCX:0000000000000000 RDX:0000000080040154
RSI:0000000000000002 RDI:00007FF65E6780FB RBP:000000000000000A
R8 :000000DD06B0E2D8 R9 :0000000000001802 R10:0000000000000000 R11:000000DD06B0E610
R12:0000000000000000 R13:0000000000000000 R14:0000000000000000 R15:00007FF65E7A3E20
CS:RIP00007FF65E4AD0BE SS:RSP:002B:000000DD06B0E6D0
DS:002B ES:002B FS:0053 GS:002B
Flags:00010202
Exception Parameters: 0000000000000000 0000000000000000

Called from CREATEACTIVEX(0)
Called from TACTIVEX:NEW(0) in .\source\classes\ACTIVEX.PRG
Called from SECURITYDEVICEINIT(513) in NETEPAY.prg
Called from INITCREDITCARD(758) in CMPOS64.prg
Called from (b)SHOWPOSSCREEN(752) in CMPOS64.prg
Called from TDIALOG:INITIATE(0) in .\source\classes\DIALOG.PRG
Called from TDIALOG:HANDLEEVENT(0) in .\source\classes\DIALOG.PRG
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(0) in .\source\classes\DIALOG.PRG
Called from SHOWPOSSCREEN(752) in CMPOS64.prg
Called from MAIN(566) in CMPOS64.prg
------------------------------------------------------------------------

Thanks,

Brad Maudlin

[rhlawek]

Brad,

I'm using harbour and msvc, 2015 for the purpose of this note but I still use 2013 as well. I use a 3rd party product named VideoReDo TV Suite which is a 32 bit app. I can create and use their object without issue from either a 32 or a 64 bit app. However I don't use the TActiveX() class, I use CreateObject()

oPlayer := CreateObject( "VideoReDo5.Application" )

I did just do a quick test with TActiveX() in the 64 bit app. It does not crash with the run time error you are seeing. It does behave differently than does CreateObject(), just doing a brief review of the TActiveX() source that appears to be more how TActiveX() is implemented and the assumptions my code makes and not a real problem. But it doesn't crash.

Robb

[Antonio Linares]

Brad,

I just tested FWH\samples\video.prg which I guess its similar to your code: the ActiveX is created from the dialog ON INIT clause

Here it is working fine in both 32 and 64 bits

To test it, please remember to copy fivewin.avi from c:\fwh\avis to c:\fwh\samples folder

Please use the most recent FWH 64 version 16.04

[richard-service]

Hi
I just to test codejock ActiveX work fine with fwh64-1604