account.pas

这是一套全面的网络组件

unit Account;

interface

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

type
  TAccountDialog = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    edPort: TEdit;
    edTimeout: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    cbSPA: TCheckBox;
    cbSSL: TCheckBox;
    edServer: TEdit;
    edUser: TEdit;
    edPassword: TEdit;
    Label2: TLabel;
    edEMail: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AccountDialog: TAccountDialog;

implementation

uses AccData;

{$R *.DFM}

procedure TAccountDialog.FormCreate(Sender: TObject);
begin
  with TAccountData.Create do try
    edEMail.Text := EMail;
    edServer.Text := Server;
    edUser.Text := Login;
    edPassword.Text := Password;
    cbSPA.Checked := UseSPA;
    cbSSL.Checked := UseSSL;
    edPort.Text := IntToStr(Port);
    edTimeout.Text := IntToStr(Timeout);
  finally
    Free;
  end;
end;

procedure TAccountDialog.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if (ModalResult = mrOk) then with TAccountData.Create do try
    try
      StrToInt(edPort.Text);
    except
      raise Exception.Create('Invalid port number.');
    end;
    try
      StrToInt(edTimeout.Text);
    except
      raise Exception.Create('Invalid timeout value.');
    end;
    EMail := edEMail.Text;
    Server := edServer.Text;
    Login := edUser.Text;
    Password := edPassword.Text;
    UseSSL := cbSSL.Checked;
    UseSPA := cbSPA.Checked;
    Port := StrToInt(edPort.Text);
    Timeout := StrToInt(edTimeout.Text);
  finally
    Free;
  end;
end;

end.