HB_FUNC( RETPTR ) // nValue --> Harbour_Pointer
{
   hb_retptr( ( void * ) hb_parnl( 1 ) );
}

::oOleAuto = TOleAuto():New( RetPtr( ActXPdisp( ::hActiveX ) ) )

Application
===========
   Path and name: C:\fwh\samples\webexp.exe (32 bits)
   Size: 1,492,992 bytes
   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 06/13/09, 09:45:56
   Error description: Error BASE/3012  Argument error: NEW
   Args:
     [   1] = P   

Stack Calls
===========
   Called from:  => TOLEAUTO:NEW(0)
   Called from: classes\ACTIVEX.PRG => TACTIVEX:NEW(0)
   Called from: WEBEXP.prg => MAIN(10)

// FiveWin ActiveX support (32/64 bits only)
// (c) FiveTech Software, all rights reserved

#include "FiveWin.ch"

#define  HKEY_CLASSES_ROOT       2147483648

//----------------------------------------------------------------------------//

CLASS TActiveX FROM TControl

   CLASSDATA lRegistered AS LOGICAL

   DATA   hActiveX
   DATA   cProgID
   DATA   cString
   DATA   aProperties, aMethods, aEvents
   DATA   bOnEvent
   DATA   oOleAuto

   METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CONSTRUCTOR

   METHOD ReDefine( nId, oWnd, cProgID ) CONSTRUCTOR

   METHOD Do( cMethodName, uParam1, uParam2, uParam3, uParam4, uParam5 )

   METHOD Display() INLINE ::BeginPaint(), ::Paint(), ::EndPaint(), 0

   METHOD EraseBkGnd( hDC ) INLINE 1

   METHOD GetProp( cPropName ) INLINE __ObjSendMsg( ::oOleAuto, cPropName )

   METHOD Initiate( hDlg )
   
   METHOD OnEvent( nEvent, aParams )

   METHOD ReadTypes()

   METHOD ReSize( nFlags, nWidth, nHeight ) INLINE ;
             ActXSetLocation( ::hActiveX, 0, 0, nWidth, nHeight )

   METHOD SetProp( cPropName, uParam1 ) INLINE __ObjSendMsg( ::oOleAuto, cPropName, uParam1 )
             
   METHOD Destroy() INLINE ActXEnd( ::hActiveX ), Super:Destroy()   
   
   ERROR HANDLER OnError( uParam1 )       
             
ENDCLASS

//----------------------------------------------------------------------------//

METHOD New( oWnd, cProgID, nRow, nCol, nWidth, nHeight ) CLASS TActiveX

   DEFAULT oWnd := GetWndDefault(), nRow := 0, nCol := 0, nWidth := 200,;
           nHeight := 200

   ::nTop    = nRow
   ::nLeft   = nCol
   ::nBottom = nRow + nHeight
   ::nRight  = nCol + nWidth
   ::oWnd    = oWnd
   ::nId     = ::GetNewId()
   ::nStyle  = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP )
   ::cProgID = cProgID
   ::cString = ActXString( cProgID )
   ::Register()

   if ! Empty( oWnd:hWnd )
      ::Create()
      oWnd:AddControl( Self )
      ::hActiveX = CreateActiveX( ::hWnd, cProgID, Self )

msgstop( valtype( ::hActiveX ) )                       && Here return "Numeric"

msgstop( valtype( RetPtr( ActXPdisp( ::hActiveX ) ) ) )      && Here return "Pointer"

      ::oOleAuto = TOleAuto():New( RetPtr( ActXPdisp( ::hActiveX ) ) )
**      ::oOleAuto = TOleauto():New( ActXPdisp( ::hActiveX ) )
      ::nTop = nRow
      ::nLeft = nCol
      ::nWidth = nWidth
      ::nHeight = nHeight
      ::ReadTypes()
   else
      oWnd:DefControl( Self )
   endif

return Self

//----------------------------------------------------------------------------//

METHOD Do( ... ) CLASS TActiveX

