setting.~pas

关于DEPHI7.0的网络聊天信息管理系统源代码

unit Setting;

interface

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

type
  TFormSetting = class(TForm)
    OKBTN: TBitBtn;
    ActionList1: TActionList;
    CheckPOP3Action: TAction;
    SendSTMPAction: TAction;
    Label11: TLabel;
    SMTPServer: TEdit;
    Label12: TLabel;
    SMTPPort: TEdit;
    AuthenticationTypeLabel: TLabel;
    AuthTypeCBO: TComboBox;
    AccountLabel: TLabel;
    AccountEdit: TEdit;
    PasswordLabel: TLabel;
    GroupBox1: TGroupBox;
    PasswordEdit: TMaskEdit;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    UserEdit: TEdit;
    NickNameEdit: TEdit;
    PassWordMEdit2: TMaskEdit;
    MailBoxEdit: TEdit;
    PassWordMEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    GroupBox3: TGroupBox;
    SocketIDCmb: TComboBox;
    BitBtn2: TBitBtn;
    procedure OKBTNClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSetting: TFormSetting;

implementation

uses main, Help;
{$R *.dfm}

procedure TFormSetting.OKBTNClick(Sender: TObject);
begin
  with myIni do begin
    WriteString('User', '用户名', UserEdit.Text);
    UserName := UserEdit.Text;

    WriteString('User', '妮称', NickNameEdit.Text);
    NickName := NickNameEdit.Text;

    WriteString('User', '密码', PassWordMEdit1.Text);
    UserPassword := PassWordMEdit1.Text;

    WriteString('User', '密码确认', PassWordMEdit2.Text);
    PasswordConfirmation := PassWordMEdit2.Text;

    WriteString('User', '默认邮箱', MailBoxEdit.Text);
    UserMailBox := MailBoxEdit.Text;

    WriteString('Socket', '端口号', SocketIDCmb.Text);
    SocketID := SocketIDCmb.Text;

    WriteString('Smtp', 'ServerName', SMTPServer.Text);
    SmtpServerName := SMTPServer.Text;

    WriteString('Smtp', 'ServerPort', SMTPPort.Text);
    SmtpServerPort := StrToIntDef(SMTPPort.Text, 110);

    WriteString('Smtp', 'ServerUser', AccountEdit.Text);
    SmtpServerUser := AccountEdit.Text;

    WriteString('Smtp', 'ServerPassword', PasswordEdit.Text);
    SmtpServerPassword := PasswordEdit.Text;

    WriteInteger('Smtp', 'SMTPAuthenticationType', AuthTypeCBO.ItemIndex);
    SmtpAuthType := AuthTypeCBO.ItemIndex;
  end;
  Self.Close;
end;

procedure TFormSetting.FormCreate(Sender: TObject);
begin
  with myIni do begin
    UserName := ReadString('User', '用户名','优利');
    UserEdit.Text := UserName;

    NickName := ReadString('User', '妮称','共享软件');
    NickNameEdit.Text := NickName;

    UserPassword := ReadString('User', '密码', '');
    PassWordMEdit1.Text := UserPassword;

    PasswordConfirmation := ReadString('User', '密码确认', '');
    PassWordMEdit2.Text := PasswordConfirmation;

    UserMailBox := ReadString('User', '默认邮箱', '[e-mail]');
    MailBoxEdit.Text := UserMailBox;

    SocketID := ReadString('Socket', '端口号', '5858');
    if SocketID = '5858' then SocketIDCmb.ItemIndex := 0
    else if SocketID = '5460' then SocketIDCmb.ItemIndex := 1
    else if SocketID = '5828' then SocketIDCmb.ItemIndex := 2
    else if SocketID = '5818' then SocketIDCmb.ItemIndex := 3
    else if SocketID = '5818' then SocketIDCmb.ItemIndex := 4
    else if SocketID = '5656' then SocketIDCmb.ItemIndex := 5
    else SocketIDCmb.ItemIndex := 6;

    SmtpServerName := ReadString('Smtp', 'ServerName', 'SMTP.263.net');
    SMTPServer.Text := SmtpServerName;

    SmtpServerPort := ReadInteger('Smtp', 'ServerPort', 25);
    SMTPPort.Text := InttoStr(SmtpServerPort);

    SmtpServerUser := ReadString('Smtp', 'ServerUser', '');
    AccountEdit.Text := SmtpServerUser;

    SmtpServerPassword := ReadString('Smtp', 'ServerPassword', '');
    PasswordEdit.Text := SmtpServerPassword;

    SmtpAuthType := ReadInteger('Smtp', 'SMTPAuthenticationType', 1);
    AuthTypeCBO.ItemIndex :=SmtpAuthType;
  end;
end;

procedure TFormSetting.BitBtn1Click(Sender: TObject);
begin
 Self.Close;
end;

procedure TFormSetting.BitBtn2Click(Sender: TObject);
begin
 FormHelp.Show;
end;

end.