Bug in TActiveX 64 bit

[Enrico Maria Giordano]

This sample works fine in 32 bit (MSC32 and BCC32) but crashes in 64 bit (MSC64 and BCC64). Can you understand why?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oActX

    DEFINE WINDOW oWnd

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

    oWnd:oClient = oActX

    oActX:Do( "Navigate", "http://www.emagsoftware.it" )

    ACTIVATE WINDOW oWnd

    RETURN NIL

[Antonio Linares]

Dear Enrico,

Here it is working fine using Harbour and FWH 24.07 with MSVC64 also with bcc77 64:

go to FWH\samples:

buildh64.bat enrico

build64.bat enrico

It seems to crash just using xHarbour

[Enrico Maria Giordano]

Yes, it works fine with Harbour but not with xHarbour. Any ideas?

[Enrico Maria Giordano]

It crashes on exit even with Harbour. I get the following log:

Code: Select all  Expand view  RUN

Application Internal Error - E:\FWXHARB\PEPPE.EXE
Terminated at: 2024-09-02 11:27:16
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:0000000000000071
    RAX:0000000000000071  RBX:0000000000000000  RCX:00000259FF0BB200  RDX:000000875D4FE128
    RSI:0000000000000000  RDI:000000875D4FE180  RBP:000000875D4FE100
    R8 :0000000000000112  R9 :00007FFB14140400  R10:FD41B67356DAD870  R11:00000259FD5F4950
    R12:000000875D4FE600  R13:0000000000000000  R14:000000875D4FE1C8  R15:0000000000000000
    CS:RIP:0033:0000000000000071  SS:RSP:002B:000000875D4FE0A8
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010206
    Exception Parameters: 0000000000000008 0000000000000071

[Antonio Linares]

Dear Enrico,

We were testing a change in FWH internal activex module

Please git pull and rebuild again. Now it is working fine

[Enrico Maria Giordano]

Perfect, thank you!