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

2010-08-24 11:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/hbwin/olecore.c
    ! added missing call to Release() method in __OleGetActiveObject()
      function. It should fix problem reported by Daniel Garcia-Gil.
This commit is contained in:
Przemyslaw Czerpak
2010-08-24 09:16:42 +00:00
parent 434014eecd
commit 616efab846
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -16,6 +16,11 @@
The license applies to all entries newer than 2009-04-28.
*/
2010-08-24 11:16 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbwin/olecore.c
! added missing call to Release() method in __OleGetActiveObject()
function. It should fix problem reported by Daniel Garcia-Gil.
2010-08-24 09:44 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* package/winuni/mpkg_win_uni.bat
! Typo.

3
harbour/contrib/hbwin/olecore.c
View File

@@ -1326,7 +1326,10 @@ HB_FUNC( __OLEGETACTIVEOBJECT ) /* ( cOleName | cCLSID [, cIID ] ) */
lOleError = GetActiveObject( HB_ID_REF( ClassID ), NULL, &pUnk );
if ( lOleError == S_OK )
{
lOleError = HB_VTBL( pUnk )->QueryInterface( HB_THIS_( pUnk ) HB_ID_REF( iid ), ( void** ) ( void * ) &pDisp );
HB_VTBL( pUnk )->Release( HB_THIS( pUnk ) );
}
}
}
else