【正文】 var blockNo,sector。end。)。 (39。+intTohex(*4+2,2)+blockCont)。 (39。 end。39。 end。,MB_OK)。,39。 then begin if Length(blockCont)16 then begin MessageBox(Handle,39。 if blockCont39。 end。120939。 blockCont:= tempstr。 for i:=1 to 16 do begin tempstr :=tempstr + inttohex(integer(blockCont[i]),2)。 tempstr:=39。 exit。錯(cuò)誤39。塊1數(shù)據(jù)位數(shù)錯(cuò)誤!39。39。 blockCont:=。+intTohex(*4,2)+blockCont)。 (39。 end。39。 end。,MB_OK)。,39。)) then begin if length(blockCont)16 then begin MessageBox(Handle,39。 if ((0) and (blockCont39。+curSectorNO+intTohex(*4,2))。 (39。010439。)。 (39。02025239。)。 (intTostr()+39。 curOperNo:=7。 ()。) then else exit。) or (39。) or (39。begin if (39。 blockCont ,tempstr: string。{procedure (Sender: TObject)。 sendData()。020B0F39。 end。120939。 end。,MB_OK)。,39。]) then begin MessageBox(Handle,39。..39。,39。..39。,39。..39。 for i:=1 to 32 do if not (blockCont[i] in [39。 exit。錯(cuò)誤39。塊2數(shù)據(jù)位數(shù)錯(cuò)誤!39。39。 blockCont:=。+intTohex(*4+1,2)+blockCont)。 (39。 exit。錯(cuò)誤39。塊1數(shù)據(jù)含有非法內(nèi)容!39。f39。a39。F39。A39。939。039。 end。,MB_OK)。,39。 then begin if Length(blockCont)32 then begin MessageBox(Handle,39。 if blockCont39。 end。120939。 end。,MB_OK)。,39。]) then begin MessageBox(Handle,39。..39。,39。..39。,39。..39。 for i:=1 to 32 do if not (blockCont[i] in [39。 exit。錯(cuò)誤39。塊0數(shù)據(jù)位數(shù)錯(cuò)誤!39。39。 blockCont:=。04056039。)。 (39。010339。)。 (39。 curOperNo:=7。 ()。) then else exit。) or (39。) or (39。 if (39。 exit。錯(cuò)誤39。請(qǐng)先打開串口！39。打開串口39。 curSectorNo : string。var i : integer。end。)。 (39。020839。+curSectorNO+intTohex(*4,2))。 (39。010439。)。 (39。02025239。)。 (intTostr()+39。 curOperNo:=6。 ()。 end。,MB_ICONERROR+MB_OK)。,39。 then begin MessageBox(handle,39。begin if = 39。var i : integer。end。,MB_OK)。,39。 end else begin MessageBox(handle,39。)。 if (allpwdflag=1) then begin (39。 end。 end。090639。 end。,MB_OK)。),39。]) then begin MessageBox(handle,PChar(noStr+39。..39。,39。..39。,39。..39。 for j:=1 to length(pwdStr) do if not (pwdStr[j] in [39。 exit。錯(cuò)誤39。 扇區(qū)密碼位數(shù)據(jù)錯(cuò)誤39。 noStr:=intTohex(strToint(noStr),2)。39。 pwdStr:=(ponents[i] as TEdit).Text。edtSecPwd39。 for i:=0 to ComponentCount1 do begin if ponents[i] is TEdit then begin nameStr:=ponents[i].Name。 else pwdOrg:=39。 if =0 then pwdOrg:=39。密碼下載39。 allpwdflag:=0。 curOrderNo:=0。 ()。 exit。錯(cuò)誤39。請(qǐng)先打開串口！39。打開串口39。 nameStr,pwdStr,noStr,pwdOrg : string。//密碼下載procedure (Sender: TObject)。 sendData()。020B0F39。)。 (39。終止39。 curOperNo:=4。 ()。 end。,MB_ICONERROR+MB_OK)。,39。 then begin MessageBox(handle,39。begin if = 39。end。)。 (39。010439。)。 (39。 curOrderNo:=0。 ()。 exit。錯(cuò)誤39。請(qǐng)先打開串口！39。打開串口39。//選擇卡procedure (Sender: TObject)。 sendData()。020B0F39。)。 (39。防沖突39。 curOperNo:=2。 ()。 end。,MB_ICONERROR+MB_OK)。,39。 then begin MessageBox(handle,39。begin if = 39。end。)。 (39。02022639。)。 (39。 curOrderNo:=0。 ()。 exit。錯(cuò)誤39。請(qǐng)先打開串口！39。打開串口39。 } } } }}附錄C 上位機(jī)程序//尋卡procedure (Sender: TObject)。 CALL_isr_UART()。 break。 break。 RevBuffer[1]=0。RevBuffer[1])。 break。 RevBuffer[1]=0。 } case 16: { Beep(BeepTime)。 CALL_isr_UART()。 RevBuffer[0]=1。 delay_10ms(0x2F)。 } case 15: { SectrNO=RevBuffer[1]。 SPEAKER=0。 SPEAKER=1。 Byte_Program(0x00,BRT)。 AUXR |= 0x10。 BRT = baud。 AUXR amp。 delay_10ms(5)。 RevBuffer[1]=0。 break。break。 break。 break。 break。 break。 break。break。 break。 delay_10ms(RevBuffer[2])。 CALL_isr_UART()。 RevBuffer[0]=1。 switch(RevBuffer[0]) { case 11: { LCD_Clr()。 M500PiccHalt()。RevBuffer[2]))) { ReadCard(rev)。amp。 } if(keyFlag) { Print(0,0,songti,info)。 ShowTime()。 default:break。)。 PrintSingleASCII(0,0,39。039。break。A39。+10:Beep(BeepTime)。 case 39。)。 PrintSingleASCII(0,0,39。939。break。839。:Beep(BeepTime)。 case 39。)。 PrintSingleASCII(0,0,39。739。break。639。:Beep(BeepTime)。 case 39。)。 PrintSingleASCII(0,0,39。539。break。439。:Beep(BeepTime)。 case 39。)。 PrintSingleASCII(0,0,39。339。break。239。:Beep(BeepTime)。 case 39。)。 PrintSingleASCII(0,0,39。139。 break。 keyFlag=~keyFlag。039。 KeyValue=GetKey()。while (1){ LED2=0。 Print(4,0,songti,wz)。 LCD_Clr()。 LCDLight=1。 Delaylong(65530)。 Disp_picture(logo)。 Delaylong(65530)。 Delay(200)。 COG_Initialize()。 serial_port_initial()。 PortInit()。 Delaylong(1000)。\039。, sizeof ())。 memset (, 39。\039。, sizeof ())。 memset (, 39。 unsigned char code info[]=自動(dòng)尋卡模式：再次按下S1鍵切換到正常模式，請(qǐng)把RFID卡放到天線區(qū)域。Logical munication Interface Specification Proposed . Technical Report ,2002(11)：102105.附錄A 原理圖附錄B 下位機(jī)程序void main(void){ unsigned char xdata baud,i=0。期望未來的門禁一卡通系統(tǒng)可以做得完美無缺，為安防增添薄力，使中國的智能化事業(yè)更上一層樓。這些局限于現(xiàn)有的技術(shù)和設(shè)備的缺乏，目有尚有待以后的研究和攻克。經(jīng)過長期的努力，雖然項(xiàng)目實(shí)現(xiàn)了基本的功能，但仍還有許多不足之處。系統(tǒng)采用非接觸式Mifare1卡，用戶進(jìn)入門禁管制區(qū)域時(shí)需刷卡，讀卡器讀取信息后，將信息傳輸?shù)缴衔粰C(jī)，上位機(jī)首先判斷該信息是否合法，如合法則發(fā)出開門指令，不合法則發(fā)出報(bào)警，同時(shí)記錄用戶刷卡事件。在控制位后面填上相應(yīng)的扇區(qū)，并且Mifare 1卡的16個(gè)扇區(qū)各自獨(dú)