Hi Mindaugas.
This is the part of FWH activeX class:
---cut---
METHOD Default() CLASS TActiveX
local hSink, aEv, bOldError, oError
::hActiveX = CreateActiveX( ::cProgId, ::nStyle, ::nLeft, ::nTop,
::nWidth, ::nHeight, ::hWnd, 0 )
::hObj = AtlAxGetDisp( ::hActiveX )
bOldError = ErrorBlock( { |x| break( x ) } )
begin sequence
::oOle = ToleAuto():New( ::hObj )
recover using oError
AcpInfo( oError:Description )
end sequence
ErrorBlock( bOldError )
if !( ::aEvent == nil )
for each aEv in ::aEvent
::EventMap( aEv[ 1 ], aEv[ 2 ], Self )
next
SetupConnectionPoint( ::hObj, @hSink, ::aAxEvent, ::aAxExec )
::hSink = hSink
endif
return nil
---cut---
The main problem of the new OLE is that it not accept hObj as a
parameter like: ToleAuto():New( hObj ), but old OLE from hbwin accept
and works fine with FWH.
Maybe we can implement our own ActiveX class ?
If you need any activeX sample or source I can share it.
Regards,
Toninho.
__________________________________________________
Faça ligações para outros computadores com o novo Yahoo! Messenger
http://br.beta.messenger.yahoo.com/
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
