delphispcomm溫控器modbus協(xié)議通訊設(shè)計(jì)(參考版)
2025-05-17 03:50本頁面
【正文】 end.。begin 。end。procedure (Sender: TObject)。begin :=false。 end。 :=Return_Sta_Sting()。 :=intToHex((strtoint())*10,4)。000139。0639。0139。procedure (Sender: TObject)。 end。 //數(shù)據(jù)(關(guān)閉) :=+++。 //寄存器地址 if strtoint()35 then begin :=inttostr(strtoint()+1)。 //功能碼 :=39。 //地址碼 :=39。begin :=39。end。0139。000139。000239。0639。0139。 //睡眠模式 :=Return_Sta_Sting(Btn_Qry_Str1)。 end else begin Btn_Qry_Str1:=39。 //數(shù)據(jù)(加熱) :=39。 //寄存器地址 :=39。 //功能碼 :=39。 //地址碼 :=39。 :=39。01 06 00 02 00 0039。0139。varBtn_Qry_Str1:string。end。 end。 //數(shù)據(jù)(關(guān)閉) :=Btn_Qry_Str1。 //寄存器地址 :=39。 //功能碼 :=39。 //地址碼 :=39。 :=39。 //打開 :=39。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。 end else begin Btn_Qry_Str1:=39。000039。000439。0639。0139。0039。 :=Return_Sta_Sting(Btn_Qry_Str1)。01 06 00 04 00 0039。0139。+)。 //關(guān)閉 Ad_id:=StrToInt(39。begin Btn_Qry_Str1:=39。vari,Ad_id:integer。end。 end。 end。 :=39。0139。+copy(Trimplace(Tmr_Rtn_Str1),23,4))=1 then //當(dāng)前狀態(tài) begin :=false。 if StrToInt(39。0039。 :=false。0139。 :=true。$39。 //設(shè)置溫度 :=。$39。+copy(Tmr_Rtn_Str1,7,4))/10))*10)。+copy(Tmr_Rtn_Str1,7,4))(trunc(StrToInt(39。+IntToStr(StrToInt(39。 :=39。+copy(Tmr_Rtn_Str1,7,4))/10))。 :=IntToStr(trunc(StrToInt(39。0A39。39。 end。 //執(zhí)行狀態(tài)查詢 Tmr_Rtn_Str1:=Trimplace(Tmr_Rtn_Str[i])。 //查詢字符串地址碼 try For i:=1 to 16 do begin if i=Ad_id then begin Tmr_Qry_Str[i]:=Tmr_Qry_Str1。$39。01 03 00 00 00 0539。 //定時(shí)器狀態(tài)查詢字符串變量Tmr_Rtn_Str1:string。vari,Ad_id:integer。 end。 //最終查詢字符串 sentcustom(End_Sqr_Str)。 39。begin for i:=1 to 32 do //循環(huán)地址碼1~32,將查詢返回值保存至數(shù)組 begin if strtoint(copy(Trimplace(SqrStr),1,2))=i then begin Cur_CRC16Str:=returnCRC16(SqrStr)。vari:integer。end。procedure (Sender: TObject)。狀態(tài)：已停止過濾39。procedure (Sender: TObject)。狀態(tài)：已開始過濾39。procedure (Sender: TObject)。begin 。end。 end。 end else Tmr_Qry_Str[i]:=39。 Tmr_Qry_Str[i]:=39。01 03 00 00 00 0539。+string1)。 then begin (39。} if trim(string1) 39。+string1)。 then begin (39。 {if trim(string1) 39。)。,39。 string1:=replacing(string1,39。39。82 71 14 01 08 39。 end。39。 then begin string1 :=string1。 //根據(jù)過濾狀態(tài)，調(diào)用replacing函數(shù)替換字符串 if =39。 end。接收→ 39。 39。 for i:=1 to bufferlength do begin n:=ord(str1^[i])。 string1:=39。) for i:=0 to 9 do s[i]:=chr(48+i)。...39。,39。,39。,39。 //s[]=(39。 string1:string。 s:array[0..8192] of char 。 var str1:^ss。 BufferLength: Word)。//==================================接收數(shù)據(jù)====================================procedure (Sender: TObject。 senddata。 sbuf[8]:=byte($C9)。 sbuf[6]:=byte($05)。 sbuf[4]:=byte($00)。 sbuf[2]:=byte($03)。 end else begin setlength(sbuf,9)。+tmpstr))。
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1