Usando C++ con FWPPC

[Antonio Linares]

Code: Select all  Expand view  RUN

#include "c:\harbour\include\hbapi.h"

class Sample
{
   public:
      int iValue;
      Sample();
};

Sample::Sample()
{
   iValue = 123;
}  

HB_FUNC( TEST )  
{
   Sample * p = new Sample;
   
   hb_retnl( ( unsigned long ) p );
}

HB_FUNC( TEST_IVALUE )
{
   hb_retnl( ( ( Sample * ) hb_parnl( 1 ) )->iValue );
}  

extern "C"
{
   HB_FUN_MSGINFO( void );
}

HB_FUNC( XMSGINFO )
{
   HB_FUN_MSGINFO();
}