delphispcomm溫控器modbus協(xié)議通訊設(shè)計-wenkub
2023-05-29 03:50:04 本頁面
【正文】 mp,p+1,Length(tmp)p)。 39。 var tmp: string。 。 until (ErrCode ERROR_SUCCESS) 。 (Data)。 SetLength(ValueName, ValueLen)。TmpPorts := 。HARDWARE\DEVICEMAP\SERIALCOMM39。ValueName, Data: string。 //按鈕、定時器返回字符串?dāng)?shù)組 cur_wd,Cur_wd_p,set_wd,Cur_Mode,Open_sta:array[1..32] of integer。 //定義全局字符串 rbuf,sbuf:array of byte。 //function returnCRC16(vStr1:String):String。 procedure Button13Click(Sender: TObject)。 procedure Button8Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 BufferLength: Word)。 procedure Button1Click(Sender: TObject)。 Button11: TButton。 Label24: TLabel。 Edit9: TEdit。 Edit7: TEdit。 Label21: TLabel。 Label19: TLabel。 Label17: TLabel。 Label14: TLabel。 Button7: TButton。 Label13: TLabel。 Label9: TLabel。 GroupBox3: TGroupBox。 ComboBox3: TComboBox。 Label1: TLabel。 Button4: TButton。 Label3: TLabel。 Button3: TButton。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, ExtCtrls,StrUtils。type TForm1 = class(TForm) Memo1: TMemo。 ComboBox1: TComboBox。 ComboBox2: TComboBox。 Button5: TButton。 Label6: TLabel。 ComboBox4: TComboBox。 Panel1: TPanel。 Label10: TLabel。 Label15: TLabel。 Button9: TButton。 Panel5: TPanel。 Edit2: TEdit。 Edit4: TEdit。 Edit6: TEdit。 Button12: TButton。 Label25: TLabel。 Edit11: TEdit。 Button13: TButton。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button9Click(Sender: TObject)。 procedure Timer2Timer(Sender: TObject)。 private { Private declarations } public { Public declarations } end。 //定義全局可變字節(jié)數(shù)組 Cur_Qry_Str: array[1..32] of string。 //設(shè)置當(dāng)前溫度、設(shè)置溫度、開關(guān)狀態(tài)數(shù)組 implementation{$R *.dfm}//=============此處用于自動獲取系統(tǒng)的串口數(shù)目以及名稱，調(diào)用api函數(shù)實現(xiàn)相關(guān)功能=====================procedure EnumComPorts(Ports: TStrings)。ValueLen, DataLen, ValueType: DWORD。, 0, KEY_READ, KeyHandle)。try Index := 0。 SetLength(Data, DataLen)。 Inc(Index)。 。end。 p : Integer。,tmp)0 do begin p := Pos(39。 end。varc:char。39。,[ord(c)])。end。M,Code:Integer。while t=Length(S) dobegin //xlh while (t=Length(S)) and (not (S[t] in [39。,39。,39。])) do inc(t)。939。F39。f39。$39。 inc(t,2)。 var site,StrLen:integer。 {插入target字符串到S中} insert(target,s,site)。AStart,AEnd:Integer):Word。 tmp:Byte。 //將數(shù)據(jù)與CRC寄存器的低8位進行異或 for j:=0 to 7 do //對每一位進行校驗 begin tmp:=crc and 1。 crc:=crc and $FFFF。 //將余數(shù)設(shè)定為FFFF for i:=AStart to AEnd do //對每一個字節(jié)進行校驗 CalOneByte(AData[i])。var Data:array[0..255] of Byte。 szData:string。 j:=0。$39。 //showmessage(inttostr(Count1))。 39。begin //獲取計算機中的串口列表，并設(shè)置當(dāng)前設(shè)備的串口號 EnumComPorts()。 :=StrtoInt()。串口狀態(tài)：39。狀態(tài)：39。 end else begin :=39。 end。begin try :=StrtoInt()。 then //設(shè)置奇偶校驗 :=Even。 if =39。Odd(奇)39。 then :=Space。 //設(shè)置數(shù)據(jù)位 if =39。739。 then :=_8。 if =39。239。 :=39。 except := 39。 end。//關(guān)閉串口procedure (Sender: TObject)。++39。begin SetComPort()。mflg:boolean。 //showmessage(inttostr(high(sbuf)))。 //發(fā)送時字節(jié)間的延時 sleep(1)。發(fā)送失敗 !39。發(fā)送39。39。var str11:string 。39。 setlength(sbuf,i+1)。 if t
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1