From 22b6f601a5e5853f39f5064e6feb1f55452ca77e Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Mon, 27 Sep 2010 09:55:25 +0000 Subject: [PATCH] 2010-09-27 11:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbwin/hbwinole.h * harbour/contrib/hbwin/olecore.c + C functions hb_oleItemGetDispatch() and hb_oleDispatchToItem() made public --- harbour/ChangeLog | 6 ++++++ harbour/contrib/hbwin/hbwinole.h | 2 ++ harbour/contrib/hbwin/olecore.c | 4 ++-- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index b6fcaf5e1c..22c911dadd 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,12 @@ The license applies to all entries newer than 2009-04-28. */ +2010-09-27 11:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/hbwin/hbwinole.h + * harbour/contrib/hbwin/olecore.c + + C functions hb_oleItemGetDispatch() and hb_oleDispatchToItem() made + public + 2010-09-26 23:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg + Harbour environment autodetection will now work if pathseps diff --git a/harbour/contrib/hbwin/hbwinole.h b/harbour/contrib/hbwin/hbwinole.h index 5848c2ea22..c4b5295638 100644 --- a/harbour/contrib/hbwin/hbwinole.h +++ b/harbour/contrib/hbwin/hbwinole.h @@ -146,6 +146,8 @@ typedef HB_BOOL ( * HB_OLEOBJ_FUNC )( VARIANT*, PHB_ITEM ); extern HB_EXPORT HB_BOOL hb_oleInit( void ); extern HB_EXPORT HRESULT hb_oleGetError( void ); extern HB_EXPORT void hb_oleSetError( HRESULT lOleError ); +extern HB_EXPORT void hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass ); +extern HB_EXPORT IDispatch* hb_oleItemGetDispatch( PHB_ITEM pItem ); extern HB_EXPORT void hb_oleVariantToItem( PHB_ITEM pItem, VARIANT * pVariant ); extern HB_EXPORT void hb_oleVariantToItemEx( PHB_ITEM pItem, VARIANT* pVariant, HB_USHORT uiClass ); extern HB_EXPORT void hb_oleItemToVariant( VARIANT * pVariant, PHB_ITEM pItem ); diff --git a/harbour/contrib/hbwin/olecore.c b/harbour/contrib/hbwin/olecore.c index c7ebbf08be..8e10661a07 100644 --- a/harbour/contrib/hbwin/olecore.c +++ b/harbour/contrib/hbwin/olecore.c @@ -314,7 +314,7 @@ static void hb_oleStringToItem( BSTR strVal, PHB_ITEM pItem ) } -static IDispatch * hb_oleItemGetDispatch( PHB_ITEM pItem ) +IDispatch * hb_oleItemGetDispatch( PHB_ITEM pItem ) { if( HB_IS_OBJECT( pItem ) ) { @@ -601,7 +601,7 @@ static void hb_oleSafeArrayToItem( PHB_ITEM pItem, SAFEARRAY * pSafeArray, } -static void hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass ) +void hb_oleDispatchToItem( PHB_ITEM pItem, IDispatch* pdispVal, HB_USHORT uiClass ) { if( pdispVal ) {