DELPHI串口通讯编程
生活随笔
收集整理的這篇文章主要介紹了
DELPHI串口通讯编程
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
spcomm更加簡(jiǎn)單 ?
? 轉(zhuǎn)貼 ?
? Delphi中串口通信的實(shí)現(xiàn) ?
? ?
? 河南省計(jì)算中心 ? 張海航 ? ?
? ?
? -------------------------------------------------------------------------------- ?
? ? ?
? ?
? Delphi是一種具有功能強(qiáng)大、簡(jiǎn)便易用和代碼執(zhí)行速度快等優(yōu)點(diǎn)的可視化快速應(yīng)用開(kāi)發(fā)工具，它在構(gòu)架企業(yè)信息系統(tǒng)方面發(fā)揮著越來(lái)越重要的作用，許多程序員愿意選擇 ? Delphi作為開(kāi)發(fā)工具編制各種應(yīng)用程序。但是，美中不足之處是 ? Delphi沒(méi)有自帶的串口通信控件，在它的幫助文檔里也沒(méi)有提及串口通信，這就給編制通信程序的開(kāi)發(fā)人員帶來(lái)許多不便。 ? ? ?
? ? ?
? 目前，利用 ? Delphi實(shí)現(xiàn)串口通信的常用的方法有 ? 3種：一是利用控件，如 ? MSCOMM控件和 ? SPCOMM控件；二是使用 ? API函數(shù)；三是調(diào)用其他串口通信程序。其中利用 ? API編寫串口通信程序較為復(fù)雜，需要掌握大量的通信知識(shí)。相比較而言，利用 ? SPCOMM控件則相對(duì)較簡(jiǎn)單，并且該控件具有豐富的與串口通信密切相關(guān)的屬性及事件，提供了對(duì)串口的各種操作，而且還支持多線程。下面本文結(jié)合實(shí)例詳細(xì)介紹 ? SPCOMM控件的使用。 ? ? ?
? ? ?
? SPCOMM的安裝 ? ? ?
? ? ?
? 1．選擇下拉菜單 ? Component中的 ? Install ? Component選項(xiàng)，彈出如圖 ? 1所示的窗口。 ? ? ?
? ? ?
? ? ?
? 圖 ? 1 ? ?
? ? ?
? 在 ? Unit ? file ? name處填寫 ? SPCOMM控件所在的路徑，其他各項(xiàng)可用默認(rèn)值，點(diǎn)擊 ? OK按鈕。 ? ? ?
? ? ?
? 2．安裝后，在 ? System控件面板中將出現(xiàn)一個(gè)紅色控件 ? COM。現(xiàn)在就可以像 ? Delphi自帶控件一樣使用 ? COM控件了。 ? ? ?
? ? ?
? SPCOMM的屬性、方法和事件 ? ? ?
? ? ?
? 1.屬性 ? ? ?
? ? ?
? ●CommName：表示 ? COM1、 ? COM2等串口的名字； ? ? ?
? ? ?
? ●BaudRate:根據(jù)實(shí)際需要設(shè)定的波特率，在串口打開(kāi)后也可更改此值，實(shí)際波特率隨之更改； ? ? ?
? ? ?
? ●ParityCheck：表示是否需要奇偶校驗(yàn)； ? ? ?
? ? ?
? ●ByteSize：根據(jù)實(shí)際情況設(shè)定的字節(jié)長(zhǎng)度； ? ? ?
? ? ?
? ●Parity：奇偶校驗(yàn)位； ? ? ?
? ? ?
? ●StopBits：停止位； ? ? ?
? ? ?
? ●SendDataEmpty：這是一個(gè)布爾型屬性，為 ? true時(shí)表示發(fā)送緩存為空，或者發(fā)送隊(duì)列里沒(méi)有信息；為 ? false時(shí)表示發(fā)送緩存不為空，或者發(fā)送隊(duì)列里有信息。 ? ? ?
? ? ?
? 2．方法 ? ? ?
? ? ?
? ●Startcomm方法用于打開(kāi)串口，當(dāng)打開(kāi)失敗時(shí)通常會(huì)報(bào)錯(cuò)。錯(cuò)誤主要有 ? 7種：⑴串口已經(jīng)打開(kāi)；⑵打開(kāi)串口錯(cuò)誤；⑶文件句柄不是通信句柄；⑷不能夠安裝通信緩存；⑸不能產(chǎn)生事件；⑹不能產(chǎn)生讀進(jìn)程；⑺不能產(chǎn)生寫進(jìn)程； ? ? ?
? ? ?
? ●StopComm方法用于關(guān)閉串口，沒(méi)有返回值； ? ? ?
? ? ?
? ●WriteCommData(pDataToWrite: ? PChar;dwSizeofDataToWrite:Word ? )方法是個(gè)帶有布爾型返回值的函數(shù)，用于將一個(gè)字符串發(fā)送到寫進(jìn)程，發(fā)送成功返回 ? true，發(fā)送失敗返回 ? false。執(zhí)行此函數(shù)將立即得到返回值，發(fā)送操作隨后執(zhí)行。該函數(shù)有兩個(gè)參數(shù)，其中 ? pDataToWrite是要發(fā)送的字符串， ? dwSizeofDataToWrite是發(fā)送字符串的長(zhǎng)度。 ? ? ?
? ? ?
? 3．事件 ? ? ?
? ? ?
? ●OnReceiveData ? :procedure ? (Sender: ? TObject;Buffer: ? Pointer;BufferLength: ? Word) ? of ? object ? ? ?
? ? ?
? 當(dāng)有數(shù)據(jù)輸入緩存時(shí)將觸發(fā)該事件，在這里可以對(duì)從串口收到的數(shù)據(jù)進(jìn)行處理。 ? Buffer中是收到的數(shù)據(jù)， ? BufferLength是收到的數(shù)據(jù)長(zhǎng)度。 ? ? ?
? ? ?
? ●OnReceiveError ? : ? procedure(Sender: ? TObject; ? EventMask ? : ? DWORD) ? ? ?
? ? ?
? 當(dāng)接收數(shù)據(jù)出現(xiàn)錯(cuò)誤時(shí)將觸發(fā)該事件。 ? ? ?
? ? ?
? SPCOMM的使用 ? ? ?
? ? ?
? 下面是一個(gè)利用 ? SPCOMM控件的串口通信的例子。 ? ? ?
? ? ?
? 以實(shí)現(xiàn) ? PC機(jī)與單片機(jī) ? 8051之間的通信為例，首先要調(diào)通它們之間的握手信號(hào)。假定它們之間的通信協(xié)議是： ? PC到 ? 8051一幀數(shù)據(jù) ? 6個(gè)字節(jié)， ? 8051到 ? PC一幀數(shù)據(jù)也為 ? 6個(gè)字節(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)建一個(gè)新的工程 ? COMM.DPR，把窗體的 ? NAME屬性定為 ? FCOMM，把窗體的標(biāo)題定義為測(cè)試通信，按照?qǐng)D ? 2添加控件 ? (圖 ? 2中黑色矩形圍住的控件即為 ? COMM1)。 ? ? ?
? ? ?
? ? ?
? ? ?
? 圖 ? 2 ? ?
? ? ?
? 1.設(shè)定 ? COMM1屬性： ? ? ?
? ? ?
? ●波特率： ? 4800； ? ? ?
? ? ?
? ●奇偶校驗(yàn)位：無(wú)； ? ? ?
? ? ?
? ●字節(jié)長(zhǎng)度： ? 8； ? ? ?
? ? ?
? ●停止位： ? 1； ? ? ?
? ? ?
? ●串口： ? COM1。 ? ? ?
? ? ?
? Memo1中將顯示發(fā)送和接收的數(shù)據(jù)。將新的窗體存儲(chǔ)為 ? Comm.pas。 ? ? ?
? ? ?
? 2.編寫源代碼 ? ? ?
? ? ?
? //變量說(shuō)明 ? ? ?
? ? ?
? var ? ? ?
? ? ?
? fcomm: ? TFCOMM; ? ? ?
? ? ?
? viewstring:string; ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? rbuf,sbuf:array[16] ? of ? byte; ? ? ?
? ? ?
? //打開(kāi)串口 ? ? ?
? ? ?
? procedure ? TFCOMM.FormShow(Sender: ? TObject); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? comm1.StartComm; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //關(guān)閉串口 ? ? ?
? ? ?
? procedure ? TFCOMM.FormClose(Sender: ? TObject; ? var ? Action: ? TCloseAction); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? comm1.StopComm; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //自定義發(fā)送數(shù)據(jù)過(guò)程 ? ? ?
? ? ?
? procedure ? senddata; ? ? ?
? ? ?
? var ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? commflg:boolean; ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? viewstring:=‘’ ? ; ? ? ?
? ? ?
? commflg:=true; ? ? ?
? ? ?
? for ? i:=1 ? to ? 6 ? do ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? if ? not ? fcomm.comm1.writecommdata(@sbuf[i],1) ? then ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? commflg:=false; ? ? ?
? ? ?
? break; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //發(fā)送時(shí)字節(jié)間的延時(shí) ? ? ?
? ? ?
? sleep(2); ? ? ?
? ? ?
? viewstring:=viewstring＋ ? inttohex(sbuf[i],2)＋‘’ ? ; ? end; ? ? ?
? ? ?
? viewstring:=‘發(fā)送’＋ ? viewstring; ? ? ?
? ? ?
? fcomm.memo1.lines.add(viewstring); ? ? ?
? ? ?
? fcomm.memo1.lines.add(‘’ ? ); ? ? ?
? ? ?
? if ? not ? commflg ? then ? messagedlg(‘發(fā)送失敗 ? !’ ? ,mterror,[mbyes],0); ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //發(fā)送按鈕的點(diǎn)擊事件 ? ? ?
? ? ?
? procedure ? TFCOMM.Btn_sendClick(Sender: ? TObject); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? sbuf[1]:=byte(＄ ? f0); ? //幀頭 ? ? ?
? ? ?
? sbuf[2]:=byte(＄ ? 01); ? //命令號(hào) ? ? ?
? ? ?
? sbuf[3]:=byte(＄ ? ff); ? ? ?
? ? ?
? sbuf[4]:=byte(＄ ? ff); ? ? ?
? ? ?
? sbuf[5]:=byte(＄ ? 01); ? ? ?
? ? ?
? sbuf[6]:=byte(＄ ? f0); ? //幀尾 ? ? ?
? ? ?
? senddata;//調(diào)用發(fā)送函數(shù) ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //接收過(guò)程 ? ? ?
? ? ?
? procedure ? TFCOMM.Comm1ReceiveData(Sender: ? TObject; ? Buffer: ? Pointer;BufferLength: ? Word); ? ? ?
? ? ?
? var ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? viewstring:=‘’ ? ; ? ? ?
? ? ?
? move(buffer^,pchar(@rbuf)^,bufferlength); ? ? ?
? ? ?
? for ? i:=1 ? to ? bufferlength ? do ? ? ?
? ? ?
? viewstring:=viewstring＋ ? inttohex(rbuf[i],2)＋‘’ ? ; ? ? ?
? ? ?
? viewstring:=‘接收’＋ ? viewstring; ? ? ?
? ? ?
? memo1.lines.add(viewstring); ? ? ?
? ? ?
? memo1.lines.add(‘’ ? ); ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? 如果 ? memo1上顯示發(fā)送 ? F0 ? 01 ? FF ? FF ? 01 ? F0和接收到 ? F0 ? 01 ? FF ? FF ? 01 ? F0，這表示串口已正確地發(fā)送出數(shù)據(jù)并正確地接收到數(shù)據(jù)，則串口通信成功。
? 轉(zhuǎn)貼 ?
? Delphi中串口通信的實(shí)現(xiàn) ?
? ?
? 河南省計(jì)算中心 ? 張海航 ? ?
? ?
? -------------------------------------------------------------------------------- ?
? ? ?
? ?
? Delphi是一種具有功能強(qiáng)大、簡(jiǎn)便易用和代碼執(zhí)行速度快等優(yōu)點(diǎn)的可視化快速應(yīng)用開(kāi)發(fā)工具，它在構(gòu)架企業(yè)信息系統(tǒng)方面發(fā)揮著越來(lái)越重要的作用，許多程序員愿意選擇 ? Delphi作為開(kāi)發(fā)工具編制各種應(yīng)用程序。但是，美中不足之處是 ? Delphi沒(méi)有自帶的串口通信控件，在它的幫助文檔里也沒(méi)有提及串口通信，這就給編制通信程序的開(kāi)發(fā)人員帶來(lái)許多不便。 ? ? ?
? ? ?
? 目前，利用 ? Delphi實(shí)現(xiàn)串口通信的常用的方法有 ? 3種：一是利用控件，如 ? MSCOMM控件和 ? SPCOMM控件；二是使用 ? API函數(shù)；三是調(diào)用其他串口通信程序。其中利用 ? API編寫串口通信程序較為復(fù)雜，需要掌握大量的通信知識(shí)。相比較而言，利用 ? SPCOMM控件則相對(duì)較簡(jiǎn)單，并且該控件具有豐富的與串口通信密切相關(guān)的屬性及事件，提供了對(duì)串口的各種操作，而且還支持多線程。下面本文結(jié)合實(shí)例詳細(xì)介紹 ? SPCOMM控件的使用。 ? ? ?
? ? ?
? SPCOMM的安裝 ? ? ?
? ? ?
? 1．選擇下拉菜單 ? Component中的 ? Install ? Component選項(xiàng)，彈出如圖 ? 1所示的窗口。 ? ? ?
? ? ?
? ? ?
? 圖 ? 1 ? ?
? ? ?
? 在 ? Unit ? file ? name處填寫 ? SPCOMM控件所在的路徑，其他各項(xiàng)可用默認(rèn)值，點(diǎn)擊 ? OK按鈕。 ? ? ?
? ? ?
? 2．安裝后，在 ? System控件面板中將出現(xiàn)一個(gè)紅色控件 ? COM。現(xiàn)在就可以像 ? Delphi自帶控件一樣使用 ? COM控件了。 ? ? ?
? ? ?
? SPCOMM的屬性、方法和事件 ? ? ?
? ? ?
? 1.屬性 ? ? ?
? ? ?
? ●CommName：表示 ? COM1、 ? COM2等串口的名字； ? ? ?
? ? ?
? ●BaudRate:根據(jù)實(shí)際需要設(shè)定的波特率，在串口打開(kāi)后也可更改此值，實(shí)際波特率隨之更改； ? ? ?
? ? ?
? ●ParityCheck：表示是否需要奇偶校驗(yàn)； ? ? ?
? ? ?
? ●ByteSize：根據(jù)實(shí)際情況設(shè)定的字節(jié)長(zhǎng)度； ? ? ?
? ? ?
? ●Parity：奇偶校驗(yàn)位； ? ? ?
? ? ?
? ●StopBits：停止位； ? ? ?
? ? ?
? ●SendDataEmpty：這是一個(gè)布爾型屬性，為 ? true時(shí)表示發(fā)送緩存為空，或者發(fā)送隊(duì)列里沒(méi)有信息；為 ? false時(shí)表示發(fā)送緩存不為空，或者發(fā)送隊(duì)列里有信息。 ? ? ?
? ? ?
? 2．方法 ? ? ?
? ? ?
? ●Startcomm方法用于打開(kāi)串口，當(dāng)打開(kāi)失敗時(shí)通常會(huì)報(bào)錯(cuò)。錯(cuò)誤主要有 ? 7種：⑴串口已經(jīng)打開(kāi)；⑵打開(kāi)串口錯(cuò)誤；⑶文件句柄不是通信句柄；⑷不能夠安裝通信緩存；⑸不能產(chǎn)生事件；⑹不能產(chǎn)生讀進(jìn)程；⑺不能產(chǎn)生寫進(jìn)程； ? ? ?
? ? ?
? ●StopComm方法用于關(guān)閉串口，沒(méi)有返回值； ? ? ?
? ? ?
? ●WriteCommData(pDataToWrite: ? PChar;dwSizeofDataToWrite:Word ? )方法是個(gè)帶有布爾型返回值的函數(shù)，用于將一個(gè)字符串發(fā)送到寫進(jìn)程，發(fā)送成功返回 ? true，發(fā)送失敗返回 ? false。執(zhí)行此函數(shù)將立即得到返回值，發(fā)送操作隨后執(zhí)行。該函數(shù)有兩個(gè)參數(shù)，其中 ? pDataToWrite是要發(fā)送的字符串， ? dwSizeofDataToWrite是發(fā)送字符串的長(zhǎng)度。 ? ? ?
? ? ?
? 3．事件 ? ? ?
? ? ?
? ●OnReceiveData ? :procedure ? (Sender: ? TObject;Buffer: ? Pointer;BufferLength: ? Word) ? of ? object ? ? ?
? ? ?
? 當(dāng)有數(shù)據(jù)輸入緩存時(shí)將觸發(fā)該事件，在這里可以對(duì)從串口收到的數(shù)據(jù)進(jìn)行處理。 ? Buffer中是收到的數(shù)據(jù)， ? BufferLength是收到的數(shù)據(jù)長(zhǎng)度。 ? ? ?
? ? ?
? ●OnReceiveError ? : ? procedure(Sender: ? TObject; ? EventMask ? : ? DWORD) ? ? ?
? ? ?
? 當(dāng)接收數(shù)據(jù)出現(xiàn)錯(cuò)誤時(shí)將觸發(fā)該事件。 ? ? ?
? ? ?
? SPCOMM的使用 ? ? ?
? ? ?
? 下面是一個(gè)利用 ? SPCOMM控件的串口通信的例子。 ? ? ?
? ? ?
? 以實(shí)現(xiàn) ? PC機(jī)與單片機(jī) ? 8051之間的通信為例，首先要調(diào)通它們之間的握手信號(hào)。假定它們之間的通信協(xié)議是： ? PC到 ? 8051一幀數(shù)據(jù) ? 6個(gè)字節(jié)， ? 8051到 ? PC一幀數(shù)據(jù)也為 ? 6個(gè)字節(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)建一個(gè)新的工程 ? COMM.DPR，把窗體的 ? NAME屬性定為 ? FCOMM，把窗體的標(biāo)題定義為測(cè)試通信，按照?qǐng)D ? 2添加控件 ? (圖 ? 2中黑色矩形圍住的控件即為 ? COMM1)。 ? ? ?
? ? ?
? ? ?
? ? ?
? 圖 ? 2 ? ?
? ? ?
? 1.設(shè)定 ? COMM1屬性： ? ? ?
? ? ?
? ●波特率： ? 4800； ? ? ?
? ? ?
? ●奇偶校驗(yàn)位：無(wú)； ? ? ?
? ? ?
? ●字節(jié)長(zhǎng)度： ? 8； ? ? ?
? ? ?
? ●停止位： ? 1； ? ? ?
? ? ?
? ●串口： ? COM1。 ? ? ?
? ? ?
? Memo1中將顯示發(fā)送和接收的數(shù)據(jù)。將新的窗體存儲(chǔ)為 ? Comm.pas。 ? ? ?
? ? ?
? 2.編寫源代碼 ? ? ?
? ? ?
? //變量說(shuō)明 ? ? ?
? ? ?
? var ? ? ?
? ? ?
? fcomm: ? TFCOMM; ? ? ?
? ? ?
? viewstring:string; ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? rbuf,sbuf:array[16] ? of ? byte; ? ? ?
? ? ?
? //打開(kāi)串口 ? ? ?
? ? ?
? procedure ? TFCOMM.FormShow(Sender: ? TObject); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? comm1.StartComm; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //關(guān)閉串口 ? ? ?
? ? ?
? procedure ? TFCOMM.FormClose(Sender: ? TObject; ? var ? Action: ? TCloseAction); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? comm1.StopComm; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //自定義發(fā)送數(shù)據(jù)過(guò)程 ? ? ?
? ? ?
? procedure ? senddata; ? ? ?
? ? ?
? var ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? commflg:boolean; ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? viewstring:=‘’ ? ; ? ? ?
? ? ?
? commflg:=true; ? ? ?
? ? ?
? for ? i:=1 ? to ? 6 ? do ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? if ? not ? fcomm.comm1.writecommdata(@sbuf[i],1) ? then ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? commflg:=false; ? ? ?
? ? ?
? break; ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //發(fā)送時(shí)字節(jié)間的延時(shí) ? ? ?
? ? ?
? sleep(2); ? ? ?
? ? ?
? viewstring:=viewstring＋ ? inttohex(sbuf[i],2)＋‘’ ? ; ? end; ? ? ?
? ? ?
? viewstring:=‘發(fā)送’＋ ? viewstring; ? ? ?
? ? ?
? fcomm.memo1.lines.add(viewstring); ? ? ?
? ? ?
? fcomm.memo1.lines.add(‘’ ? ); ? ? ?
? ? ?
? if ? not ? commflg ? then ? messagedlg(‘發(fā)送失敗 ? !’ ? ,mterror,[mbyes],0); ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //發(fā)送按鈕的點(diǎn)擊事件 ? ? ?
? ? ?
? procedure ? TFCOMM.Btn_sendClick(Sender: ? TObject); ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? sbuf[1]:=byte(＄ ? f0); ? //幀頭 ? ? ?
? ? ?
? sbuf[2]:=byte(＄ ? 01); ? //命令號(hào) ? ? ?
? ? ?
? sbuf[3]:=byte(＄ ? ff); ? ? ?
? ? ?
? sbuf[4]:=byte(＄ ? ff); ? ? ?
? ? ?
? sbuf[5]:=byte(＄ ? 01); ? ? ?
? ? ?
? sbuf[6]:=byte(＄ ? f0); ? //幀尾 ? ? ?
? ? ?
? senddata;//調(diào)用發(fā)送函數(shù) ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? //接收過(guò)程 ? ? ?
? ? ?
? procedure ? TFCOMM.Comm1ReceiveData(Sender: ? TObject; ? Buffer: ? Pointer;BufferLength: ? Word); ? ? ?
? ? ?
? var ? ? ?
? ? ?
? i:integer; ? ? ?
? ? ?
? begin ? ? ?
? ? ?
? viewstring:=‘’ ? ; ? ? ?
? ? ?
? move(buffer^,pchar(@rbuf)^,bufferlength); ? ? ?
? ? ?
? for ? i:=1 ? to ? bufferlength ? do ? ? ?
? ? ?
? viewstring:=viewstring＋ ? inttohex(rbuf[i],2)＋‘’ ? ; ? ? ?
? ? ?
? viewstring:=‘接收’＋ ? viewstring; ? ? ?
? ? ?
? memo1.lines.add(viewstring); ? ? ?
? ? ?
? memo1.lines.add(‘’ ? ); ? ? ?
? ? ?
? end; ? ? ?
? ? ?
? 如果 ? memo1上顯示發(fā)送 ? F0 ? 01 ? FF ? FF ? 01 ? F0和接收到 ? F0 ? 01 ? FF ? FF ? 01 ? F0，這表示串口已正確地發(fā)送出數(shù)據(jù)并正確地接收到數(shù)據(jù)，則串口通信成功。
轉(zhuǎn)載于:https://www.cnblogs.com/shylock/archive/2008/11/02/1325101.html
總結(jié)
以上是生活随笔為你收集整理的DELPHI串口通讯编程的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇： Packet for query is
- 下一篇： 地籍宗地出图（一）