【正文】 mpstr=39。 sbuf[j]:=byte(strtoint(39。 end else begin setlength(sbuf,9)。 sbuf[4]:=byte($00)。 sbuf[8]:=byte($C9)。//==================================接收數(shù)據(jù)====================================procedure (Sender: TObject。 var str1:^ss。 string1:string。,39。,39。) for i:=0 to 9 do s[i]:=chr(48+i)。 for i:=1 to bufferlength do begin n:=ord(str1^[i])。接收→ 39。 //根據(jù)過濾狀態(tài)，調(diào)用replacing函數(shù)替換字符串 if =39。39。82 71 14 01 08 39。 string1:=replacing(string1,39。)。 then begin (39。} if trim(string1) 39。+string1)。 Tmr_Qry_Str[i]:=39。 end。begin 。狀態(tài)：已開始過濾39。狀態(tài)：已停止過濾39。end。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)。 //最終查詢字符串 sentcustom(End_Sqr_Str)。vari,Ad_id:integer。01 03 00 00 00 0539。 //查詢字符串地址碼 try For i:=1 to 16 do begin if i=Ad_id then begin Tmr_Qry_Str[i]:=Tmr_Qry_Str1。 end。0A39。+copy(Tmr_Rtn_Str1,7,4))/10))。+IntToStr(StrToInt(39。+copy(Tmr_Rtn_Str1,7,4))/10))*10)。 //設置溫度 :=。 :=true。 :=false。 if StrToInt(39。0139。 end。end。begin Btn_Qry_Str1:=39。+)。01 06 00 04 00 0039。0039。0639。000039。 //關閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。 :=39。 //功能碼 :=39。 //數(shù)據(jù)(關閉) :=Btn_Qry_Str1。end。0139。 :=39。 //功能碼 :=39。 //數(shù)據(jù)(加熱) :=39。 //睡眠模式 :=Return_Sta_Sting(Btn_Qry_Str1)。0639。000139。end。 //地址碼 :=39。 //寄存器地址 if strtoint()35 then begin :=inttostr(strtoint()+1)。 end。0139。000139。 :=Return_Sta_Sting()。begin :=false。end。end.。begin 。procedure (Sender: TObject)。 end。 :=intToHex((strtoint())*10,4)。0639。procedure (Sender: TObject)。 //數(shù)據(jù)(關閉) :=+++。 //功能碼 :=39。begin :=39。0139。000239。0139。 end else begin Btn_Qry_Str1:=39。 //寄存器地址 :=39。 //地址碼 :=39。01 06 00 02 00 0039。varBtn_Qry_Str1:string。 end。 //寄存器地址 :=39。 //地址碼 :=39。 //打開 :=39。 end else begin Btn_Qry_Str1:=39。000439。0139。 :=Return_Sta_Sting(Btn_Qry_Str1)。0139。 //關閉 Ad_id:=StrToInt(39。vari,Ad_id:integer。 end。 :=39。+copy(Trimplace(Tmr_Rtn_Str1),23,4))=1 then //當前狀態(tài) begin :=false。0039。0139。$39。$39。+copy(Tmr_Rtn_Str1,7,4))(trunc(StrToInt(39。 :=39。 :=IntToStr(trunc(StrToInt(39。39。 //執(zhí)行狀態(tài)查詢 Tmr_Rtn_Str1:=Trimplace(Tmr_Rtn_Str[i])。$39。 //定時器狀態(tài)查詢字符串變量Tmr_Rtn_Str1:string。 end。 39。vari:integer。procedure (Sender: TObject)。procedure (Sender: TObject)。procedure (Sender: TObject)。end。 end else Tmr_Qry_Str[i]:=39。01 03 00 00 00 0539。 then begin (39。+string1)。 {if trim(string1) 39。,39。39。 end。 then begin string1 :=string1。 end。 39。 string1:=39。...39。,39。 //s[]=(39。 s:array[0..8192] of char 。 BufferLength: Word)。 senddata。 sbuf[6]:=byte($0