>
> 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

Reply via email to