Help whith HRB Files
Posted: Tue Jun 05, 2012 11:53 pm
I have a file Externo.HRB with three functions (ex: Test_01, Text_02 and Test_03).
I need to run the Test_02 function. How do?
I need to run the Test_02 function. How do?
See if this helps you:
Code: Select all
#include "hbcompat.ch"
function main
local nHandle
try
nHandle := hb_hrbload( memoread( "file.hrb" ) )
catch oErr
? "Error load in hrb"
quit
end
if empty( nHandle )
? "Error call hrb"
quit
endif
? call_func( nHandle, "p1", "1" )
? call_func( nHandle, "p2", "2" )
hb_hrbunload( nHandle )
return NIL
*************************
static function call_func( nHandle, cFunc, xPar )
*************************
local xRet := HB_HRBGETFUNSYM( nHandle, cFunc )
if empty( xRet )
? "Error load in function " + cFunc
quit
endif
return eval( xRet, xPar )
