delphispcomm溫控器modbus協(xié)議通訊設(shè)計-全文預(yù)覽
【正文】 5)。 sbuf[2]:=byte($03)。+tmpstr))。 then tmpstr:=39。 for j:=1 to i do begin tmpstr:=copy(str11,j*21,2)。 //替換字符串中的所有空格 i:=round(length(str11)/2)。 tmpstr:string。end。 (viewstring)。 end。 39。 break。39。//=============================自定義發(fā)送數(shù)據(jù)過程===============================procedure senddata。end。 := 39。 //:=InttoStr()。++39。++39。 。 then :=_1_5。139。 //設(shè)置數(shù)據(jù)位 if =39。 then :=_6。539。 if =39。 then :=None。Mark(標(biāo)記)39。 if =39。end。++39。串口打開失敗39。串口已打開39。 //打開之前先關(guān)閉串口 。 //。 //兩個字節(jié)對調(diào)***********end。 ResStr:=IntToHex(Res,4)。 //取出字符并轉(zhuǎn)換為16進制數(shù) i:=i+1。 if i=Length(szData) then exit。 //讀入欲校驗的字符串 Count:=round(Length(Trimplace(vStr1))/2)。 Res:Word。end。end。 //寄存器向右移一位 crc:=crc and $7FFF。 //計算1個字節(jié)的校驗碼varj:Integer。 //多項式公式X16+X15+X2+1（1100 0000 0000 0101）var crc:Word。 end。 {source的長度} StrLen:=length(source)。end。 Val(ts,M,Code)。$39。a39。A39。039。..39。..39。..39。Result:=39。vart:Integer。end。 ss:=ss+format(39。i:integer。 end。,tmp)。 while Pos(39。//=====================替換字符串中的空格函數(shù)===================================function Trimplace(str: string): string。finally RegCloseKey(KeyHandle)。 //raise (CError_RegError, ErrCode)。 if ErrCode = ERROR_SUCCESS then begin SetLength(Data, DataLen)。 DataLen := 256。 // raise (CError_RegError, ErrCode)。beginErrCode := RegOpenKeyEx( HKEY_LOCAL_MACHINE, 39。ErrCode, Index: Integer。 //按鈕、定時器返回字符串?dāng)?shù)組 Btn_Rtn_Str,Tmr_Rtn_Str:array[1..32] of string。 viewstring:string。AStart,AEnd:Integer):Word。 procedure Button11Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 Buffer: Pointer。 procedure SetComPort()。 Label27: TLabel。 Edit10: TEdit。 Label23: TLabel。 Label22: TLabel。 Label20: TLabel。 Edit3: TEdit。 Edit1: TEdit。 Timer1: TTimer。 Panel4: TPanel。 Label12: TLabel。 Label8: TLabel。 Comm1: TComm。 Label7: TLabel。 Button6: TButton。 GroupBox2: TGroupBox。 GroupBox1: TGroupBox。 Button2: TButton。DELPHI SPCOMM溫控器Modbus協(xié)議通訊設(shè)計——:64782489陳建光unit Unit1。 Button1: TButton。 Label2: TLabel。 Memo2: TMemo。 Label5: TLabel。 Label4: TLabel。 ComboBox5: TComboBox。 Panel2: TPanel。 Label11: TLabel。 Panel3: TPanel。 Button10: TButton。 Label16: TLabel。 Label18: TLabel。 Edit5: TEdit。 Button8: TButton。 Edit8: TEdit。 Panel6: TPanel。 Label26: TLabel。 Timer2: TTimer。 procedure Comm1ReceiveData(Sender: TObject。 procedure FormCreate(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure Button10Click(Sender: TObject)。 //function CalCRC16(AData:array of Byte。var Form1: TForm1。 //當(dāng)前查詢字符串 Btn_Qry_Str,Tmr_Qry_Str:array[1..32] of string。varKeyHandle: HKEY。TmpPorts: TStringList。if ErrCode ERROR_SUCCESS then Exit。 repeat ValueLen := 256。 ErrCode := RegEnumValue( KeyHandle, Index, PChar(ValueName), Cardinal(ValueLen), nil, ValueType, PByte(PChar(Data)), DataLen)。 end else if ErrCode ERROR_NO_MORE_ITEMS then exit。 (TmpPorts)。end。 begin tmp := Trim(str)。 39。 Result := tmp。ss:string。 do begin c:=str[1]。 delete(str,1
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1