Thank to Puals attemp at trying to make it run through DBPro I seem to have now worked out how the oraingail Dll's worked and have found the following.
now when i run the test prog it just comes back with numbers anyone got any ideas on what they are telling me?
`
` Test the dll
`
Sync On
Sync Rate 60
LOAD DLL "C:Program FilesTAISoftwareWeather V5 Englishib90usb.dll",1
if DLL EXIST(1)=1
Repeat
IF DLL CALL EXIST(1,"TMValidSession")
PRINT "TMValidSession="; call dll (1,"TMValidSession")
PRINT "TMOneWireCom="; call dll (1,"TMOneWireCom")
else
print "does not exist."
ENDIF
Sync
Until EscapeKey()
endif
print "not loaded..."
sync
wait key
End
remstart
IB90USB.dll
TMBlockIO
TMBlockStream
TMClose
TMEndSession
TMExtendedStartSession
TMFirst
TMFirstAlarm
TMGetAdapterSpec
TMGetVersion
TMLine
TMNext
TMNextAlarm
TMOneWireCom
TMOneWireLevel
TMPortSetup
TMProgramPulse
TMSearch
TMSetup
TMTouchBit
TMTouchByte
TMTouchReset
TMValidSession
remend
test 2
`
` Test the dll
`
Sync On
Sync Rate 60
LOAD DLL "C:Program FilesTAISoftwareWeather V5 Englishib90usb.dll",1
if DLL EXIST(1)=1
Repeat
IF DLL CALL EXIST(1,"TMValidSession")
set cursor 0,0
restore block
for t=1 to 8
read A$
PRINT a$;"="; call dll (1,a$)
next t
sync
for t= 9 to 9
read a$
next t
for t=10 to 22
read a$
PRINT a$;"="; call dll (1,a$)
next t
else
print "does not exist."
ENDIF
Sync
Until EscapeKey()
endif
print "not loaded..."
sync
wait key
End
block:
data "TMBlockIO"
data "TMBlockStream"
data "TMClose"
data "TMEndSession"
data "TMExtendedStartSession"
data "TMFirst"
data "TMFirstAlarm"
data "TMGetAdapterSpec"
data "TMGetVersion"
data "TMLine"
data "TMNext"
data "TMNextAlarm"
data "TMOneWireCom"
data "TMOneWireLevel"
data "TMPortSetup"
data "TMProgramPulse"
data "TMSearch"
data "TMSetup"
data "TMTouchBit"
data "TMTouchByte"
data "TMTouchReset"
data "TMValidSession"
remstart
IB90USB.dll
TMBlockIO
TMBlockStream
TMClose
TMEndSession
TMExtendedStartSession
TMFirst
TMFirstAlarm
TMGetAdapterSpec
TMGetVersion
TMLine
TMNext
TMNextAlarm
TMOneWireCom
TMOneWireLevel
TMPortSetup
TMProgramPulse
TMSearch
TMSetup
TMTouchBit
TMTouchByte
TMTouchReset
TMValidSession
remend
test 3 making sence of data ,now has menfll values.
`
` Test the dll
`
Sync On
Sync Rate 60
LOAD DLL "C:\Program Files\TAISoftware\Weather V5 English\ib90usb.dll",1
LOAD DLL "C:\Program Files\TAISoftware\Weather V5 English\ib10e32.dll",2
set text size 8
if DLL EXIST(1)=1
Repeat
IF DLL CALL EXIST(1,"TMValidSession")
set cursor 0,0
restore block1
for t=1 to 8
read A$
PRINT a$;"=";
n=call dll (1,a$)
print n
next t
sync
for t= 9 to 9
read a$
`print a$;"='not Vailed' ";
`n=call dll (1,a$)
`print n
next t
for t=10 to 22
read a$
PRINT a$;"=";
n=call dll (1,a$)
print n
next t
else
print "does not exist."
ENDIF
IF DLL CALL EXIST(2,"TMBlockStream")
`set cursor 0,220
restore block2
for t=1 to 3
read A$
`set cursor 0,t*12
PRINT a$;"=";
n=call dll (2,a$)
print n
next t
sync
for t=4 to 6
read a$
`set cursor 0,t*12
`print a$;"='Not Vailded'"
next t
for t=7 to 13
read a$
`set cursor 250,t*12
PRINT a$;"=";
n= call dll (2,a$)
print n
next t
else
print "does not exist."
ENDIF
Sync
Until EscapeKey()
endif
print "not loaded..."
sync
wait key
End
block1:
data "TMBlockIO"
data "TMBlockStream"
data "TMClose"
data "TMEndSession"
data "TMExtendedStartSession"
data "TMFirst"
data "TMFirstAlarm"
data "TMGetAdapterSpec"
data "TMGetVersion"
data "TMLine"
data "TMNext"
data "TMNextAlarm"
data "TMOneWireCom"
data "TMOneWireLevel"
data "TMPortSetup"
data "TMProgramPulse"
data "TMSearch"
data "TMSetup"
data "TMTouchBit"
data "TMTouchByte"
data "TMTouchReset"
data "TMValidSession"
block2:
data "TMBlockStream"
data "TMClose"
data "TMEndSession"
data "TMExtendedStartSession"
data "TMGetAdapterSpec"
data "TMGetVersion"
data "TMOneWireCom"
data "TMOneWireLevel"
data "TMPortSetup"
data "TMSetup"
data "TMTouchBit"
data "TMTouchByte"
data "TMTouchReset"
data "TMValidSession"
Dark Physics makes any hot drink go cold.