Hello Mindaugus
Mindaugas Kavaliauskas wrote:
>
> We will to change at least numeric type to pointer type...
>
Yes, but how. I am following your code but am been
unbale to hook any code inside it because of WINAPI background.
harbour/contrib/gtwvg/wvgsink.c
AtlAxCreateControl = ( PATLAXCREATECONTROL ) GetProcAddress( hLib,
"AtlAxCreateControl" );
if ( AtlAxCreateControl )
{
hContainer = ( HWND ) CreateWindowEx( Exstyle, cClass, TEXT(""),
Style, x, y, w, h,
hParent, id, GetModuleHandle(
NULL ), NULL );
if( hContainer )
{
...
...
( AtlAxCreateControl ) ( wString, hContainer, NULL, &pUnk );
if( pUnk )
{
pUnk->lpVtbl->QueryInterface( pUnk, HB_ID_REF( IID_IDispatch ),
( void** ) (void*) &obj );
pUnk->lpVtbl->Release( pUnk );
hb_retnint( ( HB_PTRDIFF ) obj );
^^^^^^^^^^^^^^^^^^^^
This code returns a obj as a numeric handle which in turn
is used to initialize TOleAuto() for handelling messages.
If we can either change this code or olecore implementation
then we can come close of two implementations.
Regards
Pritpal Bedi
PS. I am really poor in OLE concepts and implementations.
I just tweaked the code forwarded by Andy Wos. So all
my words can be interpreted as a layman's.
--
View this message in context:
http://www.nabble.com/Errors-with-11032-tp23521549p23541110.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
