FiveTech Software tech support forums

Code: Select all

#include "hbclass.ch"

function Main()

   local o := MyClass():New()

   Test( o )

return nil

CLASS MyClass

   METHOD New() INLINE Self

   METHOD Another( cText ) INLINE MsgInfo( cText ), "a string"

ENDCLASS

#pragma BEGINDUMP

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

HB_FUNC( TEST )
{
  hb_vmPushSymbol( hb_dynsymGetSymbol( "ANOTHER" ) );
  hb_vmPush( hb_param( 1, HB_IT_OBJECT ) );
  hb_vmPushString( "PRG level from C", strlen( "PRG level from C" ) );
  hb_vmFunction( 1 );   
  
  MessageBox( 0, "return code from PRG", hb_parc( -1 ), 0 );
}

#pragma ENDDUMP