> > Apply this patch in olecore.c and let me know it solves this issue: > Mindaugus, please check if this can be implemented like this or > some else construct is needed. > > HB_FUNC( OLECREATEOBJECT ) /* ( cOleName | cCLSID [, cIID ] ) */ > { > wchar_t* cCLSID; > GUID ClassID, iid; > BOOL fIID = FALSE; > IDispatch* pDisp = NULL; > IDispatch** ppDisp; > const char* cOleName = hb_parc( 1 ); > const char* cID = hb_parc( 2 ); > HRESULT lOleError; > > if( HB_IS_NUMBER( 1 ) ) > { > IDispatch * pDisp = ( IDispatch * ) ( HB_PTRDIFF ) hb_parnint( 1 ); > lOleError = pDisp->lpVtbl->AddRef( pDisp ); > > hb_setOleError( lOleError ); > if( lOleError == S_OK ) > { > hb_retnint( ( HB_PTRDIFF ) hb_param( 1, HB_IT_ANY ) ); > } > else > hb_ret(); > } > else if( cOleName ) > > .................... > > I cannot test it because I cannot even compile with new SVN.
Please report such error, so we can fix it. Brgds, Viktor
_______________________________________________ Harbour mailing list Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour