main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Clever SMTP Server'
  ClientHeight = 390
  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 = 240
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label2: TLabel
    Left = 8
    Top = 80
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label3: TLabel
    Left = 8
    Top = 108
    Width = 52
    Height = 13
    Caption = 'Mailbox Dir'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 333
    Height = 26
    Caption = 
      'This is a sample SMTP server. You can use any mail client with S' +
      'MTP support to connect to this server.'
    WordWrap = True
  end
  object Label5: TLabel
    Left = 8
    Top = 40
    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 = 132
    Width = 43
    Height = 13
    Caption = 'Relay Dir'
  end
  object btnStart: TButton
    Left = 72
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 4
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 160
    Top = 224
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 5
    OnClick = btnStopClick
  end
  object memLog: TMemo
    Left = 0
    Top = 264
    Width = 437
    Height = 126
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 6
  end
  object edtPort: TEdit
    Left = 72
    Top = 80
    Width = 49
    Height = 21
    TabOrder = 0
    Text = '25'
  end
  object edtMailboxDir: TEdit
    Left = 72
    Top = 108
    Width = 345
    Height = 21
    TabOrder = 1
    Text = 'C:\CleverMailBox\'
  end
  object edtRelayDir: TEdit
    Left = 72
    Top = 132
    Width = 345
    Height = 21
    TabOrder = 2
    Text = 'C:\CleverMailBox\RelayQueue\'
  end
  object GroupBox1: TGroupBox
    Left = 72
    Top = 160
    Width = 281
    Height = 57
    Caption = 'Client Authentication mode'
    TabOrder = 3
    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 clSmtpServer1: TclSmtpServer
    ServerName = 'Clever Internet Suite SMTP service'
    OnStart = clSmtpServer1Start
    OnStop = clSmtpServer1Stop
    OnAcceptConnection = clSmtpServer1AcceptConnection
    OnCloseConnection = clSmtpServer1CloseConnection
    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 = 384
    Top = 168
  end
  object clSmtpFileHandler1: TclSmtpFileHandler
    Server = clSmtpServer1
    Left = 384
    Top = 200
  end
end