main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Clever POP3 Server SSL / TLS'
  ClientHeight = 399
  ClientWidth = 488
  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 = 192
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label2: TLabel
    Left = 8
    Top = 112
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label3: TLabel
    Left = 8
    Top = 140
    Width = 39
    Height = 13
    Caption = 'Root Dir'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 457
    Height = 33
    AutoSize = False
    Caption = 
      'This is a sample POP3 SSL / TLS server. You can use any SSL-enab' +
      'led POP3 client (such as TclPop3 or MS Outlook client to connect' +
      ' to this server.'
    WordWrap = True
  end
  object Label5: TLabel
    Left = 8
    Top = 80
    Width = 375
    Height = 13
    Caption = 
      'Please use the "CleverTester" user name and "clevertester" passw' +
      'ord to log-in.'
    WordWrap = True
  end
  object Label6: TLabel
    Left = 8
    Top = 40
    Width = 456
    Height = 26
    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 Label7: TLabel
    Left = 152
    Top = 112
    Width = 81
    Height = 13
    Caption = 'SSL / TLS Mode'
  end
  object btnStart: TButton
    Left = 56
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 3
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 144
    Top = 176
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 4
    OnClick = btnStopClick
  end
  object memLog: TMemo
    Left = 0
    Top = 210
    Width = 488
    Height = 189
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 5
  end
  object edtPort: TEdit
    Left = 56
    Top = 112
    Width = 57
    Height = 21
    TabOrder = 0
    Text = '995'
  end
  object edtRootDir: TEdit
    Left = 56
    Top = 140
    Width = 409
    Height = 21
    TabOrder = 2
    Text = 'C:\CleverMailBox\'
  end
  object cbUseTls: TComboBox
    Left = 240
    Top = 112
    Width = 225
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 1
    TabOrder = 1
    Text = 'Implicit'
    Items.Strings = (
      'None'
      'Implicit'
      'Allow Explicit'
      'Require Explicit')
  end
  object clPop3FileHandler1: TclPop3FileHandler
    Server = clPop3Server1
    Left = 328
    Top = 168
  end
  object clPop3Server1: TclPop3Server
    ServerName = 'Clever Internet Suite POP3 service'
    OnStart = clPop3Server1Start
    OnStop = clPop3Server1Stop
    OnAcceptConnection = clPop3Server1AcceptConnection
    OnCloseConnection = clPop3Server1CloseConnection
    OnGetCertificate = clPop3Server1GetCertificate
    OnReceiveCommand = clPop3Server1ReceiveCommand
    OnSendResponse = clPop3Server1SendResponse
    UserAccounts = <
      item
        UserName = 'CleverTester'
        Password = 'clevertester'
        DisplayName = 'CleverTester'
      end>
    HelpText.Strings = (
      'Valid commands:'
      'USER,'
      'PASS,'
      'APOP,'
      'AUTH,'
      'QUIT,'
      'NOOP,'
      'HELP,'
      'STAT,'
      'RETR,'
      'TOP,'
      'DELE,'
      'RSET,'
      'LIST,'
      'UIDL,'
      'STLS')
    OnLoginAuthenticate = clPop3Server1LoginAuthenticate
    OnAPopAuthenticate = clPop3Server1APopAuthenticate
    Left = 288
    Top = 168
  end
  object clCertificateStore1: TclCertificateStore
    Left = 368
    Top = 168
  end
end