function integer  ReadCardData2(ref int GetCardType, ref int GetCardNo,ref int GuestBatchID,ref int RoomNo, ref string Begintime,ref string Endtime) library "es200601.dll"
integer GetCardType,GetCardNo,GuestBatchID,RoomNo
string Begintime,Endtime
integer li_return =-1
li_return =ReadCardData2(ref GetCardType,ref GetCardNo,ref GuestBatchID,ref RoomNo,ref Begintime,ref Endtime)