1 ǰ

   Es200601.dllһHOTEL2006.01ĵӿڳ(API)ԵṩдԼȡˢ¼ȹܡ
ʹǰȰװHOTEL200601ûֲݿ⣬ѡ񷢿ϵͳ롣
Es200601.dllʹhotel200601ͬݿ⣬Ὣд¼дݿС

2011-10-14 ӶдſĹܣ˹ҪõYLE300_Api.dllļ

2011-12-30 ԰汾1000汾
           //԰汾200Win7¿ɲϢ汾
           ԰汾100Ǽϰ汾
           ԰汾10000ǱԽ汾(ȡ)

2 
  ṩDELPHIVBԵʹԴ룺Es200601_D5.dpr,Es200601_VB.vbp


3 Es200601.dllб
const
  SUCCEEDED                    = 0;
  ERR_INVALID_DATE             = -1;
  ERR_WRITE_CARD_FAILED        = -2;
  ERR_INVALID_BUILDING_NO      = -3;
  ERR_INVALID_FLOOR_NO         = -4;
  ERR_INVALID_ROOM_NO          = -5;
  ERR_INVALID_CARD_NO          = -6;
  ERR_DATABASE_NOT_OPENED      = -100;
  ERR_CONNECT_DATABASE_FAILED  = -101;
  ERR_CLOSE_DATABASE_FAILED    = -102;
  ERR_DATABASE_NOT_CREATED     = -103;
  ERR_CANNOT_OPEN_COMM_PORT    = -200;
  ERR_CANNOT_CONNECT_DATA_COLLECTOR = -201;
  ERR_INVALID_DATA             = -202;
  
{
   :
     ȡDLLļİ汾
   Result:
     汾,ֵ
}
function GetVersion():integer;stdcall; external'es200601.dll' ;

{
  ܣӵݿ
      ڵDLLй֮ǰȵOpenDatabase,ݿɹſԽ
  
       username:pchar; ݿû
       password:pchar; ݿ
       username passwordͬʱΪգϵͳĬϵû¼ݿ
  ֵ:
        SUCCEEDED ɹ
        ֵʧ
}
function OpenDatabase(Username:pchar;Password:pchar):integer;stdcall;external'es200601.dll' ;

{
  ܣرݿ
      ˳ǰȹرݿ⣬쳣
  ֵ:
      SUCCEEDED  ɹ
}
function CloseDatabase:integer;stdcall;external'es200601.dll' ;

{
  ܣܿؿ,ԿƵϵͳ
  
       pcLimitedTime:pcharЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ʱ  磺'0810221200' 2008102212ʱ
         ڱ>2005/01/01
  ֵ:
       SUCCEEDED дɹ
       CardNo ؿ
}
function WriteMasterCard(pcLimitedTime:pchar;Var CardNo: integer):integer;
        stdcall;external'es200601.dll' ;

{
  ܣ,ԿƵϵͳѷ
  
      pcLimitedTime:pcharЧڣڴǰЧ
        pcLimitedTime = '' ʱ
        pcLimitedTime = 'YYMMDDHHmm' ʱ  磺'0810221200' 2008102212ʱ
        ڱ>2005/01/01

  ֵ:
      SUCCEEDED дɹ
      CardNo ؿ
}
function WriteEmergencyCard(strLimitedTime:pchar;Var CardNo: integer):integer;
        stdcall;external'es200601.dll' ;

