uregister.pas

GPRS无线数据管理软件,用于远程数据采集和分析以及展现

unit Uregister;

interface

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

type
  TFregister = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button3: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button4: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fregister: TFregister;

implementation

uses umain;

{$R *.dfm}

procedure TFregister.Button2Click(Sender: TObject);
begin
   close;
end;

procedure TFregister.RadioButton2Click(Sender: TObject);
begin
    button3.Enabled:=true;
    button4.Enabled:=true; 
    form1.registerstyle:=2;
end;

procedure TFregister.RadioButton1Click(Sender: TObject);
begin
    button3.Enabled:=false;
    button4.Enabled:=false;
    form1.registerstyle:=1;    
end;

procedure TFregister.Button1Click(Sender: TObject);
   var i:integer;
begin
   if length(edit1.Text)<7  then
       begin
           showmessage('IP地址错误');
           exit;
       end;
   try
     i:=strtoint(edit2.text);
   except
     showmessage('端口错误');
     exit;
   end;

   if ((i>65535) or (i<1024))  then
     begin
        showmessage('端口范围错误');
        exit;
     end;

    try
      StrToInt(edit3.text);
    except
       ShowMessage('主序列号错误');
       exit;
    end;

   if length(edit4.text)<>32 then
     begin
       showmessage('扩展序列号位数错误');
       exit;
     end;

   form1.serverIP:=form1.getipaddr(edit1.text);
   //showmessage(form1.serverIP);
   if (length(form1.serverIP)<7) then
      begin
        form1.registerstyle:=2;
        showmessage('无法解析域名');
        exit;
      end;
   Form1.serverport:=i;
   form1.SerialNo:=StrToInt(edit3.Text);
   Form1.ExtendSerialNo:=edit4.text;
   if radiobutton1.Checked then form1.registerstyle:=1
       else form1.registerstyle:=2;
   form1.writeinifile(2);

   close;
end;

procedure TFregister.FormCreate(Sender: TObject);
begin
    //edit1.Text:=form1.serverIP;
    if (form1.serverport>1024) and (form1.serverport<65535) then
       edit2.Text:=inttostr(form1.serverport);
    edit3.Text:=IntToStr(form1.SerialNo);
    edit4.Text:=form1.ExtendSerialNo;
    if (1=form1.registerstyle) then
      begin
        radiobutton1.Checked:=true;
        button3.Enabled:=false;
      end
    else
        radiobutton2.Checked:=true;
end;

procedure TFregister.Button3Click(Sender: TObject);
   var i:integer;
begin
   if length(edit1.Text)<7  then
       begin
           showmessage('IP地址错误');
           exit;
       end;
   try
     i:=strtoint(edit2.text);
   except
     showmessage('端口错误');
     exit;
   end;

   if ((i>65535) or (i<1024))  then
     begin
        showmessage('端口范围错误');
        exit;
     end;

    try
      StrToInt(edit3.text);
    except
       ShowMessage('主序列号错误');
       exit;
    end;

   if length(edit4.text)<>32 then
     begin
       showmessage('扩展序列号位数错误');
       exit;
     end;

   form1.serverIP:=form1.getipaddr(edit1.text);
   if (length(form1.serverIP)<7) then
      begin
        form1.registerstyle:=2;
        showmessage('无法解析域名');
        exit;
      end;
   form1.serverport:=i;
   form1.SerialNo:=StrToInt(edit3.text);
   Form1.ExtendSerialNo:=edit4.text;
   if radiobutton1.Checked then form1.registerstyle:=1
       else form1.registerstyle:=2;   
   form1.writeinifile(2);
   form1.registerserver(1);

end;

procedure TFregister.Button4Click(Sender: TObject);
begin
    if ((Form1.SerialNo>0) and (length(form1.serverIP)>7) and (form1.serverport>1024) and (form1.serverport<65535)) then
      form1.registerserver(2);
end;

end.