#ifndef __XHARBOUR__
   return __ObjSendMsg( ::oOleAuto, ... )
#else
   local aParams := hb_aParams()

   AIns( aParams, 1, ::oOleAuto, .T. )

   return hb_execFromArray( @__ObjSendMsg(), aParams )   
#endif   

//----------------------------------------------------------------------------//

METHOD ReDefine( nId, oWnd, cProgID ) CLASS TActiveX

   DEFAULT oWnd := GetWndDefault()
   
   ::nId     = nId
   ::oWnd    = oWnd
   ::cProgID = cProgID
   ::cString = ActXString( cProgID )

   ::Register( nOR( CS_VREDRAW, CS_HREDRAW ) )
   
   oWnd:DefControl( Self )

return Self

//----------------------------------------------------------------------------//

METHOD Initiate( hDlg ) CLASS TActiveX

   Super:Initiate( hDlg )

   ::hActiveX = CreateActiveX( ::hWnd, ::cProgID, Self )
   ::oOleAuto = TOleauto():New( ActXPdisp( ::hActiveX ) )
   ::ReadTypes()

return nil

//----------------------------------------------------------------------------//

METHOD OnEvent( nEvent, aParams ) CLASS TActiveX

   local nAt := AScan( ::aEvents, { | aEvent | aEvent[ 2 ] == nEvent } )
   local cEvent := If( nAt != 0, ::aEvents[ nAt ][ 1 ], "" )
   
   if ! Empty( ::bOnEvent )
      Eval( ::bOnEvent, If( ! Empty( cEvent ), cEvent, nEvent ), aParams )
   endif   

return nil

//----------------------------------------------------------------------------//

METHOD ReadTypes() CLASS TActiveX

   local oReg := TReg32():New( HKEY_CLASSES_ROOT, "CLSID\" + ::cString + ;
                               "\InprocServer32" )
   local cTypeLib := oReg:Get( "" )

   oReg:Close()
   
   if ! Empty( cTypeLib ) .and. File( cTypeLib )
      ::aEvents = ActXEvents( cTypeLib, ::hActiveX )
   endif   

return nil

//----------------------------------------------------------------------------//

METHOD OnError( ... ) CLASS TActiveX

#ifndef __XHARBOUR__
   return __ObjSendMsg( ::oOleAuto, __GetMessage(), ... )
#else
   local aParams := hb_aParams()

   AIns( aParams, 1, ::oOleAuto, .T. )
   AIns( aParams, 2, __GetMessage(), .T. )   

   return hb_execFromArray( @__ObjSendMsg(), aParams )   
#endif   

//----------------------------------------------------------------------------//

#pragma begindump

#include <windows.h>
#include <hbapi.h>

HB_FUNC( RETPTR ) // nValue --> Harbour_Pointer
{
   hb_retptr( ( void * ) hb_parnl( 1 ) );
}

#pragma ENDDUMP


#pragma BEGINDUMP

#include <hbapi.h>
#include <windows.h>

LPSTR hb_oleWideToAnsi( BSTR wString );

HB_FUNC( STRINGFROMCLSID )
{
   LPOLESTR pOleStr;
   LPSTR * psz;
 
   StringFromCLSID( ( REFCLSID ) hb_parnl( 1 ), &pOleStr );
   hb_retc( psz = hb_oleWideToAnsi( pOleStr ) );
   hb_xfree( psz );
}

#pragma ENDDUMP

::oOleAuto = TOleAuto():New( STRINGFROMCLSID( ActXPdisp( ::hActiveX ) ) )

Application
===========
   Path and name: C:\fwh\samples\webexp.exe (32 bits)
   Size: 1,492,992 bytes
   Time from start: 0 hours 0 mins 1 secs 
   Error occurred at: 06/15/09, 08:20:58
   Error description: Error BASE/3012  Argument error: NEW
   Args:
     [   1] = C   {403E0448-5608-4040-A84E-304028543040}

Stack Calls
===========
   Called from:  => TOLEAUTO:NEW(0)
   Called from: classes\ACTIVEX.PRG => TACTIVEX:NEW(0)
   Called from: webexp.prg => MAIN(10)

