spcomm控件在delphi串口通信中的應(yīng)用-資料下載頁
2025-06-19 14:45本頁面
【正文】 數(shù)據(jù)需要以下步驟：，把窗體的NAME屬性改為FCOMM，把窗體的標(biāo)題改為測(cè)試通訊，添加控件?！ ?duì)COMM1(黑色矩形圍住的控件)進(jìn)行屬性設(shè)計(jì)，設(shè)波特率4800，校驗(yàn)位無，字節(jié)長(zhǎng)度_8，停止位_1，串口選擇COM1。Memo1中將顯示發(fā)送和接受的數(shù)據(jù)。選擇File/Save 。2．編寫源代碼變量說明varFCOMM: TFCOMM。Viewstring:string。i:integer。rbuf,sbuf:array[1..6] of byte。打開串口 procedure (Sender: TObject)。begin。end。關(guān)閉串口procedure (Sender: TObject。 var Action: TCloseAction)。begin。end。發(fā)送數(shù)據(jù)自定義的發(fā)送過程procedure senddata。vari:integer。mflg:boolean。beginviewstring:=。mflg:=true。for i:=1 to 6 dobeginif not (@sbuf[i],1) then beginmflg:=false。break。end。sleep(2)。 {發(fā)送時(shí)字節(jié)間的延時(shí)}viewstring:=viewstring+inttohex(sbuf[i],2)+ 。end。viewstring:=發(fā)送+viewstring。(viewstring)。()。if not mflg then messagedlg(發(fā)送失敗!,mterror,[mbyes],0)。end。procedure (Sender: TObject)。{發(fā)送按鈕的點(diǎn)擊事件}beginsbuf[1]:=byte($f0)。 {幀頭}sbuf[2]:=byte($01)。 {命令號(hào)}sbuf[3]:=byte($ff)。sbuf[4]:=byte($ff)。sbuf[5]:=byte($01)。sbuf[6]:=byte($0f)。 {幀尾}senddata。{調(diào)用發(fā)送函數(shù)}end。接收過程procedure (Sender: TObject。 Buffer: Pointer。BufferLength: Word)。vari:integer。beginviewstring:=。move(buffer^,pchar(@rbuf^),bufferlength)。for i:=1 to bufferlength doviewstring:=viewstring+inttohex(rbuf[i],2)+ 。viewstring:=接受+viewstring。(viewstring)。()。end?！ ∪绻鹠emo1上顯示發(fā)送F0 01 FF FF 0F 和 接受F0 01 FF FF F0這表示串口已正確的發(fā)送出數(shù)據(jù)并正確的接受到數(shù)據(jù)，串口通訊成功。12 / 12
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1