Pritpal Bedi wrote:
I was experimenting and got to this point : olecore.c line # 231
case HB_IT_OBJECT: /* or ARRAY */
if( HB_IS_OBJECT( pItem ) )
{
// if( hb_stricmp( hb_objGetClsName( pItem ), "HB_OLEAUTO" ) == 0 )
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
If I comment out line # 231 as above
oDialogs:calendar := oCal works fine and I can open the dialogs.
You can see that the object is issued AddRef().
May it help you understanding what is happening.
So, the reason is the one I've mentioned before, but you haven't
answered a question about oCal:ClassName :
-------------------
What is result of:
? oCal:ClassName
Current code converts only HB_OLEAUTO class to VT_DISPATCH parameter,
but I'm going to change it use a class inherited from HB_OLEAUTO, thus,
making
CLASS TOleAuto FROM HB_OleAuto
available for passing as IDispatch variant parameter.
-------------------
Regards,
Mindaugas
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
