#include "tlpp-core.th"
Function U_DynCall()
Local oDll as Object
Local nValue as Numeric
If (IsSrvUnix())
oDll := tRunDll():New("dllc.so")
Else
oDll := tRunDll():New("dllc.dll")
EndIf
oDll:callFunction("add", "III", nValue, 4, 8)
Conout("Retorno: " + cValToChar(nValue)) // espera-se 12
oDll:Free()
Return |