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

　　在具體實(shí)現上述思路時(shí)，要注意以下技術(shù)細節：

　　1） 根據RFID讀寫(xiě)器通訊協(xié)議的特點(diǎn)，讀寫(xiě)器每執行一個(gè)主機發(fā)來(lái)的指令，無(wú)論是讀標識還是寫(xiě)標識，都會(huì )返回一定字節的響應數據，用以確認命令已執行或返回標識中存儲的數據。因此，主機讀或寫(xiě)標識數據都需要先寫(xiě)（串口命令）后讀（返回的串口數據）。

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

　　3） 對主線(xiàn)程的說(shuō)明：在主線(xiàn)程中用CreateFile函數建立串口事件，設置緩沖區和通信參數，創(chuàng )建串口監聽(tīng)線(xiàn)程。用WriteFile寫(xiě)串口函數完成通過(guò)RFID讀寫(xiě)器寫(xiě)數據到標識中。部分程序如下：

　　……

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

　　0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0）; //產(chǎn)生串口事件

　　setupcomm（hcom,TOTALBYTES,TOTALBYTES）; //設置緩沖區

　　getcommstate（hcom,lpdcb）;

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

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

　　lpdcb.ByteSize := BYTESIZE; //每字節有幾位

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

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

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

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

　　……

　　4） 對串口監聽(tīng)線(xiàn)程的說(shuō)明：

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

　　……

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

　　Begin

　　dwEvtMask:=0;

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

　　if Wait Then

　　begin

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

　　end;

　　end;

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

　　procedure Tmainform.DataProcessing

　　begin

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

　　if Clear Then

　　Begin //處理接收數據

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

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

　　//讀串口緩沖區數據并寫(xiě)入數組

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

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

　　if gameover then terminate; //退出線(xiàn)程

　　……

　　End;

　　End;

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

　　程序應用舉例：

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

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

　　WriteBuffer[2] := Byte（$00）; WriteBuffer[3] := Byte（$00）; //從第一個(gè)字節開(kāi)始讀

　　WriteBuffer[4] := Byte（$00）; WriteBuffer[5] := Byte（$30）; //讀48個(gè)字節數據

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

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

　　執行持續讀標識命令后，程序以WriteBuffer數組寫(xiě)串口，RFID讀寫(xiě)器執行此命令，并返回響應數據（見(jiàn)圖5）。

圖5 持續讀標識命令執行結果

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

5 結束語(yǔ)

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

參考文獻

　　[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