setup.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

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;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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.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.