Delphi中Spcomm使用屬性及用法詳解

1、Delphi中Spcomm 使用屬性及用法詳解Delphi中Spcomn使用屬性及用法詳解Delphi是一種具有功能強大、簡便易用和代碼執(zhí)行速度快等優(yōu)點的可視化快速 應(yīng)用開發(fā)工具，它在構(gòu)架企業(yè)信息系統(tǒng)方面發(fā)揮著越來越重要的作用，許多程序 員愿意選擇Delphi作為開發(fā)工具編制各種應(yīng)用程序。但是，美中不足之處是 Delphi沒有自帶的串口通信控件，在它的幫助文檔里也沒有提及串口通信，這就給編制通信程序的開發(fā)人員帶來許多不便。目前，利用Delphi實現(xiàn)串口通信的常用的方法有 3種：一是利用控件，如 MSCOMM控件和SPCOMM控件；二是使用 API函數(shù)；三是調(diào)用其他串口通 信程序。其中利用API

2、編寫串口通信程序較為復(fù)雜，需要掌握大量的通信知識。 相比較而言，利用SPCOMM控件則相對較簡單，并且該控件具有豐富的與串口 通信密切相關(guān)的屬性及事件，提供了對串口的各種操作，而且還支持多線程。下 面本文結(jié)合實例詳細(xì)介紹SPCOMM控件的使用。SPCOMM的安裝1 .選擇下拉菜單 Compo nent中的In stall Compo ne nt選項，彈出如圖1所示的 窗口。圖1在Unit file name處填寫SPCOMM控件所在的路徑，其他各項可用默認(rèn)值，點 擊OK按鈕。2.安裝后，在System控件面板中將出現(xiàn)一個紅色控件 COM?，F(xiàn)在就可以像 Delphi自帶控件一樣使用 COM控件了

3、。SPCOMM的屬性、方法和事件1屬性 CommName：表示 COM1、 COM2等串口的名字； BaudRate根據(jù)實際需要設(shè)定的波特率，在串口打開后也可更改此值，實際波 特率隨之更改； ParityCheck：表示是否需要奇偶校驗； ByteSize：根據(jù)實際情況設(shè)定的字節(jié)長度； Parity:奇偶校驗位； StopBits：停止位； SendDataEmpty這是一個布爾型屬性，為true時表示發(fā)送緩存為空，或者發(fā) 送隊列里沒有信息；為false時表示發(fā)送緩存不為空，或者發(fā)送隊列里有信息。2方法 Startcomm方法用于打開串口，當(dāng)打開失敗時通常會報錯。錯誤主要有7種：串口已經(jīng)打開；

4、打開串口錯誤；文件句柄不是通信句柄；不能夠安裝通 信緩存；不能產(chǎn)生事件；不能產(chǎn)生讀進(jìn)程；不能產(chǎn)生寫進(jìn)程； StopComm方法用于關(guān)閉串口，沒有返回值； WriteCommData(pDataToWrite: PChar;dwSizeofDataToWrite:Word )方法是個帶有布爾型返回值的函數(shù)，用于將一個字符串發(fā)送到寫進(jìn)程，發(fā)送成功返回true，發(fā)送失敗返回falseo執(zhí)行此函數(shù)將立即得到返回值，發(fā)送操作隨后執(zhí)行。該函 數(shù)有兩個參數(shù)，其中 pDataToWrite是要發(fā)送的字符串，dwSizeofDataToWrite 是發(fā)送字符串的長度。3事件 On ReceiveData :pr

5、ocedure (Se nder: TObject;Buffer: Poi nter;BufferLe ngth: Word) of object當(dāng)有數(shù)據(jù)輸入緩存時將觸發(fā)該事件，在這里可以對從串口收到的數(shù)據(jù)進(jìn)行處理。Buffer中是收到的數(shù)據(jù)，BufferLength是收到的數(shù)據(jù)長度。 On ReceiveError : procedure(Se nder: TObject; Eve ntMask : DWORD)當(dāng)接收數(shù)據(jù)出現(xiàn)錯誤時將觸發(fā)該事件。SPCOMM的使用下面是一個利用 SPCOMM控件的串口通信的例子。以實現(xiàn)PC機與單片機8051之間的通信為例，首先要調(diào)通它們之間的握手信號。 假定

6、它們之間的通信協(xié)議是：PC到8051 一幀數(shù)據(jù)6個字節(jié)，8051到PC 一幀數(shù)據(jù)也為6個字節(jié)。當(dāng)PC發(fā)出(F0,01,FF,FF,01,F0后8051能收到一幀(F0,01,FF,FF,01,F0，表示數(shù)據(jù)通信握手成功，兩者之間就可以按照協(xié)議相互 傳輸數(shù)據(jù)。創(chuàng)建一個新的工程 COMM.DPR，把窗體的 NAME屬性定為FCOMM，把窗體 的標(biāo)題定義為測試通信，按照圖2添加控件(圖2中黑色矩形圍住的控件即為COMM1) o圖21. 設(shè)定COMM1屬性： 波特率：4800;奇偶校驗位：無；字節(jié)長度： 8；停止位： 1；串口： COM1。Memo1 中將顯示發(fā)送和接收的數(shù)據(jù)。將新的窗體存儲為Comm

7、.pas。2. 編寫源代碼/變量說明varfcomm: TFCOMM; viewstring:string; i:integer;rbuf,sbuf:array16 of byte; /打開串口 procedure TFCOMM.FormShow(Sender: TObject); begincomm1.StartComm;end;/關(guān)閉串口procedure TFCOMM.FormClose(Sender: TObject; var Action: TCloseAction); begincomm1.StopComm;end; /自定義發(fā)送數(shù)據(jù)過程 procedure senddata;va

8、ri:integer; commflg:boolean; begin丄c ,viewstring:= ' ; commflg:=true; for i:=1 to 6 do begin if not m1.writecommdata(sbufi,1) then begincommflg:=false;break;end; /發(fā)送時字節(jié)間的延時 sleep(2);viewstring:=viewstring inttohex(sbufi,2) ' ; end; viewstri ng:='發(fā)送+ viewstri ng; fcomm.memo1.lines.add(vie

9、wstring);fcomm.memo1.lines.add( ');if not commfig then messagedlg('發(fā)送失敗 !' ,mterror,mbyes,0); end;/發(fā)送按鈕的點擊事件procedure TFCOMM.Btn_sendClick(Sender: TObject); beginsbuf1:=byte( f0); /幀頭 sbuf2:=byte( 01); /命令號 sbuf3:=byte( ff);sbuf4:=byte( ff);sbuf5:=byte( 01); sbuf6:=byte( f0); /幀尾sen ddata;/調(diào)用發(fā)送函數(shù)end;/接收過程procedure TFCOMM.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;BufferLength: Word);vari:integer;begin丄C ,viewstring:= ' ;move(bufferA,pchar(rbufbufferle ngth);for i:=1 to bufferlength do viewstring:=viewstring inttohex(rbufi,2) ' ; viewstri ng:='接收