【正文】 r:string):string。ts:string。f39。+S[t] else ts:=39。//// CalCRC16用于計算Modbus RTU的CRC16// 多項式公式為X16+X15+X2+1//function CalCRC16(AData:array of Byte。begin crc:=$FFFF。 Data[j]:=StrToInt(39。 :=。串口已關(guān)閉39。 if =39。839。串口已開始捕獲39。//==============================設(shè)置串口號======================================procedure (Sender: TObject)。 if not mflg then messagedlg(39。begin if SqrStr39。 //將變量轉(zhuǎn)換為byte數(shù)組 end。 type ss=array[1..8192]of char 。E39。 end else begin for i:=0 to do begin string1:=replacing(string1,trim([i]),39。39。39。begin 。 //定時器狀態(tài)返回字符串變量begin Tmr_Qry_Str1:=39。$39。+copy(Tmr_Rtn_Str1,15,4))=1 then //當(dāng)前模式 begin :=false。0039。 then begin Btn_Qry_Str1:=39。01 06 00 04 00 0139。 end。000039。 end。begin :=39。begin :=true。procedure (Sender: TObject)。 :=Return_Sta_Sting()。 //寄存器地址 :=39。0639。000139。 //寄存器地址 :=39。$39。 :=39。+copy(Tmr_Rtn_Str1,11,4))/10))。) and (copy(Tmr_Rtn_Str1,5,2)=39。//定時返回狀態(tài)值procedure (Sender: TObject)。begin :=39。 then begin Tmr_Rtn_Str[i]:= string1。39。 //轉(zhuǎn)換字符串完畢后，清空buffer ZeroMemory(buffer,0)。239。end。0039。// ==========================串口發(fā)送數(shù)據(jù)=======================================procedure sentcustom(SqrStr:string)。 end。狀態(tài)：39。 。 //設(shè)置數(shù)據(jù)位 if =39。 then :=Mark。 end。//=================================設(shè)置串口=====================================procedure ()。 //讀入需要計算的字符串長度 i:=1。 //將最高位置0 if tmp=1 then //檢測移出的位，如果為1，那么與多項式異或 crc:=crc xor GENP。 {刪除source字符串} delete(s,site,StrLen)。..39。F39。strtohexStr:= ss。 tmp := Copy(tmp,1,p1)+Copy(tmp,p+1,Length(tmp)p)。 until (ErrCode ERROR_SUCCESS) 。HARDWARE\DEVICEMAP\SERIALCOMM39。 //function returnCRC16(vStr1:String):String。 BufferLength: Word)。 Edit9: TEdit。 Label17: TLabel。 Label9: TLabel。 Button4: TButton。type TForm1 = class(TForm) Memo1: TMemo。 Label6: TLabel。 Label15: TLabel。 Edit4: TEdit。 Edit11: TEdit。 procedure Button6Click(Sender: TObject)。 //定義全局可變字節(jié)數(shù)組 Cur_Qry_Str: array[1..32] of string。try Index := 0。end。varc:char。M,Code:Integer。])) do inc(t)。$39。AStart,AEnd:Integer):Word。 //將余數(shù)設(shè)定為FFFF for i:=AStart to AEnd do //對每一個字節(jié)進(jìn)行校驗 CalOneByte(AData[i])。$39。 :=StrtoInt()。 end。Odd(奇)39。 then :=_8。 except := 39。begin SetComPort()。發(fā)送失敗 !39。39。 end else begin setlength(sbuf,9)。 var str1:^ss。) for i:=0 to 9 do s[i]:=chr(48+i)。39。 then begin (39。 end。end。01 03 00 00 00 0539。+copy(Tmr_Rtn_Str1,7,4))/10))。 :=true。 end。01 06 00 04 00 0039。 //關(guān)閉 Btn_Qry_Str[i]:=Btn_Qry_Str1。end。 //數(shù)據(jù)(加熱) :=39。end。0139。end。 end。 //數(shù)據(jù)(關(guān)閉) :=+++。000239。 //地址碼 :=39。 //寄存器地址 :=39。000439。 //關(guān)閉 Ad_id:=StrToInt(39。+copy(Trimplace(Tmr_Rtn_Str1),23,4))=1 then //當(dāng)前狀態(tài) begin :=false。$39。39。 end。procedure (Sender: TObject)。01 03 00 00 00 0539。,39。 end。,39。 senddata。 then tmpstr:=39。end。 break。 := 39。 。 then :=_6。Mark(標(biāo)記)39。串口打開失敗39。 //兩個字節(jié)對調(diào)***********end。 /