First off Thank You for your replys
The first copy of inpout32.dll was bad
I downloaded a new copy of in from
http://logix4u.net/
And DBP can use the Inp32 function now
But it dose not seam to return the value i think it should
function dataIn()
LOAD DLL "inpout32.dll",1
if DLL EXIST(1)=1
if DLL CALL EXIST(1, "Inp32")=1
statByte= CALL DLL(1, "Inp32"),0x0379
rem I add the text for debuging
dat = CALL DLL(1, "Inp32"),0x0378
dat$ = hex$(dat)
text 200,100,dat$
sta = CALL DLL(1, "Inp32"),0x0379
sta$ = hex$(sta)
text 200,150,sta$
con = CALL DLL(1, "Inp32"),0x037a
con$ = hex$(con)
text 200,200,con$
else
print "does not exist."
endif
endif
DELETE DLL 1
endfunction statByte
the code above returns the same values for all 3 address
the 1st address is the buffer for D7-D0 on the Printer Port
the 2nd is the Status buffer
the 3rd is the Control buffer
Any ideas would help