FiveTech Software tech support forums

Code: Select all

set HB_COMPILER=bcc
set path=c:\bcc582\bin
c:\harbour\bin\hbmk2 test1.prg
c:\harbour\bin\hbmk2 -hbdyn -lhbmaindllp pcode.prg
 

Code: Select all

function Main()

   local hDLL := hb_LibLoad( "pcode.dll" )

   Do( "Another" )
   Alert( "From the EXE" )
   
   hb_LibFree( hDLL )

return nil

#pragma BEGINDUMP

#include "hbapi.h"

HB_EXPORT_ATTR PHB_FUNC dll_hb_vmProcAddress( const char * szFuncName )
{
   return hb_vmProcAddress( szFuncName );
}

#pragma ENDDUMP  
 

Code: Select all

DYNAMIC Alert

function Another()

   Alert( "Inside the DLL" )

return nil
 

Code: Select all

function Main()

   Alert( "Hello world" )

return nil