u_104test.pas

104规约服务端测试程序

unit U_104test;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, ComCtrls;

type
  TF_104test = class(TForm)
    SE_104_index: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    SE_104_Gadd: TSpinEdit;
    Label4: TLabel;
    SE_104_port: TSpinEdit;
    CB_104_fh: TComboBox;
    Label5: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Memo2: TMemo;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_104test: TF_104test;

implementation
   uses Rule104;
{$R *.dfm}

procedure TF_104test.Button1Click(Sender: TObject);
begin
    AllowControl(SE_104_index.Value,1);
end;

procedure TF_104test.Button2Click(Sender: TObject);
begin
    AllowControl(SE_104_index.Value,0);
end;

procedure TF_104test.CheckBox1Click(Sender: TObject);
begin
        if CheckBox1.Checked then
        begin
        LocalPort_104:=SE_104_port.Value;
        GlobalAdd:=SE_104_Gadd.Value;
        Memo1.Lines.Text:='';
        MessageList:=Memo1.Lines;
        InitSocket104Server(true);
        end
        else
        stop_104;
end;

end.