PLC及PC與RFID射頻識別讀寫器串行通訊的實現(xiàn)

　　在具體實現(xiàn)上述思路時，要注意以下技術細節(jié)：

　　1） 根據(jù)RFID讀寫器通訊協(xié)議的特點，讀寫器每執(zhí)行一個主機發(fā)來的指令，無論是讀標識還是寫標識，都會返回一定字節(jié)的響應數(shù)據(jù)，用以確認命令已執(zhí)行或返回標識中存儲的數(shù)據(jù)。因此，主機讀或寫標識數(shù)據(jù)都需要先寫（串口命令）后讀（返回的串口數(shù)據(jù)）。

　　2） 為了使程序體現(xiàn)模塊化的設計思想，易于調試和維護，可以把各種RFID命令預先存入命令數(shù)組中，而把主機對RFID串口的命令和捕捉RFID讀寫器命令響應編制成單獨的子程序，在調用它之前，先調用命令字賦值子程序。

　　3） 對主線程的說明：在主線程中用CreateFile函數(shù)建立串口事件，設置緩沖區(qū)和通信參數(shù)，創(chuàng)建串口監(jiān)聽線程。用WriteFile寫串口函數(shù)完成通過RFID讀寫器寫數(shù)據(jù)到標識中。部分程序如下：

　　……

　　hcom := CreateFile（pchar（Whichcom）, GENERIC_WRITE Or GENERIC_READ,

　　0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0）; //產生串口事件

　　setupcomm（hcom,TOTALBYTES,TOTALBYTES）; //設置緩沖區(qū)

　　getcommstate（hcom,lpdcb）;

　　lpdcb.BaudRate:=BAUDRATE; //波特率

　　lpdcb.StopBits := STOPBIT; //停止位

　　lpdcb.ByteSize := BYTESIZE; //每字節(jié)有幾位

　　lpdcb.Parity :=PARITY; //奇偶校驗

　　setcommstate（hcom,lpdcb）; //設置串口

　　Mycomm := Tcomm2.Create（False）; //創(chuàng)建串口監(jiān)聽線程

　　WriteFile（hcom, WriteBuffer,sizeof（WriteBuffer）,lpBytesSent, 0）;//寫標識命令

　　……

　　4） 對串口監(jiān)聽線程的說明：

　　程序中用到的方法主要有Synchronize和Terminate。Synchronize是Delphi提供的一種安全調用線程的方法，它把線程的調用權交給了主線程，從而避免了線程間的沖突，這是一種最簡單的線程間同步的方法，可以省去用其它語言編程時需要調用的多個Windows API 函數(shù)，例如createEvent（創(chuàng)建同步事件），Waitforsingleobject（等待同步事件置位），resetevent（同步事件復位），PostMessage（向主線程發(fā)送消息）等。用Delphi編寫多線程通訊程序的優(yōu)點是顯而易見的。例如以下語句即可實現(xiàn)串口監(jiān)聽線程：

　　……

　　While （not Terminated） do //如果終止屬性不為真

　　Begin

　　dwEvtMask:=0;

　　Wait := WaitCommEvent（hcom,dwevtmask,lpol）; //等待串口事件

　　if Wait Then

　　begin

　　Synchronize（DataProcessing）; //同步串口事件

　　end;

　　end;

　　上述程序一旦檢測到串口事件，就調用DataProcessing方法讀串口數(shù)據(jù)，并寫入數(shù)組，供程序其它部分調用，另外還要檢測何時退出線程，程序如下：

　　procedure Tmainform.DataProcessing

　　begin

　　clear := CLEARCOMMERROR（hcom,lperrors,@comms）; //清除串口錯誤

　　if Clear Then

　　Begin //處理接收數(shù)據(jù)

　　ReadFile（hcom,ReadBuffer,Comms.cbInQue,LPReadNumber,0）;

　　ReceBytes[I+ArrayOffset] := ReadBuffer[I];

　　//讀串口緩沖區(qū)數(shù)據(jù)并寫入數(shù)組

　　gameover := （ReceBytes[I+ArrayOffset-1]=Byte（$FF））

　　and （ReceBytes[I+ArrayOffset]=Byte（$FF））; //終止條件

　　if gameover then terminate; //退出線程

　　……

　　End;

　　End;

　　其中，Terminate將線程的Terminated屬性設置為True。線程一旦檢測到Terminated屬性為True，就會結束線程，去執(zhí)行Onterminate事件，在Onterminate事件中對采集到的RFID標識數(shù)據(jù)進行處理。由于RFID讀寫器的ABxS協(xié)議的命令響應的最后兩個字節(jié)都是FF，所以可以將收到連續(xù)的兩個FF作為終止線程的條件之一。

　　程序應用舉例：

　　以持續(xù)讀標識中所有48字節(jié)數(shù)據(jù)命令為例，在程序中用WriteBuffer數(shù)組保存該命令，對WriteBuffer數(shù)組的各個元素賦值如下：

　　WriteBuffer[0] := Byte（$AA）; WriteBuffer[1] := Byte（$0D）; //連續(xù)讀標識命令字頭

　　WriteBuffer[2] := Byte（$00）; WriteBuffer[3] := Byte（$00）; //從第一個字節(jié)開始讀

　　WriteBuffer[4] := Byte（$00）; WriteBuffer[5] := Byte（$30）; //讀48個字節(jié)數(shù)據(jù)

　　WriteBuffer[6] := Byte（$00）; WriteBuffer[7] := Byte（$02）; //延時2秒

　　WriteBuffer[8] := Byte（$ff）; WriteBuffer[9] := Byte（$ff）; //連續(xù)讀標識命令字

　　執(zhí)行持續(xù)讀標識命令后，程序以WriteBuffer數(shù)組寫串口，RFID讀寫器執(zhí)行此命令，并返回響應數(shù)據(jù)（見圖5）。

圖5 持續(xù)讀標識命令執(zhí)行結果

　　從圖5窗口中可以看到，前4個字節(jié)AA OD FF FF就是LRP830讀寫器對持續(xù)讀命令的確認信息，然后是數(shù)據(jù)報文頭AA OD和標識中48個字節(jié)的數(shù)據(jù)（每字節(jié)數(shù)據(jù)前加00），最后是數(shù)據(jù)報文尾FF FF。

5 結束語

　　本文介紹了可編程控制器及微機與RFID射頻識別讀寫器進行串行通訊，從而獲取標識中的數(shù)據(jù)的具體實現(xiàn)方法：PLC通過串行I/O通訊協(xié)議與RFID讀寫器實現(xiàn)串行通訊，PC通過Windows多線程技術與RFID讀寫器實現(xiàn)串行通訊。本文所述方法具有通用性，對于其它廠家的PLC和RFID系統(tǒng)也有一定的參考價值。RFID射頻識別技術在我國工業(yè)自動化等領域的應用才剛剛開始，前景非常廣闊。本文對于促進該技術的推廣應用具有一定的積極意義。

參考文獻

　　[1] ESCORT MEMORY SYSTEMS, LRP830-Series Long-Range Passive Reader/Writers Operator’s Manual, July,2000

　　[2] Marco Cantù, Mastering Delphi 6, SYBEX Inc.（USA）, 2001

　　[3] Steve Teixeira and Xavier Pacheco，Borland Delphi? 6 Developer’s Guide, Sams Publishing（USA）,2002