fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2009-04-25 02:05 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)

Browse Source 
* harbour/contrib/hbole/olecore.c
    ! fixed OleCreateObject(), OleGetActiveObject() return value
This commit is contained in:
Mindaugas Kavaliauskas
2009-04-24 23:07:10 +00:00
parent 1df277f513
commit c4b63cd857
2 changed files with 20 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2009-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
*/
2009-04-25 02:05 UTC+0300 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
* harbour/contrib/hbole/olecore.c
! fixed OleCreateObject(), OleGetActiveObject() return value
2009-04-24 15:41 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/contrib/gtqtc/gtqtc.cpp
* harbour/contrib/gtqtc/gtqtc.h

22
harbour/contrib/hbole/olecore.c
View File

@@ -451,9 +451,14 @@ HB_FUNC( OLECREATEOBJECT ) /* ( cOleName | cCLSID [, cIID ] ) */
lOleError = CO_E_CLASSSTRING;
hb_setOleError( lOleError );
ppDisp = ( IDispatch** ) hb_gcAlloc( sizeof( IDispatch* ), hb_ole_destructor );
*ppDisp = pDisp;
hb_retptrGC( ppDisp );
if( lOleError == S_OK )
{
ppDisp = ( IDispatch** ) hb_gcAlloc( sizeof( IDispatch* ), hb_ole_destructor );
*ppDisp = pDisp;
hb_retptrGC( ppDisp );
}
else
hb_ret();
}
@@ -510,9 +515,14 @@ HB_FUNC( OLEGETACTIVEOBJECT ) /* ( cOleName | cCLSID [, cIID ] ) */
lOleError = CO_E_CLASSSTRING;
hb_setOleError( lOleError );
ppDisp = ( IDispatch** ) hb_gcAlloc( sizeof( IDispatch* ), hb_ole_destructor );
*ppDisp = pDisp;
hb_retptrGC( ppDisp );
if( lOleError == S_OK )
{
ppDisp = ( IDispatch** ) hb_gcAlloc( sizeof( IDispatch* ), hb_ole_destructor );
*ppDisp = pDisp;
hb_retptrGC( ppDisp );
}
else
hb_ret();
}