Exit Error : 13.04 OLE

[TimStone]

When I moved to 13.04 ( from a 12.11 version ), on my MSVC builds I started getting an error when exiting the application.

Now I also get it when exiting my longstanding builds with xHarbour ( commercial ).

The error occurs when exiting the main application, IF an OLE instance has been used at some point.

The exact error is: Destructors Disabled : Destructor of class 'TOLEAUTO' can't be executed

I'd sure like to get around this ! Thanks for input.

Tim

[Antonio Linares]

Tim,

Whereever you use an OLE object, when you are done with you must do:

oMyOleObject := nil

thats all

[TimStone]

OK ... this relates to the Codejock calendar opened within my main program.

If I open the calendar ( MDI window ), then close it, all appears to be fine. However, when I then exit the main program, that error appears.

If I don't open the calendar, and exit the main program, no error appears. Thus, we can conclude the calendar class is the cause of the problem.

There are two ActiveX components created in the program, ::ocalex and ::oDtPick.

In the End( ) method which is called when I exit the calendar, I now have:

::oCalex := nil
::oDtPick := nil

It still gets the error message.

Thanks for thinking about a solution to this.

Tim

[Richard Chidiak]

Antonio

Is this related to 13.04 ?

Richard

[Antonio Linares]

Richard,

No, not at all. This is related to Harbour OLE management.

Tim,

Please, in those places where you have created an ActiveX please do (at the end):

oActiveX:oOleAuto := nil

if this solves it, then we need to implement an End() method for Class TActiveX

[Richard Chidiak]

Antonio

That's good news, i thought something was different with 13.04 , not using this build because of combobox , i have plenty of these.

I do not end the codejock objects and it works OK BUT i end the window in a different way than Tim

I will send to Tim a copy of my program to see if it helps, and i promised you a sample of codejock with Harbour, i will find some time this week end to have it ready,

Regards

Richard

[Antonio Linares]

Richard,

I have published a revised combobox.prg that was working fine in my tests:
viewtopic.php?p=144816#p144816

though I have just seen that Lucas reported a new bug (after the changes):
viewtopic.php?p=144983#p144983

[TimStone]

Antonio,

Could you publish an update 13.04 for download once you resolve the combobox ?

Thanks.

Tim

[TimStone]

METHOD End() CLASS MpCal

oCalex:oOleAuto := nil
oDtPick:oOleAuto := nil

RETURN .t.

Does not work make a difference. Am I not understanding what you want me to do ?

[Antonio Linares]

Tim,

I have just published some minor changes to combobox.prg, here my tests are fine. Once its is confirmed as ok then we will published a revised 13.04

Your code is fine, thats what I meant, anyhow please place a MsgInfo() there to be sure it is called:

METHOD End() CLASS MpCal

MsgInfo( "end" )
oCalex:oOleAuto := nil
oDtPick:oOleAuto := nil

RETURN .t.

[lucasdebeltran]

Antonio,

Remember also it is pending the bug at xBrowse:
viewtopic.php?f=3&t=26244

Thank you.

[TimStone]

OK ... had a problem because it was linking in the wrong library, but now I'm getting the correct one and still have the problem.

Here are the two object creations:

::oCalex := tActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.15.0.1" )
::oDtPick := tActiveX():New( ::oPanelExplorer,"Codejock.DatePicker.15.0.1" )

Here is the end method:
METHOD End() CLASS MpCal
oDtPick:oOleAuto := nil
oCalex:oOleAuto := nil
RETURN .t.

This will cause the whole program to abort when I try to close the MDI window with the calendar on it.

IF I change the values to ::oDtPick:oOleAuto, and oCalex:oOleAuto then the window will close, but the same error occurs when I exit the main program.

Yes, with the message info screen in there, the end( ) method is being called.

Tim

[lucasdebeltran]

Hello Timm,

If you want, I can test a working simple with MSVC2010.

Just remove your reg code to the product.

Best regards,

[Antonio Linares]

Tim,

Please try this:

METHOD End() CLASS MpCal

::oDtPick:End()
::oCalex:End()

::oDtPick:oOleAuto := nil
::oCalex:oOleAuto := nil

RETURN .t.

[TimStone]

Thank you but the problem exists in my older xHarbour.com and in my MSVC2010 builds. I do have both.

The distributed builds are still in xHarbour.com

The testing builds are with MSVC 2010 and Harbour

Tim