【正文】 39。...39。 //s[]=(39。 BufferLength: Word)。 sbuf[6]:=byte($05)。+tmpstr))。 for j:=1 to i do begin tmpstr:=copy(str11,j*21,2)。 tmpstr:string。 (viewstring)。 39。39。end。 //:=InttoStr()。++39。 then :=_1_5。 //設(shè)置數(shù)據(jù)位 if =39。539。 then :=None。 if =39。++39。串口已打開39。 //。 ResStr:=IntToHex(Res,4)。 if i=Length(szData) then exit。 Res:Word。end。 //計(jì)算1個(gè)字節(jié)的校驗(yàn)碼varj:Integer。 end。end。$39。A39。..39。..39。vart:Integer。 ss:=ss+format(39。 end。 while Pos(39。finally RegCloseKey(KeyHandle)。 if ErrCode = ERROR_SUCCESS then begin SetLength(Data, DataLen)。 // raise (CError_RegError, ErrCode)。ErrCode, Index: Integer。 viewstring:string。 procedure Button11Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure SetComPort()。 Edit10: TEdit。 Label22: TLabel。 Edit3: TEdit。 Timer1: TTimer。 Label12: TLabel。 Comm1: TComm。 Button6: TButton。 GroupBox1: TGroupBox。DELPHI SPCOMM溫控器Modbus協(xié)議通訊設(shè)計(jì)——:64782489陳建光unit Unit1。 Label2: TLabel。 Label5: TLabel。 ComboBox5: TComboBox。 Label11: TLabel。 Button10: TButton。 Label18: TLabel。 Button8: TButton。 Panel6: TPanel。 Timer2: TTimer。 procedure FormCreate(Sender: TObject)。 procedure Button10Click(Sender: TObject)。var Form1: TForm1。varKeyHandle: HKEY。if ErrCode ERROR_SUCCESS then Exit。 ErrCode := RegEnumValue( KeyHandle, Index, PChar(ValueName), Cardinal(ValueLen), nil, ValueType, PByte(PChar(Data)), DataLen)。 (TmpPorts)。 begin tmp := Trim(str)。 Result := tmp。 do begin c:=str[1]。//16進(jìn)制字符串轉(zhuǎn)換成字符串function HexStrToStr(const S:string):string。039。a39。,39。])) then ts:=39。end。 {返回新串} replacing:=s。procedure CalOneByte(AByte:Byte)。 end。 i,j,Count:Integer。 for j:=0 to Count1 do begin if (i mod 2)=0 then //每2個(gè)字符放入一個(gè)字節(jié)中 i:=i+1。 Res:=CalCRC16(Data,Low(Data),Count1)。 if 0 then begin try :=0。++39。串口狀態(tài)：39。 //設(shè)置串口的當(dāng)前波特率 :=。None(無)39。 if =39。 then :=_7。39。狀態(tài)：39。 //:=inttoStr()。串口已停止捕獲39。begin viewstring:=39。 viewstring:=viewstring+inttohex(sbuf[i],2)+39。+viewstring。 i,j,k:integer。 //重新設(shè)定發(fā)送數(shù)組范圍 //showmessage(inttostr(high(sbuf)))。$39。 sbuf[5]:=byte($00)。 Buffer: Pointer。begin str1:=Buffer。339。 string1:=string1+s[n div 16]+s[n mod 16]+ 39。狀態(tài)：已停止過濾39。,39。 } end。39。39。end。end。 //計(jì)算CRC16校驗(yàn)碼 End_Sqr_Str:=SqrStr +39。 //循環(huán)用整數(shù)變量Tmr_Qry_Str1:string。 //為狀態(tài)查詢字符串?dāng)?shù)組賦值 Return_Sta_Sting(Tmr_Qry_Str1)。) and (round(length(Tmr_Rtn_Str1)/2)=15) then begin :=Tmr_Rtn_Str1。$39。 if StrToInt(39。 :=39。 end else begin :=true。//=================================開關(guān)按鈕=====================================procedure (Sender: TObject)。 //查詢字符串地址碼 for i:=1 to 16 do begin if i=Ad_id then begin if =39。 :=39。 //數(shù)據(jù)(關(guān)閉) :=Btn_Qry_Str1。0139。 end。 then begin Btn_Qry_Str1:=39。000239。 :=39。 //數(shù)據(jù)(睡眠) :=39。0639。end。 //寄存器地址 if strtoint()10 then begin :=inttostr(strtoint()1)。