sdpas.pas

读取网通或电信电话交换机（华为）数据给酒店管理数据库

unit sdpas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  Tsddfm = class(TForm)
    Label4: TLabel;
    Label5: TLabel;
    Label9: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sddfm: Tsddfm;

implementation
 uses comm1;
{$R *.DFM}

procedure Tsddfm.FormShow(Sender: TObject);
begin
edit1.text:=fcomm.setbuf[1];
edit2.text:=fcomm.setbuf[2];
edit3.text:=fcomm.setbuf[4];
edit4.text:=fcomm.setbuf[5];
edit5.text:=fcomm.setbuf[6];
edit6.text:=fcomm.setbuf[3];

end;

procedure Tsddfm.BitBtn3Click(Sender: TObject);
begin
edit1.text:=fcomm.setbuf[1];
edit2.text:=fcomm.setbuf[2];
edit3.text:=fcomm.setbuf[4];
edit4.text:=fcomm.setbuf[5];
edit5.text:=fcomm.setbuf[6];
edit6.text:=fcomm.setbuf[3];
end;

procedure Tsddfm.BitBtn1Click(Sender: TObject);
begin
{
sbuf1[1]:=byte($16);
sbuf1[2]:=byte($16);
sbuf1[3]:=byte($16);
sbuf1[4]:=byte($16);
sbuf1[5]:=byte($16);
sbuf1[6]:=byte($02);
sbuf1[7]:=byte($05);
if rb1.checked =true then
begin
sbuf1[8]:=byte($00);
sbuf1[11]:=byte($05);
sbuf1[12]:=byte($00);
end;
if rb2.checked =true then
begin
sbuf1[8]:=byte($04);
sbuf1[11]:=byte($05);
sbuf1[12]:=byte($00);
end;

sbuf1[9]:=byte($04);
sbuf1[10]:=byte($01);

senddata1;
}

end;

end.