main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Clever SMTP Server'
  ClientHeight = 415
  ClientWidth = 437
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 296
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label2: TLabel
    Left = 8
    Top = 136
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label3: TLabel
    Left = 8
    Top = 164
    Width = 52
    Height = 13
    Caption = 'Mailbox Dir'
  end
  object Label5: TLabel
    Left = 16
    Top = 96
    Width = 378
    Height = 26
    Caption = 
      'Please use the "CleverTester" user name and "clevertester" passw' +
      'ord to log-in. The user e-mail: [e-mail]'
    WordWrap = True
  end
  object Label6: TLabel
    Left = 8
    Top = 188
    Width = 43
    Height = 13
    Caption = 'Relay Dir'
  end
  object Label7: TLabel
    Left = 184
    Top = 136
    Width = 81
    Height = 13
    Caption = 'SSL / TLS Mode'
  end
  object Label4: TLabel
    Left = 12
    Top = 8
    Width = 413
    Height = 33
    AutoSize = False
    Caption = 
      'This is a sample SMTP SSL / TLS server. You can use any SSL-enab' +
      'led SMTP client (such as TclSmtp or MS Outlook client to connect' +
      ' to this server.'
    WordWrap = True
  end
  object Label8: TLabel
    Left = 13
    Top = 48
    Width = 402
    Height = 39
    Caption = 
      'This server uses self-signed server certificate to establish the' +
      ' SSL connection. In real application you will need to request a ' +
      'certificate from trusted issuer or use your own self-signed cert' +
      'ificate.'
    WordWrap = True
  end
  object btnStart: TButton
    Left = 72
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 5
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 160
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 6
    OnClick = btnStopClick
  end
  object memLog: TMemo
    Left = 0
    Top = 320
    Width = 437
    Height = 95
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 7
  end
  object edtPort: TEdit
    Left = 72
    Top = 136
    Width = 49
    Height = 21
    TabOrder = 0
    Text = '25'
  end
  object edtMailboxDir: TEdit
    Left = 72
    Top = 164
    Width = 345
    Height = 21
    TabOrder = 2
    Text = 'C:\CleverMailBox\'
  end
  object edtRelayDir: TEdit
    Left = 72
    Top = 188
    Width = 345
    Height = 21
    TabOrder = 3
    Text = 'C:\CleverMailBox\RelayQueue\'
  end
  object GroupBox1: TGroupBox
    Left = 72
    Top = 216
    Width = 281
    Height = 57
    Caption = 'Client Authentication mode'
    TabOrder = 4
    object cbUseLogin: TCheckBox
      Left = 24
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Use Plain Text'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object cbUseSPA: TCheckBox
      Left = 168
      Top = 24
      Width = 97
      Height = 17
      Caption = 'Use CRAM-MD5'
      TabOrder = 1
    end
  end
  object cbUseTls: TComboBox
    Left = 280
    Top = 136
    Width = 137
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 3
    TabOrder = 1
    Text = 'Require Explicit'
    Items.Strings = (
      'None'
      'Implicit'
      'Allow Explicit'
      'Require Explicit')
  end
  object clSmtpServer1: TclSmtpServer
    ServerName = 'Clever Internet Suite SMTP service'
    OnStart = clSmtpServer1Start
    OnStop = clSmtpServer1Stop
    OnAcceptConnection = clSmtpServer1AcceptConnection
    OnCloseConnection = clSmtpServer1CloseConnection
    OnGetCertificate = clSmtpServer1GetCertificate
    OnReceiveCommand = clSmtpServer1ReceiveCommand
    OnSendResponse = clSmtpServer1SendResponse
    UserAccounts = <
      item
        UserName = 'CleverTester'
        Password = 'clevertester'
        DisplayName = 'CleverTester'
        Email = '[e-mail]'
      end>
    HelpText.Strings = (
      'Commands Supported:'
      'HELO EHLO AUTH HELP QUIT MAIL NOOP RSET RCPT DATA STARTTLS')
    OnLoginAuthenticate = clSmtpServer1LoginAuthenticate
    OnCramMD5Authenticate = clSmtpServer1CramMD5Authenticate
    Left = 288
    Top = 280
  end
  object clSmtpFileHandler1: TclSmtpFileHandler
    Server = clSmtpServer1
    Left = 336
    Top = 280
  end
  object clCertificateStore1: TclCertificateStore
    Left = 384
    Top = 280
  end
end