delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)(編輯修改稿)
2025-06-10 03:50 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 Res:=CalCRC16(Data,Low(Data),Count1)。 ResStr:=IntToHex(Res,4)。 Result:=RightStr(ResStr,2)+39。 39。+LeftStr(ResStr,2)。 //兩個(gè)字節(jié)對(duì)調(diào)***********end。//=================================設(shè)置串口=====================================procedure ()。begin //獲取計(jì)算機(jī)中的串口列表，并設(shè)置當(dāng)前設(shè)備的串口號(hào) EnumComPorts()。 if 0 then begin try :=0。 //。 :=。 :=StrtoInt()。 //設(shè)置串口的當(dāng)前波特率 。 //打開(kāi)之前先關(guān)閉串口 。 // :=39。串口狀態(tài)：39。++39。串口已打開(kāi)39。 except := 39。狀態(tài)：39。++39。串口打開(kāi)失敗39。 end。 end else begin :=39。串口狀態(tài)：39。++39。串口已關(guān)閉39。 end。 //showmessage(inttostr())。end。//==============================打開(kāi)串口==================================procedure (Sender: TObject)。begin try :=StrtoInt()。 //設(shè)置串口的當(dāng)前波特率 :=。 if =39。Even(偶)39。 then //設(shè)置奇偶校驗(yàn) :=Even。 if =39。Mark(標(biāo)記)39。 then :=Mark。 if =39。None(無(wú))39。 then :=None。 if =39。Odd(奇)39。 then :=Odd。 if =39。Space(空格)39。 then :=Space。 if =39。539。 then //設(shè)置數(shù)據(jù)位 :=_5。 //設(shè)置數(shù)據(jù)位 if =39。639。 then :=_6。 //設(shè)置數(shù)據(jù)位 if =39。739。 then :=_7。 //設(shè)置數(shù)據(jù)位 if =39。839。 then :=_8。 //設(shè)置數(shù)據(jù)位 if =39。139。 then //設(shè)置停止位 :=_1。 if =39。39。 then :=_1_5。 if =39。239。 then :=_2。 。 。 :=39。狀態(tài)：39。++39。串口已開(kāi)始捕獲39。 except := 39。狀態(tài)：39。++39。串口打開(kāi)失敗39。 end。 //:=inttoStr()。 //:=InttoStr()。end。//關(guān)閉串口procedure (Sender: TObject)。begin 。 := 39。狀態(tài)：39。++39。串口已停止捕獲39。end。//==============================設(shè)置串口號(hào)======================================procedure (Sender: TObject)。begin SetComPort()。end。//=============================自定義發(fā)送數(shù)據(jù)過(guò)程===============================procedure senddata。vari:integer。mflg:boolean。begin viewstring:=39。39。 mflg:=true。 //showmessage(inttostr(high(sbuf)))。 for i:=1 to high(sbuf) do begin if not (@sbuf[i],1) then begin mflg:=false。 break。 end。 //發(fā)送時(shí)字節(jié)間的延時(shí) sleep(1)。 viewstring:=viewstring+inttohex(sbuf[i],2)+39。 39。 if not mflg then messagedlg(39。發(fā)送失敗 !39。,mterror,[mbyes],0)。 end。 viewstring:=39。發(fā)送39。+viewstring。 (viewstring)。 //(39。39。)。end。// ==========================串口發(fā)送數(shù)據(jù)=======================================procedure sentcustom(SqrStr:string)。var str11:string 。 i,j,k:integer。 tmpstr:string。begin if SqrStr39。39。 then begin str11:=Trimplace(SqrStr)。 //替換字符串中的所有空格 i:=round(length(str11)/2)。 //獲得字符串長(zhǎng)度,除2取整后加1 //showmessage(inttostr(i))。 setlength(sbuf,i+1)。 //重新設(shè)定發(fā)送數(shù)組范圍 //showmessage(inttostr(high(sbuf)))。 for j:=1 to i do begin tmpstr:=copy(str11,j*21,2)。 //showmessage(tmpstr)。 if tmpstr=39。39。 then tmpstr:=39。0039。 sbuf[j]:=byte(strtoint(39。$39。+tmpstr))。 //將變量轉(zhuǎn)換為byte數(shù)組 end。 end else begin setlength(sbuf,9)。 sbuf[1]:=byte($01)。 sbuf[2]:=byte($03)。 sbuf[3]:=byte($00)。 sbuf[4]:=byte($00)。 sbuf[5]:=byte($00)。 sbuf[6]:=byte($05)。 sbuf[7]:=byte($85)。 sbuf[8]:=byte($C9)。 end。 senddata。end。//==================================接收數(shù)據(jù)============================
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號(hào)-1