  const
    gdi32='scRFwt7.dll';


  function OPEN_COM(port:INTEGER):integer;stdcall;external gdi32;
  
              // ܣ򿪴

             ʵ i:=OPEN_COM(1);  򿪴һ
      
                  //  ɹʱ i=0 

  function CLOSE_COM:integer;stdcall;external gdi32;

              // ܣرմ

              ʵCLOSE_COM  رյǰ򿪵Ĵ

                  //  ɹʱ i=0 

  function ReadSysPasCard(PoutXX:pchar):integer;stdcall;external gdi32;
            
              // ܣȨľƵ룬ݿУá

             // ɹʱؾƵ16λpoutXXֶϡ

             ʵ  i:=ReadSysPasCard ( char s )   

                   //  ɹʱ i=0 Ƶڱsϡ

             
  function myRFroomCard(Txx:pchar):Integer;stdcall;external gdi32;

             // ܣװͬʱ÷źʱ䣬ʱʹ
 
            // Txx----дϢ32λʽ
            //        Ƶ16λ+¥Ŷλ+¥Ŷλ+Ŷλ+ǰʱʮλλ¶λնλʱλֶλ

            ʵ i:=myRFRoomCard ( char txx )

                     //  ɹʱ i=0    txxϢдڿ
                        


  function myRFtimeCard(Tsyspas,Trq1:pchar):Integer;stdcall;external gdi32;
 
           //ܣУʱ

           // Tsyspas---Ƶʮλ
           // Trq1----ǰʱʮλλ¶λնλʱλֶλ

            ʵ i:=myRFtimeCard ( char Tsyspaschar txx )

                     //  ɹʱ i=0    TsyspastxxϢдڿ


  function myRFGuestCard(Txx:pchar):Integer;stdcall;external gdi32;

            {
            ܣ˿˿ɹٶÿID ű浽ݿУʹ
 
            Txx----дϢ50λʽ
                   Ƶ16λ+¥Ŷλ+¥Ŷλ+Ŷλ+
                   ǰʱʮλλ¶λնλʱλֶλ+
                   ʱʮλλ¶λնλʱλֶλ+
                   Ϣ6λDEDEDE棩+
                   2λ01ʾܿ10ʾܿʹDEʾʹã
                 }

            ʵ i:=myRFGuestCard (char txx )

                    //  ɹʱ i=0    txxϢдڿ


  function WriteCardXX(Tsyspas:pchar):Integer;stdcall;external gdi32;

            // ܣ Ϣ

            // Tsyspas---Ƶ16λ

            ʵ i:= WriteCardXX(char Tsyspas )
 
                  //  ɹʱ i=0   


  function ReadCardID(PoutXX:pchar):integer;stdcall;external gdi32;

            //ܣţڵݿеķϢ

            //  PoutXX---ؿ

            ʵ i:= ReadCardID ( char Txx )
 
                  //  ɹʱ i=0   Ŵtxx


    function CardID16(PoutXX:pchar):integer;stdcall;external gdi32;

              //ܣIDţԱֵ
                                
                                  ҲڵݿеķϢ

              //  PoutXX---ؿID


            ʵ i:= CardID16 ( char Txx )
 
                  //  ɹʱ i=0   IDŴtxx


{
//ֵ壺

        0 = ƿ!
        1 = У鿨!
        2 = ûп!
        3 = δϵ!
        4 = ڴ!
        5 = ˿!
        6 = !
        7 = ҳŴ!
        8 = ַ!
        9 = ݳȴ!
        10= ݴ!
        11= !
        12= !
        13= δ!
        14= 𻵴!
        15= ʽ!
        16= ʹ!
        17= ڴ治!

        18= !
        19= ģʽ
        20= Ӧ
        22= ˿Ȩ!
        23= ˿Ȩ,!
        24= ǱϵͳĿʹ!
        25= ʹѹ볧ϵ!
        261= 261 Ȩ벻ȷ!
        262= 262 Ȩ벻ȷ!
        263= 263 Ȩ벻ȷ!
        264= 264 Ȩ벻ȷ!
        265= 265 Ȩ벻ȷ!
        266= 266 Ȩ벻ȷ!
        27 = Եڲԣ˫½ǵʱ !


        else
            MsgStr:= 'δ!';

            }


