setup.pas

不需要服务器

unit setup;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls, OleCtrls, SHDocVw, Inifiles;

type
  Tfrm_Setup = class(TForm)
    Edit_IP: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit_Port: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    CB_Set: TCheckBox;
    BitBtn3: TBitBtn;
    WebBrowser1: TWebBrowser;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Setup: Tfrm_Setup;

implementation

uses main;

{$R *.DFM}

procedure Tfrm_Setup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//
end;

procedure Tfrm_Setup.FormShow(Sender: TObject);
var
  Flags: OLEVariant;
begin
  Flags := 0;
  WebBrowser1.Navigate(WideString(frm_main.GetExePath+'Detail\index.htm'));
end;

procedure Tfrm_Setup.BitBtn3Click(Sender: TObject);
begin
  Edit_IP.Text:='192.168.0.255';
  Edit_Port.Text:='5656';
  With TInifile.Create(frm_main.GetExePath+'Chat.ini') do
  begin
    WriteString('SysInfo','HostName',Edit_IP.Text);
    WriteString('SysInfo','HostPort',Edit_Port.Text);
  end;
  CB_Set.Checked:=false;
end;

procedure Tfrm_Setup.BitBtn1Click(Sender: TObject);
begin
  if Edit_IP.Text='255.255.255.255' then
  begin
    ShowMessage('对不起，这个地址保留的，绝对不能用，会死机的噢！');
    exit;
  end;
  if CB_Set.Checked then
    With TInifile.Create(frm_main.GetExePath+'Chat.ini') do
    begin
      WriteString('SysInfo','HostName',Edit_IP.Text);
      WriteString('SysInfo','HostPort',Edit_Port.Text);
    end;
  frm_main.NMUDP_Chat.RemoteHost:=Edit_IP.Text;
  frm_main.NMUDP_Chat.LocalPort:=StrToInt(Edit_Port.Text);
  frm_main.NMUDP_Chat.RemotePort:=StrToInt(Edit_Port.Text);
  Close;
end;

procedure Tfrm_Setup.FormCreate(Sender: TObject);
begin
  With TInifile.Create(frm_main.GetExePath+'Chat.ini') do
  begin
    Edit_IP.Text:=ReadString('SysInfo','HostName','192.168.0.255');
    Edit_Port.Text:=ReadString('SysInfo','HostPort','5656');
  end;
end;

end.