Application
===========
   Path and name: C:\fwh\samples\webexp.exe (32 bits)
   Size: 1,492,992 bytes
   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 06/15/09, 08:48:29
   Error description: Error BASE/3012  Argument error: NAVIGATE
   Args:
     [   1] = C   http://www.google.com.br

Stack Calls
===========
   Called from:  => TOLEAUTO:NAVIGATE(0)
   Called from:  => __OBJSENDMSG(0)
   Called from: classes\ACTIVEX.PRG => TACTIVEX:DO(0)
   Called from: webexp.prg => MAIN(15)

::oOleAuto = TOleAuto():New( ActXPdisp( ::hActiveX ) )
...
::oOleAuto = TOleAuto():New( RetPtr( ActXPdisp( ::hActiveX ) ) )
...
::oOleAuto = TOleAuto():New( STRINGFROMCLSID( ActXPdisp( ::hActiveX ) ) )
...

   oActiveX = TActiveX():New( oWnd, "Shell.Explorer" )

   msgstop( valtype( oActiveX ) )

memowrit( "dump.txt", hb_dumpvar( oActiveX ) )

<TACTIVEX Object>
 | 
 +- PRIVATE/HIDDEN:
 | 
 +- PROTECTED:
 | 
 +- EXPORTED/VISIBLE/PUBLIC:
 |  +- >> Begin Data    ------
 |  +- ACONTROLS            [Data   ] [Ex,Su             ] U => NIL
 |  +- ADOTS                [Clsdata] [Ex,Sh,Cl,Su       ] U => NIL
 |  +- AEVENTS              [Data   ] [Ex                ] A => { Array of 38 Items }
 |  +- AMETHODS             [Data   ] [Ex                ] U => NIL
 |  +- AMINMAXINFO          [Data   ] [Ex,Su             ] U => NIL
 |  +- APROPERTIES          [Data   ] [Ex                ] U => NIL
 |  +- BCHANGE              [Data   ] [Ex,Su             ] U => NIL
...
 |  +- >> End   Methods ------
 |     
 +----------->


   #include "winapi.ch"
   local oWindow, oActiveX
   DEFINE WINDOW oWindow FROM 0,0 to 400,300 TITLE "Flash Player"
   WIN_AxInit()
   oActiveX = WIN_AxGetControl( CreatePtrActiveX( 0, "AtlAxWin", "ShockwaveFlash.ShockwaveFlash.1", nOR( WS_CHILD, WS_VISIBLE ), 0, 0, 200, 200, oWindow:hWnd, 0 ), nil )
   ACTIVATE WINDOW oWindow ON INIT oActiveX:LoadMovie( 0, "c:\flash.swf" )

#pragma BEGINDUMP

#include "windows.h"
#include "hbapi.h"

extern HINSTANCE _hInstance;

HB_FUNC( CREATEPTRACTIVEX )
{
   hb_retptr( CreateWindowEx(
      hb_parnl( 1 ),
      hb_parc( 2 ),
      (LPCTSTR)ISNIL( 3 ) ? ""                  : hb_parc( 3 ) ,   // cProgId
      (DWORD)  ISNIL( 4 ) ? WS_OVERLAPPEDWINDOW : hb_parni( 4 ),   // style
               ISNIL( 5 ) ? CW_USEDEFAULT       : hb_parni( 5 ),   // nLeft
               ISNIL( 6 ) ? CW_USEDEFAULT       : hb_parni( 6 ),   // nTop
               ISNIL( 7 ) ? 300                 : hb_parni( 7 ),   // nWidth
               ISNIL( 8 ) ? 300                 : hb_parni( 8 ),   // nHeight
               ISNIL( 9 ) ? HWND_DESKTOP        : (HWND) hb_parnl( 9 ),    // oParent:handle
               ISNIL( 10 ) ? 0                   : (HMENU) hb_parnl( 10 ),  // Id
               _hInstance,
               NULL ) );
}

#pragma ENDDUMP