Hello
Rossine wrote:
>
> METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX
> ::oOleAuto = TOleauto():New( ActXPdisp( ::hActiveX ) )
>
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.
Regards
Pritpal Bedi
--
View this message in context:
http://www.nabble.com/Errors-with-11032-tp23521549p23535023.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
