addlocalserverfrm.pas

NetHook API 对战平台内核库是一套实现时下流行的网络对战平台[如浩方、VS]同样功能的通用内核库

unit AddLocalServerFrm;

interface

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

type
  TAddLocalServerForm = class(TBaseForm)
    Label1: TLabel;
    edName: TEdit;
    Label2: TLabel;
    edIp: TEdit;
    Label3: TLabel;
    edPort: TEdit;
    btnOk: TButton;
    btnCancel: TButton;
    procedure btnOkClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses NhcConfig;

{$R *.dfm}

procedure TAddLocalServerForm.btnCancelClick(Sender: TObject);
begin
  ModalResult := mrCancel;
end;

procedure TAddLocalServerForm.btnOkClick(Sender: TObject);
var
  LPort: Integer;
  LSrvIpInfo: TServerIpInfo;
begin
  try
    if Trim(edName.Text) = '' then raise Exception.Create('名称不能为空!');
    if Trim(edIp.Text) = '' then raise Exception.Create('IP地址不能为空!');
    if Trim(edPort.Text) = '' then raise Exception.Create('端口不能为空!');

    try
      LPort := StrToInt(edPort.Text);
    except
      raise Exception.Create('端口输入错误!');
    end;

    if (LPort > 65535) or (LPort <= 0) then
      raise Exception.Create('端口必须在0-65535之间的数值!');
  except
    on E: Exception do
    begin
      MessageBox(0, PChar(E.Message), '提示信息', MB_ICONINFORMATION);
      Exit;
    end;
  end;

  LSrvIpInfo.Name := Trim(edName.Text);
  LSrvIpInfo.IP := Trim(edIp.Text);
  LSrvIpInfo.Port := LPort;

  ConfigMgr.AddUserServer(LSrvIpInfo);
  ModalResult := mrOk;
end;

end.