BASIC

Author Topic: dll cal standar  (Read 957 times)

Offline janj6666

  • Mc. Print
  • *
  • Posts: 2
    • View Profile
dll cal standar
« on: 2016-Dec-27 »
Hi

I trying to make a dll call

the print give 0  0 0
// --------------------------------- //
// Project: test-DLL
// Start: Sunday, December 11, 2016
// IDE Version: 14.001
GLOBAL NetworkFilename$  ="betfairbot.NET"
GLOBAL Netnavn$ ="betfairbot.NET"
GLOBAL NetHandle%
GLOBAL r%
GLOBAL a%

GLOBAL  inputval%[]
DIM    inputval%[999]

GLOBAL  outputval%

//  init
NetHandle% = InitializeNetwork(Netnavn$) //"betfairbot.net"
PRINT "test..: "+NetHandle% ,20,20


//a=249
outputval% = ProcessInputVector(NetHandle%, inputval%[])
PRINT "test..: "+outputval% ,20,40


//terminat
r%= TerminateNetwork(NetHandle%)
PRINT "test..: "+r% ,20,60
SHOWSCREEN
MOUSEWAIT


FUNCTION InitializeNetwork: Netnavn$
   INLINE
       DECLARE_C_ALIAS(stdInitializeNetwork, "runtime.dll","stdInitializeNetwork", (char) , float);
   ENDINLINE
ENDFUNCTION


FUNCTION ProcessInputVector:NetHandle%,inputval%[]
   INLINE
      DECLARE_ALIAS(ProcessInputVector, "runtime.dll", "stdProcessInputVector", (float, float()),float);
   ENDINLINE
ENDFUNCTION


FUNCTION TerminateNetwork:NetHandle%
   INLINE
      DECLARE_ALIAS(TerminateNetwork, "runtime.dll", "stdTerminateNetwork", (float), float);
   ENDINLINE
ENDFUNCTION