unit TscPar;

interface

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

type
  TTscParForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    gbAlter: TGroupBox;
    lblAlterTime1: TLabel;
    edtAlterTime: TEdit;
    lblAlterTime2: TLabel;
    edtOnline: TEdit;
    lblOnline2: TLabel;
    gbEmail: TGroupBox;
    lblAddress: TLabel;
    lblSmpt: TLabel;
    edtAddress: TEdit;
    edtSmtp: TEdit;
    lblPort: TLabel;
    edtPort: TEdit;
    lblUser: TLabel;
    edtUser: TEdit;
    edtPass: TEdit;
    lblPass: TLabel;
    lblOnline1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  TscParForm: TTscParForm;

implementation

uses AlterComm;

{$R *.dfm}

procedure TTscParForm.FormCreate(Sender: TObject);
begin
  edtAlterTime.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','ALTER','TIME',2));  //預警信息的發送間隔時間5秒
  edtOnLine.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','ALTER','ONLINE',2));  //在線用戶無活動時間超過180秒時，則自動刪除
  edtAddress.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','ADDRESS',1);  //郵件地址
  edtSmtp.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','SMTP',1);  //發送服務器
  edtPort.Text:=IntToStr(ReadIniFile('.\HwTSC.ini','EMAIL','PORT',2));  //發送服務器端口
  edtUser.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','USER',1);  //帳號
  edtPass.Text:=ReadIniFile('.\HwTSC.ini','EMAIL','PASS',1);  //密碼
end;

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

procedure TTscParForm.bbtnOkClick(Sender: TObject);
begin
//確定
  WriteIniFile('.\HwTSC.ini','ALTER','TIME',2,StrToInt(edtAlterTime.Text));  //預警信息的發送間隔時間5秒
  WriteIniFile('.\HwTSC.ini','ALTER','ONLINE',2,StrToInt(edtOnline.Text));  //在線用戶無活動時間超過180秒時，則自動刪除
  WriteIniFile('.\HwTSC.ini','EMAIL','ADDRESS',1,edtAddress.Text);  //郵件地址
  WriteIniFile('.\HwTSC.ini','EMAIL','SMTP',1,edtSmtp.Text);  //發送服務器
  WriteIniFile('.\HwTSC.ini','EMAIL','PORT',2,edtPort.Text);  //發送服務器端口
  WriteIniFile('.\HwTSC.ini','EMAIL','USER',1,edtUser.Text);  //帳號
  WriteIniFile('.\HwTSC.ini','EMAIL','PASS',1,edtPass.Text);  //密碼
  ShowMsg('參數設置成功!',1);
  ModalResult:=1;
end;

procedure TTscParForm.bbtnExitClick(Sender: TObject);
begin
//退出
  Close;
end;

end.