>declare long APIGetEnv in APIDll long >declare long APIFunction in APIDll long pPointer, double @ dArray >dimension dArray[2] >dArray=0.0 >nPtr=APIGetEnv() >nError=APIFunction(nPtr,@dArray) && does not update the array elements!!! >* function returns nError <> 0 which means success. >>
declare long APIGetEnv in APIDll long declare long APIFunction in APIDll long pPointer, string @ lcArray = REPLICATE(CHR(0), 8*2) nPtr=APIGetEnv() nError=APIFunction(nPtr, @lcArray) DIMENSION dArray[2] dArray[1] = bton(SUBSTR(lcArray,1,8) dArray[2] = bton(SUBSTR(lcArray,9,8))