FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Help whith HRB Files
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
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?
Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil
Posts: 344
Joined: Tue Oct 11, 2005 11:33 AM
Re: Help whith HRB Files
Posted: Wed Jun 06, 2012 01:29 AM
Hello Vilian,

See if this helps you:

Code (fw): Select all Collapse
#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 )


Best Regards,
Obrigado, Regards, Saludos



Rossine.



Harbour and Harbour++
Posts: 1067
Joined: Wed Nov 09, 2005 02:17 AM
Re: Help whith HRB Files
Posted: Wed Jun 06, 2012 10:42 AM

Rossine,

Thanks ;)

Sds,
Vilian F. Arraes
vilian@vfatec.com.br
Belém-Pa-Brazil

Continue the discussion