DELPHI-M温控器Modbus协议通讯设计.doc

M温控器Modbus协议通讯设计——QQ:陈建光unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,m,ExtCtrls,StrUtils;typeTForm1=class(TForm)Memo1:TMemo;Button1:TButton;Button2:TButton;Button3:boBox1:TComboBox;Label2:TLabel;GroupBox1:TGroupBox;Label3:boBox2:TComboBox;Memo2:TMemo;GroupBox2:TGroupBox;Button4:TButton;Button5:TButton;Label5:TLabel;Button6:TButton;Label1:TLabel;Label6:TLabel;Label4:TLabel;Label7:boBox3:boBox4:boBox5:m1: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;Port();procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);m1ReceiveData(Sender:TObject;Buffer:Pointer;BufferLength:Word);procedureButton3Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton5Click(Sender:TObject);procedureButton6Click(Sender:TObject);procedureTimer1Timer(Sender:TObject);procedureButton7Click(Sender:TObject);procedureButton8Click(Sender:TObject);procedureButton9Click(Sender:TObject);procedureButton10Click(Sender:TObject);procedureButton11Click(Sender:TObject);procedureButton13Click(Sender:TObject);procedureTimer2Timer(Sender:TObject);//functionCalCRC16(AData:arrayofByte;AStart,AEnd:Integer):Word;//functionreturnCRC16(vStr1:String):String;private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;viewstring:string;//定义全局字符串