{
  ܣ 俨,ԿƵϵͳָɴ¥͸ӵ9
  ò:
      pcLimitedTime:pchar;ЧڣڴǰЧ
         pcLimitedTime = '' ʱ
         pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
        Чڱ>2005/01/01

      BuildingNo1:integer;BuildingNo2:integer; ŷΧ¥BuildingNo1¥BuildingNo2  (ȡֵΧ1~99)
      pcSpecialRoomTypeList:pchar; ԴЩ͵ⷿ9ⷿͣ󳤶Ϊ9 
          磺'379000000'  ԴΪ379ⷿ
  Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_BUILDING_NO   = -3;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteMultiBuildingCard(pcLimitedTime:pchar;BuildingNo1:integer;
  BuildingNo2:integer;pcSpecialRoomTypeList:pchar;Var GetCardNo:integer):integer;
  stdcall;external'es200601.dll' ;

{
  ܣ㿨,ԿƵϵͳָĳ¥ɲ͸ӵ9
  :
       pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01

      BuildingNo:integer ŷΧָ¥      (ȡֵΧ1~99)
      FloorNo1:integer;FloorNo2:integer; ¥  (ȡֵΧ1~99)
      pcSpecialRoomTypeList:pchar; ԴЩ͵ⷿ9ⷿ 󳤶Ϊ9 
         磺'379000000'  ԴΪ379ⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_BUILDING_NO   = -3;
          ERR_INVALID_FLOOR_NO      = -4;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteMultiFloorCard(pcLimitedTime:pchar;BuildingNo:integer;FloorNo1:integer;
  FloorNo2:integer;pcSpecialRoomTypeList:pchar;Var GetCardNo:integer):integer;stdcall;external'es200601.dll' ;

{
  ܣ
       ¥㿨,ԿƵϵͳָĳ¥ĳһл򲿷͸ӵ9
       "ĩ"øòɿķΧ"ĩ"2ֽΪ0000ʱΪ˫¥㿨˫ŷ
       2ֽΪ9999ʱΪ¥㿨ŷ

  :
       pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01

      BuildingNo:integer; ָ¥  (ȡֵΧ1~99)
      FloorNo:integer;  ָ¥ (ȡֵΧ1~99)
      RoomNo1:integer;RoomNo2:integer; (ȡֵΧ1~99)
            ָŷΧ: RoomNo1 = 0 ;RoomNo2 = 0 Ϊ˫¥㿨˫ŷ
                          RoomNo1 = 99 ;RoomNo2 = 99 Ϊ¥㿨ŷ
      pcSpecialRoomList:pchar; ԴЩⷿ9ⷿ󳤶Ϊ9 
          磺'379000000'  Դ379ŵⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_BUILDING_NO   = -3;
          ERR_INVALID_FLOOR_NO      = -4;
          ERR_INVALID_ROOM_NO       = -5;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteServiceCard(pcLimitedTime:pchar;
  BuildingNo:integer;FloorNo:integer;RoomNo1:integer;RoomNo2:integer;
  pcSpecialRoomList:pchar;Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
  ܣ
       ԱԿƵϵͳ9

  :
       pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01


      pcSpecialRoomList:pchar; ԴЩⷿ9ⷿ󳤶Ϊ9 
        磺'379000000'  Դ379ŵⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteEmployeeCard(pcLimitedTime:pchar;
  pcSpecialRoomList:pchar;Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;
  
{
  ܣ
       ԿƵϵͳָĳһ͸ӵ5ʹ֮򳣱ա

  :
      pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01

      pcRoomNo1:pchar;
          ԿĵһţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
      pcRoomNo2:pchar;
         ԿĵڶţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
         Ϊֵ
      pcSpecialRoomList:pchar; ԴЩⷿ5ⷿ,󳤶Ϊ5 磺'37900'  Դ379ŵⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_ROOM_NO       = -5;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteUnlockingCard(pcLimitedTime:pchar;pcRoomNo1:pchar; pcRoomNo2:pchar;
  pcSpecialRoomList:pchar;Var GetCardNo:integer):integer;stdcall;external'es200601.dll' ;

{
  ܣ
       һοҽɿƵϵͳָĳһ͸ӵ5һΡһԱάԱʹá

  :
      pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01

      pcRoomNo1:pchar;
          ԿĵһţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
      pcRoomNo2:pchar;
         ԿĵڶţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
         Ϊֵ
      pcSpecialRoomList:pchar; ԴЩⷿ5ⷿ,󳤶Ϊ5 磺'37900'  Դ379ŵⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_ROOM_NO       = -5;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteOneOffCard(pcLimitedTime:pchar;pcRoomNo1:pchar; pcRoomNo2:pchar;
  pcSpecialRoomList:pchar;Var GetCardNo:integer):integer;stdcall;external'es200601.dll' ;

{
  ܣ
       ÿԿƵϵͳָĳһ͸ӵ5ϵͳйϲƿʱñÿӦסĿʹá

  :
      pcLimitedTime:pchar;ЧڣڴǰЧ
          pcLimitedTime = '' ʱ
          pcLimitedTime = 'YYMMDDHHmm' ڸʽʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01

      pcRoomNo1:pchar;
          ԿĵһţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
      pcRoomNo2:pchar;
         ԿĵڶţʽΪ¥ŲŷŸ;磬"0108100" ʾ1¥810ŷ䣬0
         Ϊֵ
      pcSpecialRoomList:pchar; ԴЩⷿ5ⷿ,󳤶Ϊ5 磺'37900'  Դ379ŵⷿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_INVALID_DATE     = -1;
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_ROOM_NO       = -5;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteBackupCard(pcLimitedTime:pchar;pcRoomNo1:pchar; pcRoomNo2:pchar;
  pcSpecialRoomList:pchar;Var GetCardNo:integer):integer;stdcall;external'es200601.dll' ;

{
   :
       ԭʼ,ڲE2PROMɳʱ״̬ԭʼЧ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteSystemResetCard(Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
       д뿨,ϵͳ롣뿨Ч
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteSiteCard(Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
      ֹ,ֹǰ˿ĳ/Žʹá
      "ʼʱ"Ŀ˿Զȡֹ״ֹ̬ԳͨЧ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteForbidCard(Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
      ¼ʹͨ״̬ûȡ¼ȡ
      Ϊſʱȡmifareʱ翨ĸΪ0Ҳȡ12ż¼1-12ȫ0дݡΪIC124C64
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteRecordCard(Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
      忨ڲE2PROMڵĳͷûݣ
      翪¼Ǽ¼ڰȡ忨Ч
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteClearMemoryCard(Var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;


{
   : ͨſ
      豸Ʒźԡ
   :
      pcRoomNo:pchar;
     źţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ"0000010"ʾ1ⷿ

   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteRoomLockNoCard(pcRoomNo:pchar; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   : ͨſ
      豸Ʒźԡ
   :
      pcRoomNo:pchar;
         ţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ"0000010"ʾ1ⷿ
     PassageType:integer;
        ͨ: 1Ϊͨ2Ϊ¥ͨ3Ϊͨ
        Floor passage----- 1
        Building passage-- 2
        General passage----3
     pcSpecialRoomList:pchar
         Ϊͨʱͨеⷿ1/2/3/4/5/6/7/8/9"9ⷿ䣬мдм䲻Ҫգ
         δд0ע˴дҶ

   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WritePassageLockNoCard(pcRoomNo:pchar;PassageType:integer;pcSpecialRoomList:pchar; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   : ⷿſ
      豸Ʒźԡ
   :
      pcRoomNo:pchar;
         ţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ"0000010"ʾ1ⷿ
     SpecialRoomType:integer
         ⷿȡֵΧ1~9
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteSpecialRoomLockNoCard(pcRoomNo:pchar;SpecialRoomType:integer; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
       ʱӿ,õǰʱӡ""õֽڣ"2005"ȡ"05"ʱӿЧ
   :
      pcTime:pchar; ʱʱ
         ʽ'yymmddhhnnss'
         "081230120000"ʾ08123012ʱ0000

   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteClockCard(pcTime:pchar; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
       ÿ൱뿨ſʱӿۺϡһҪһÿбҪ
   :
    pcRoomNo:pchar;
        ţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ"0000010"ʾ1ⷿ

    RoomType:integer;
        : 0ͨ 1Ϊͨ2Ϊ¥ͨ3Ϊͨ  4Ϊⷿ

     pcSpecialRoomList:pchar
        RoomType = 0 ʱòЧ
          RoomType = 123ʱΪͨʱͨеⷿ1/2/3/4/5/6/7/8/9"9ⷿ
        RoomType = 4ʱ òΪⷿͺ'1'~'9'
     pcTime:pchar;
          ʱʱ
         ʽ'yymmddhhnnss'
         "081230120000"ʾ08123012ʱ0000

   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteSettingCard(pcRoomNo:pchar;RoomType:integer;
  pcSpecialRoomList:pchar;pcTime:pchar;
  var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
       ʧ,ĳһϢ/Žйʧʹ֮Ч
       ע"ʧĿķϢ""ʧĿ""ҪˢŹʧķ"
       ʧڲʱдʧ"ʧĿ"ԭЧЩЧ
   :
    LossCardNo:integer;
        ʧĿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_CARD_NO       = -6;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteReportLossCard(LossCardNo:integer; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;

{
   :
       ҿʧķ
   :
    ReleaseCardNo:integer;
        ҵĿ
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_INVALID_CARD_NO       = -6;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteReleaseCard(ReleaseCardNo:integer; var GetCardNo:integer):integer;stdcall;
  external'es200601.dll' ;
{
   WriteGuestCard
   :
          ˿/Ԥ˿ԿƵϵͳָĳһ͸ӵ5
      Ԥ"ʼʱ"ַд뵱ǰƿʱ伴ɣԤ"ʼʱ"д"Ԥסʱ"
      ǱҪ"Ԥ"ΪʱӲ̫׼ȷֱӰ˿һҪ"Ԥ"
      ʱϷһ"κ"һͬʱж˿ʱҶΪͬһ"κ"
      Ų໥šÿ"κ"Զ01-99991һֱѭ
      ˿ʱ翨"κ""˿κ"ȣ粻ȣ۴ڻСڣ
      ȥȽ"ʼʱ"翨ĿʼʱС"˿ʱ"򲻿ɿʾ""
      翨Ŀʼʱ"˿ʱ"򽫿ʱд"˿ʱ"λã
      ٽÿ"κ"д"˿κ"λã翨Ŀʼʱ"˿ʱ"
      ʵдʱܳдκŲͬʼʱͬĿʱҲ
      翨Ŀʼʱ"˿ʱ"ʵдʱܳ
      дκŲͬʼʱͬĿ,ǹͬһд
      ʱ翨"κ""˿κ"Կô˴κŸ"˿κ"
      Ҳʾ""
   :
    GuestName:pchar;
    ,Ϊ
    pcRoomNo1:pchar;
        ÿ˿Կĵһţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ
    GuestBatchID1:integer;
        һĿκ
    pcRoomNo2:pchar;
        ÿ˿Կĵڶţ"1234560"ʾ123456ŷ"1234567"ʾ123456ŷ7Ÿ
        Ϊգֻһ䡣
     GuestBatchID2:integer;
        ڶĿκ,pcRoomNo2=''ʱЧ
    RoomType:integer;
        : 0ͨ 1Ϊͨ2Ϊ¥ͨ3Ϊͨ  4Ϊⷿ

     pcSpecialRoomList:pchar
       5;:'13500'ʾԿͺΪ135
    pcBeginTime:pchar;
    pcEndTime:pchar;
          Чڣʱ֮俪Ч
           pcEndTime = '' ʱ
          ʱʽ: 'YYMMDDHHmm' ʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01
   Result:
       óɹ󷵻:
          SUCCEED =0;
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}

{
   WriteGuestCard2
   :
          ˿
   :
    GuestName:pchar;
    ,Ϊ
    pcRoomNo:pchar;
        ÿ˿Կĵһţ"1234560"ʾ123456ŷ"123456"ʾ123456ŷ
    GuestCardType:integer;
        ¿Ǹƿ 0  1 

    pcBeginTime:pchar;
    pcEndTime:pchar;
          Чڣʱ֮俪Ч
           pcEndTime = '' ʱ
          ʱʽ: 'YYMMDDHHmm' ʱ  磺'0810221200' 2008102212ʱ
         Чڱ>2005/01/01
   Result:
       óɹ󷵻:
          SUCCEED(0);
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}
function WriteGuestCard2(pcGuestName:pchar;GuestCardType:integer;
  pcRoomNo:pchar;
  pcBeginTime:pchar;
  pcEndTime:pchar;
  var GetCardNo:integer):integer;stdcall;
 external'es200601.dll' ;

function WriteGuestCard(GuestName:pchar;
  pcRoomNo1:pchar;GuestBatchID1:integer;
  pcRoomNo2:pchar;GuestBatchID2:integer;
  pcSpecialRoomList:pchar;
  pcBeginTime:pchar;
  pcEndTime:pchar;
  var GetCardNo:integer):integer;stdcall;
    external'es200601.dll' ;
{
   ReadCardData
   :
         ȡݣؿͺͿ
     ͱ
         	01
         ԭʼ	10
         뿨	11
         ſ	12
         ʱӿ	13
         ÿ	14
         忨	15
         ֹ	16
         ʧ	17
         ҿ	18
         ¼	19
         	30
         ܿؿ	31
         俨	32
         㿨	33
         ¥㿨	34
         Ա	35
         	36
         һο	37
         ÿ	38
         ˿	39
         Ԥ˿	40

   :
     GetCardType:integer; ؿ
     GetCardNo:integer;  ؿ
   Result:
       óɹ󷵻:
          SUCCEED(0)
          GetCardNoؿ  ;
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED     = -100;
}

function  ReadCardData(var GetCardType:integer;var GetCardNo:integer ):integer;stdcall;
 external'es200601.dll' ;

{
   GetLockRecord_USB
   :
       USBӿڼ¼ȡжȡˢʷ

   :
     Var RecordDataBuffer:pchar  ȡʷ¼ ; ݸʽĵ
   Result:
       óɹ󷵻:
          SUCCEED(0)
          RecordDataBufferȡʷ¼
       ʧʱ:
          ERR_CANNOT_OPEN_COMM_PORT
          ERR_INVALID_DATA
          ERR_CANNOT_CONNECT_DATA_COLLECTOR
}
function GetLockRecord_USB(Var RecordDataBuffer:pchar):integer;stdcall;
  external'es200601.dll' ;
{
   GetLockRecord_COM
   :
       Ӵڼ¼ȡжȡˢʷ  ; ݸʽĵ

   :
     comport:integer; ں1~9
     Var RecordDataBuffer:pchar  ȡʷ¼
   Result:
       óɹ󷵻:
          SUCCEED(0)
          RecordDataBufferȡʷ¼
       ʧʱ:
          ERR_CANNOT_OPEN_COMM_PORT
          ERR_INVALID_DATA
          ERR_CANNOT_CONNECT_DATA_COLLECTOR
}
function GetLockRecord_COM(ComPort:integer;Var RecordDataBuffer:pchar):integer;stdcall;
  external'es200601.dll' ;

{
   ReadCardData2
   :
         ȡ
     ͱ
         	01
         ԭʼ	10
         뿨	11
         ſ	12
         ʱӿ	13
         ÿ	14
         忨	15
         ֹ	16
         ʧ	17
         ҿ	18
         ¼	19
         	30
         ܿؿ	31
         俨	32
         㿨	33
         ¥㿨	34
         Ա	35
         	36
         һο	37
         ÿ	38
         ˿	39
         Ԥ˿	40
   :
     GetCardType:integer; ؿ
     GetCardNo:integer;  ؿ
     GuestBatchID:Byte;  
     RoomNo:integer;  ط
     Begintime:pchar; ʼʱ
     Endtime:pchar; ʱ
   Result:
       óɹ󷵻:
          SUCCEED(0)
       ʧʱ:
          ERR_WRITE_CARD_FAILED     = -2;
          ERR_DATABASE_NOT_OPENED   = -100;
}
function ReadCardData2(var GetCardType:integer;var GetCardNo:integer;var GuestBatchID:Integer;
   var RoomNo:integer;var Begintime:pchar;var Endtime:pchar):integer;stdcall;external 'es200601.dll';
