             *******************************************************************************
             *
             *
             *            : 
             *     Email(MSN) : Liuh_163@163.com
             *     QQ         : 86808600
             *
             *     ժ   Ҫ: ҪͨMF1_Key2007.dll̬ӿ⺯,жд
             *
             *
             *
             *     :  20060719
             *     ޸:  20090217գϺĿдͿʼʱ䣩
             *
             ********************************************************************************


//**********************************************************
//*************************************
//*******************
//MF1ͨýӿ
//*******************
//*************************************
//**********************************************************


//******************************
    * ֵ˵ : (Integer)
    *   -1 ---- ڴʧ
    *   -2 ---- ЧƬ
    *   -3 ---- δע
    *    0 ---- дʧ
    *    1 ---- ɹ
//******************************

function UGA_ModiPSW ( CommID :Integer; MF_Area :Byte; OldPSW, NewPSW :PChar ) : Integer;
  ܣ
    ޸ķ

  
    CommID	˿ںţ14
    MF_Area 	MF1ţ015
    OldPSW	루󳤶6ֽڣ
    NewPSW 	루󳤶6ֽڣ

function UGA_ReadCard( CommID :Integer; MF_Area :Byte; CurrPSW, CardCode, CardInfo :PChar ) : Integer;
  ܣ
    ƬϢ

  
    CommID	˿ںţ14
    MF_Area 	MF1ţ015
    CurrPSW	ǰ루󳤶6ֽڣ
    CardCode	Ŀţ̶8ֽڣ
    CardInfo 	ĿƬϢ16ֽ * 3  48ֽڣ


function UGA_WriteCard( CommID :Integer; MF_Area :Byte; CurrPSW, CardInfo :PChar ) :Integer;
  ܣ
    ƬϢ

  
    CommID	˿ںţ14
    MF_Area 	MF1ţ015
    CurrPSW	ǰ루󳤶6ֽڣ
    CardInfo 	дĿƬϢ16ֽ * 3  48ֽڣ




