delphispcomm溫控器modbus協(xié)議通訊設(shè)計(已修改)
2025-05-26 03:50 本頁面
【正文】 DELPHI SPCOMM溫控器Modbus協(xié)議通訊設(shè)計——:64782489陳建光unit Unit1。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, ExtCtrls,StrUtils。type TForm1 = class(TForm) Memo1: TMemo。 Button1: TButton。 Button2: TButton。 Button3: TButton。 ComboBox1: TComboBox。 Label2: TLabel。 GroupBox1: TGroupBox。 Label3: TLabel。 ComboBox2: TComboBox。 Memo2: TMemo。 GroupBox2: TGroupBox。 Button4: TButton。 Button5: TButton。 Label5: TLabel。 Button6: TButton。 Label1: TLabel。 Label6: TLabel。 Label4: TLabel。 Label7: TLabel。 ComboBox3: TComboBox。 ComboBox4: TComboBox。 ComboBox5: TComboBox。 Comm1: TComm。 GroupBox3: TGroupBox。 Panel1: TPanel。 Panel2: TPanel。 Label8: TLabel。 Label9: TLabel。 Label10: TLabel。 Label11: TLabel。 Label12: TLabel。 Label13: TLabel。 Label15: TLabel。 Panel3: TPanel。 Panel4: TPanel。 Button7: TButton。 Button9: TButton。 Button10: TButton。 Timer1: TTimer。 Label14: TLabel。 Panel5: TPanel。 Label16: TLabel。 Edit1: TEdit。 Label17: TLabel。 Edit2: TEdit。 Label18: TLabel。 Edit3: TEdit。 Label19: TLabel。 Edit4: TEdit。 Edit5: TEdit。 Label20: TLabel。 Label21: TLabel。 Edit6: TEdit。 Button8: TButton。 Label22: TLabel。 Edit7: TEdit。 Button12: TButton。 Edit8: TEdit。 Label23: TLabel。 Edit9: TEdit。 Label25: TLabel。 Panel6: TPanel。 Edit10: TEdit。 Label24: TLabel。 Edit11: TEdit。 Label26: TLabel。 Label27: TLabel。 Button11: TButton。 Button13: TButton。 Timer2: TTimer。 procedure SetComPort()。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Comm1ReceiveData(Sender: TObject。 Buffer: Pointer。 BufferLength: Word)。 procedure Button3Click(Sender: TObject)。 procedure FormCreate(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button5Click(Sender: TObject)。 procedure Button6Click(Sender: TObject)。 procedure Timer1Timer(Sender: TObject)。 procedure Button7Click(Sender: TObject)。 procedure Button8Click(Sender: TObject)。 procedure Button9Click(Sender: TObject)。 procedure Button10Click(Sender: TObject)。 procedure Button11Click(Sender: TObject)。 procedure Button13Click(Sender: TObject)。 procedure Timer2Timer(Sender: TObject)。 //function CalCRC16(AData:array of Byte。AStart,AEnd:Integer):Word。 //function returnCRC16(vStr1:String):String。 private { Private declarations } public { Public declarations } end。var Form1: TForm1。 viewstring:string。 //定義全局字符串 rbuf,sbuf:array of byte。 //定義全局可變字節(jié)數(shù)組 Cur_Qry_Str: array[1..32] of string。 //當(dāng)前查詢字符串 Btn_Qry_Str,Tmr_Qry_Str:array[1..32] of string。 //按鈕、定時器返回字符串?dāng)?shù)組 Btn_Rtn_Str,Tmr_Rtn_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。 //設(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)。varKeyHandle: HKEY。ErrCode, Index: Integer。ValueName, Data: string。ValueLen, DataLen, ValueType: DWORD。TmpPorts: TStringList。beginErrCode := RegOpenKeyEx( HKEY_LOCAL_MACHINE, 39。HARDWARE\DEVICEMAP\SERIALCOMM39。, 0, KEY_READ, KeyHandle)。if ErrCode ERROR_SUCCESS then Exit。 // raise (CError_RegError, ErrCod
規(guī)章制度相關(guān)推薦
鄂ICP備17016276號-1