test.bak

VFP调用第三方接口动态库

SET TALK ON 
DEFINE CLASS cTestNo AS STRUCT
  CardNo=''
  cMember="0c2:CardNo"
ENDDEFINE 
DEFINE CLASS AccountMsg AS STRUCT
  CName=''
  SexNo=''
  DeptCode=''
  CardNo=0
  AccountNo=0
  StudentCode=''
  IDCard=''
  PID=''
  IDNo=''
  Balance=0
  CPassword=''
  ExpireDate=''
  SubSeq=0
  IsOpenInSys=''
  TerminalNo=0
  RetCode=0
  cMember="0c21:CName,0c2:SexNo,0c19:DeptCode,ul:CardNo,ul:AccountNo,0c21:StudentCode,0c21:IDCard,;
  0c3:PID,0c12:IDNo,l:Balance,0c7:CPassword,0c7:ExpireDate,uw:SubSeq,0c1:IsOpenInSy,w:TerminalNo,;
  w:RetCode"
ENDDEFINE  
LOCAL PAccountMsg,nRet
DECLARE integer TA_ReadCardSimple IN "AIO_API.dll";
  string @
DECLARE integer TA_CRInit IN "AIO_API.dll";
  integer,integer,integer
DECLARE integer TA_FastGetCardNo IN "AIO_API.dll";
  string @
DECLARE integer TA_CRClose IN "AIO_API.dll"

PAccountMsg=CREATEOBJECT("AccountMsg")
PAccountMsg.dwSize = PAccountMsg.SizeOf()
nRet=PAccountMsg.GetString()

? nRet