read.prg

常用的金融读写卡机ghc715 上位机程序。

DECLARE INTEGER readcard IN ghc715.dll INTEGER com,INTEGER track ,STRING @ data1 ,STRING @ data2
com=2

data1=SPACE(40)
data2=space(104)

wait wind '请刷卡2......' nowait
R=readcard(com,2,@data1,@data2)

wait clea
wait wind '请刷卡3......' nowait
R=readcard(com,3,@data1,@data2)

?data1
?data2
wait clea
clea dlls