delphispcomm溫控器modbus協(xié)議通訊設(shè)計-展示頁
2025-05-23 03:50本頁面
【正文】 rocedure Timer2Timer(Sender: TObject)。 procedure Button11Click(Sender: TObject)。 procedure Button9Click(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 Buffer: Pointer。 procedure Button2Click(Sender: TObject)。 procedure SetComPort()。 Button13: TButton。 Label27: TLabel。 Edit11: TEdit。 Edit10: TEdit。 Label25: TLabel。 Label23: TLabel。 Button12: TButton。 Label22: TLabel。 Edit6: TEdit。 Label20: TLabel。 Edit4: TEdit。 Edit3: TEdit。 Edit2: TEdit。 Edit1: TEdit。 Panel5: TPanel。 Timer1: TTimer。 Button9: TButton。 Panel4: TPanel。 Label15: TLabel。 Label12: TLabel。 Label10: TLabel。 Label8: TLabel。 Panel1: TPanel。 Comm1: TComm。 ComboBox4: TComboBox。 Label7: TLabel。 Label6: TLabel。 Button6: TButton。 Button5: TButton。 GroupBox2: TGroupBox。 ComboBox2: TComboBox。 GroupBox1: TGroupBox。 ComboBox1: TComboBox。 Button2: TButton。type TForm1 = class(TForm) Memo1: TMemo。DELPHI SPCOMM溫控器Modbus協(xié)議通訊設(shè)計——:64782489陳建光unit Unit1。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, ExtCtrls,StrUtils。 Button1: TButton。 Button3: TButton。 Label2: TLabel。 Label3: TLabel。 Memo2: TMemo。 Button4: TButton。 Label5: TLabel。 Label1: TLabel。 Label4: TLabel。 ComboBox3: TComboBox。 ComboBox5: TComboBox。 GroupBox3: TGroupBox。 Panel2: TPanel。 Label9: TLabel。 Label11: TLabel。 Label13: TLabel。 Panel3: TPanel。 Button7: TButton。 Button10: TButton。 Label14: TLabel。 Label16: TLabel。 Label17: TLabel。 Label18: TLabel。 Label19: TLabel。 Edit5: TEdit。 Label21: TLabel。 Button8: TButton。 Edit7: TEdit。 Edit8: TEdit。 Edit9: TEdit。 Panel6: TPanel。 Label24: TLabel。 Label26: TLabel。 Button11: TButton。 Timer2: TTimer。 procedure Button1Click(Sender: TObject)。 procedure Comm1ReceiveData(Sender: TObject。 BufferLength: Word)。 procedure FormCreate(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure Button8Click(Sender: TObject)。 procedure Button10Click(Sender: TObject)。 procedure Button13Click(Sender: TObject)。 //function CalCRC16(AData:array of Byte。 //function returnCRC16(vStr1:String):String。var Form1: TForm1。 //定義全局字符串 rbuf,sbuf:array of byte。 //當(dāng)前查詢字符串 Btn_Qry_Str,Tmr_Qry_Str:array[1..32] of string。 //按鈕、定時器返回字符串?dāng)?shù)組 cur_wd,Cur_wd_p,set_wd,Cur_Mode,Open_sta:array[1..32] of integer。varKeyHandle: HKEY。ValueName, Data: string。TmpPorts: TStringList。HARDWARE\DEVICEMAP\SERIALCOMM39。if ErrCode ERROR_SUCCESS then Exit。TmpPorts := 。 repeat ValueLen := 256。 SetLength(ValueName, ValueLen)。 ErrCode := RegEnumValue( KeyHandle, Index, PChar(ValueName), Cardinal(ValueLen), nil, ValueType, PByte(PChar(Data)), DataLen)。 (Data)。 end else if ErrCode ERROR_NO_MORE_ITEMS then exit。 until (ErrCode ERROR_SUCCESS) 。 (TmpPorts)。 。end。 var tmp: string。 begin tmp := Trim(str)。 39。 39。 tmp := Copy(tmp,1,p1)+Copy(tmp,p+1,Length(tmp)p)。 Result := tmp。//字符串轉(zhuǎn)成16
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1