//**********************************************************
//*************************************
//*******************
//MF1רýӿ
//*******************
//*************************************
//**********************************************************

    **************************************************************
    *  : ȡƬϢ
    * ˵ : CommID()   ---- ˿ڱ
    *            CardType() ---- Ƭ(0T5557,1MF1)
    *		 MF1_Area() ---- MF1Ƭ(ȡֵΧ2-15)
    * ֵ˵ : ַͨ(PChar)
    * 	(1)δɹȡʱ
    *      -1  ----  ڴʧ
    *      -2  ----  ƬЧ
    *      0   ----  ʧ
    *      1   ----  óɹȡ(ֻMF1ʱ,ڸ÷δʼ)
    *   (2)ɹȡʱ
    *   , ---- ȡǱͿʱķֵӢĶŷָ
    *   ,,¥,¥,,׼,ʼʱ,ʱ,Ȩű ---- ȡͿʱķֵӢĶŷָ
    *     ˵
    *        0 ---- տ       ,  1 ---- ±Ϳ     ,  2 ---- ƱͿ ,  3 ---- 󱸱Ϳ   ,
    *        4 ---- ֹ ,  5 ---- ֹ ,  6 ---- ʧ     ,  7 ---- ȡʧ   ,
    *        8 ---- ¥     ,  9 ---- ¥㿨       , 10 ---- Ȩ     , 11 ---- ÿ   ,
    *       12 ---- Ȩÿ , 13 ---- ÿ   , 14 ---- ܿ       , 15 ---- Ӧ       ,
    *       16 ---- ʱӿ     , 17 ---- Ϣ   , 18 ----  , 19 ---- ʼ ,
    *       20 ---- ݿ                                 
    *     Ȩű˵:
    *        1 ---- Ȩ     ,  0 ---- Ȩ
    ************************ Delphi  *************************
    * function ReadCardInfo(CommID : Integer; CardType : Integer; MF1_Area : Byte ) : PChar; 
               external 'MF1_Key2007.dll'; stdcall;
    **************************************************************
    *
    ************************* VB  ****************************
    * Private Declare Function ReadCardInfo Lib "MF1_Key2007.dll" _
    *        (ByVal CommID As Long, ByVal CardType As Long, Optional ByVal MF1_Area As Long ) As String
    *
    **************************************************************
    *
    ************************* PB  ****************************
    * Function String ReadCardInfo( long CommID , long CardType , long MF1_Area ) Library "MF1_Key2007.dll";
    **************************************************************
    1: ˿ںΪ3,ƬΪT5557ʱReadCardInfo(3,0,15)
         ƬΪMF1,Ϊ2ʱReadCardInfo(3,1,2)
    2: ڴʧʱֵ: -1
    3: ȡΪ234D833A78ܿʱ,ֵ: 234D833A78,14
    4: ȡΪ234D833A78¥Ϊ2¥Ϊ10Ϊ10101׼Ϊ3ʼʱΪ2007-10-10 12:20:23
	 ʱΪ2007-10-11 12:00:08ĿɿȨŵ±Ϳʱ,
         ֵ:234D833A78,1,2,10,10101,3,2007-10-10 12:20:00,2007-10-11 12:00:00,1	
    **************************************************************   




    **************************************************************
    *  : дͿϢ
    * ˵ : 
    *   CommID()              ---- ˿ڱ
    *   CardType()            ---- Ƭ(0T5557,1MF1)
    *   OldKeyEnd()           ---- ±Ϳ1,BAKKey0;ƸƱͿ0,BAKKey0;
    *   BAKKey()              ---- ƺ󱸱Ϳ1,OldKeyEndΪ0
    *   TSRight()             ---- ɿȨ1Ȩ0
    *   FloorCode()         ---- ¥(1-255)
    *   FloorLayCode()      ---- ¥(1-255)
    *   RoomCode()          ---- (1-65535)
    *   iSubRoomCode()      ---- ׼(1-255),û׼䷿ʱΪ255
    *   StartDateTime(ַͨ) ---- Ϳʼʱ(ʼʱ),20ַ,ʽ'yyyy-mm-dd hh:nn:ss'
    *   EndDateTime(ַͨ) ---- ͿЧʱ(ֹʱ),20ַ,ʽ'yyyy-mm-dd hh:nn:ss'
    *   MF1_Area()            ---- MF1Ƭ(ȡֵΧ2-15)
    * ֵ˵ : (Integer)
    *   -1 ---- ڴʧ
    *   -2 ---- ЧƬ
    *   -3 ---- δע
    *    0 ---- дʧ
    *    1 ---- ɹ
    ********************** Delphi  ***************************
    * function WriteGuestCard( CommID : Integer; CardType : Integer;
    *                          OldKeyEnd, BAKKey, TSRight :Integer;
    *                          FloorCode, FloorLayCode, RoomCode, iSubRoomCode :Cardinal;
    *                          StartDateTime :PChar; EndDateTime :PChar; MF1_Area :Byte ) :Integer;
    *          external 'MF1_Key2007.dll'; stdcall;	
    **************************************************************
    *
    ************************* VB  ****************************
    * Private Declare Function WriteGuestCard Lib "MF1_Key2007.dll" _
    *        (ByVal CommID As Long, ByVal CardType As Long, _
    *         ByVal OldKeyEnd As Long, ByVal BAKKey As Long, ByVal TSRight As Long, _
    *         ByVal FloorCode As Long, ByVal FloorLayCode As Long, ByVal RoomCode As Long, ByVal iSubRoomCode As Long, _
    *         ByVal StartDateTime As String, ByVal EndDateTime As String, Optional ByVal MF1_Area As Long ) As Long
    **************************************************************
    *
    ************************* PB  ****************************
    * Function long WriteGuestCard( long CommID, long CardType, 
    *                               long OldKeyEnd, long BAKKey, long TSRight, 
    *                               ulong FloorCode, ulong FloorLayCode, ulong RoomCode, ulong iSubRoomCode, 
    *                               REF string StartDateTime, REF string EndDateTime, long MF1_Area) Library "MF1_Key2007.dll";
    **************************************************************
    жԶ˿ڱ3¥2¥1010101׼3ʼʱ2007-10-10 12:00:00Чʱ2007-10-11 12:00:00Ϊ
    MF1ĵмΪ2
    1: дɿȨŵ±Ϳ     
	 T5557÷ʽ:    WriteGuestCard(3,0,1,0,1,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,15)
         MF1÷ʽ  :    WriteGuestCard(3,1,1,0,1,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,2)
    2: дɿȨŵĸƱͿ
	 T5557÷ʽ:    WriteGuestCard(3,0,0,0,0,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,15)
         MF1÷ʽ  :    WriteGuestCard(3,1,0,0,0,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,2)
    3: дɿȨŵĺ󱸱Ϳ
         T5557÷ʽ:    WriteGuestCard(3,0,0,1,1,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,15)
         MF1÷ʽ  :    WriteGuestCard(3,1,0,1,1,2,10,10101,3,2007-10-10 12:00:00,2007-10-11 12:00:00,2)

    
    **************************************************************
    *  : տƬ
    * ˵ : CommID()   ---- ˿ڱ
    *            CardType() ---- Ƭ(0T5557,1MF1)
    *		 MF1_Area() ---- MF1Ƭ(ȡֵΧ2-15)
    * ֵ˵ : (Integer)
    *   -1 ---- ڴʧ
    *    0 ---- дʧ
    *    1 ---- ɹ
    ********************** Delphi  ***************************
    * function ClearCardInfo ( CommID : Integer; CardType : Integer; MF1_Area :Byte ) : Integer;
    *          external 'MF1_Key2007.dll'; stdcall;
    **************************************************************
    *
    ************************* VB  ****************************
    * Private Declare Function ClearCardInfo Lib "MF1_Key2007.dll" _
    *        (ByVal CommID As Long, ByVal CardType As Long, Optional ByVal MF1_Area As Long ) As Long
    **************************************************************
    *
    ************************* PB  ****************************
    * Function long ClearCardInfo ( long CommID, long CardType, long MF1_Area) Library "MF1_Key2007.dll";
    **************************************************************
    1: ˿ںΪ3,ƬΪT5557ʱClearCardInfo(3,0,15)
         ƬΪMF1,Ϊ2ʱClearCardInfo(3,1,2)




    