Sorry your browser is not supported!

rem Initialisation ----------------------------------------------------------------
rem First we need to call each function to get their addresses:

Number1(1)
Number2(2)
Number3(3)
Number4(4)

SomethingToReturn()
CallBack(Val1)


randomize timer()
for i = 1 to 10
   f = rnd(3)
   inc f

   rem Call the function by reference
   call function f
next i

d$ = Call Function(5)
print d$
wait key


load dll "callback.dll",1
CallBack_Adr = FuncRef Address(6)
call dll 1,"UseCallBack",CallBack_Adr,12,42




wait key




function Number1(x)
   rem This creates a function reference Alway place this in the first line!
   rem Do not use local variables as parameters.
   Make Funcref 1,1

   rem "FUNCREF INIT" returns one if this is the first time a function reference is created
   rem otherwise zero. Thiis way we can avoid a function call through
   if funcref init(1) then exitfunction


   print "I am Number 1"
endfunction

function Number2(x)
   Make Funcref 2,1
   if funcref init(2) then exitfunction
   print "I am Number 2"
endfunction

function Number3(x)
   Make Funcref 3,1
   if funcref init(3) then exitfunction
   print "I am Number 3"
endfunction

function Number4(x)
   Make Funcref 4,1
   if funcref init(4) then exitfunction
   print "I am Number 4"
endfunction

function SomethingToReturn()
   Make Funcref 5,0
   if funcref init(5) then exitfunction ""
endfunction "Hello, World"


function CallBack(Val1)
   Make Funcref 6,2
   if funcref init(6) then exitfunction
   print "I'm a CallBack and I've been Called!"
   print "Val1: " + str$(Val1)
   print "Val2: " + str$(Val2)
endfunction

for i = 1 to 4
   call dll i
next i

for i = 1 to 4
   a = i
   call dll a
next i

MAKE FUNCREF Index, Number of Params
Index = A free FUNCREF index number (between 1 and 65535)
Number of Params = Number of Parameters the function has (between 0 and 8)
Creates a new function reference (FUNCREF)


DELETE FUNCREF Index
Index = A FUNCREF index
Deletes a function reference (FUNCREF)


Result = FUNCREF INIT(Index)
Index = A FUNCREF Index
Returns 1 if the function has been previously referenced otherwise 0.
IE. If for example MAKE FUNCREF 1,0 was called for the first time FUNCREF INIT(1) will return 1.
This can be useful if you want to call a function just to reference it but not to execute the rest of the function code.


Result = FUNCREF ADDRESS(Index)
Index = A FUNCREF Index
Returns the memory address of a DBpro function. You can pass this address to a DLL or a callback function.


Result = FUNCREF EXIST(Index)
Index = A FUNCREF Index
Returns 1 if the FUNCREF exists otherwise 0.


CALL FUNCTION Index[, Params]
Result = CALL FUNCTION(Index[, Params])
Index = A FUNCREF Index
Params = Up to 8 function parameters (optional)
Calls a Function by its reference


CONVERT TO STDCALL Index
Index = A FUNCREF Index
Converts the calling convention of a DBpro function from CDECL (default) to STDCALL.
Certain callback routines of the Windows API require functions that use the STDCALL convention.