On Fri, 21 Aug 2009, Pritpal Bedi wrote:
Hi
> Przemyslaw Czerpak-2 wrote:
> > C code using ax controls has to be updated to use hb_oleParam() instead of
> > hb_parptr(). That's all if reference counters were updated correctly.
> > If not then the code has to be cleaned.
> I submit that current ( before your "this" changes ) never releases the
> ole object neither with Mindaugas code nor with GTWVG, and I was
> desperately looking for this fix. Today I will make experiments and will let
> you know the results.
Thank you.
Now ax controls should be cleanly released but I cannot make any tests.
Probably it can be easy tested by simple code like:
proc test( hWnd )
local oAx
if valtype( hWnd ) == "N"
hWnd := win_n2p( hWnd )
endif
? "start"
oAx := WIN_AxGetControl( hWnd, mk_cblock( mycls():new() ) )
? "ax control created"
oAx := NIL
? "ax control destroyed"
return
func mk_cblock( obj )
return {|| obj }
class mycls
destructor dtor
endclass
method procedure dtor()
? "*** destructor executed ***"
return
best regards,
Przemek
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
