main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 192
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Clever FTP Server'
  ClientHeight = 385
  ClientWidth = 438
  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 = 136
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label3: TLabel
    Left = 8
    Top = 84
    Width = 39
    Height = 13
    Caption = 'Root Dir'
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 387
    Height = 13
    Caption = 
      'This is a sample FTP server. You can use any FTP client to conne' +
      'ct to this server.'
    WordWrap = True
  end
  object Label5: TLabel
    Left = 8
    Top = 32
    Width = 375
    Height = 13
    Caption = 
      'Please use the "CleverTester" user name and "clevertester" passw' +
      'ord to log-in.'
    WordWrap = True
  end
  object btnStart: TButton
    Left = 56
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Start'
    TabOrder = 2
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 144
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Stop'
    TabOrder = 3
    OnClick = btnStopClick
  end
  object memLog: TMemo
    Left = 0
    Top = 155
    Width = 438
    Height = 230
    Align = alBottom
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 4
  end
  object edtPort: TEdit
    Left = 56
    Top = 56
    Width = 161
    Height = 21
    TabOrder = 0
    Text = '21'
  end
  object edtRootDir: TEdit
    Left = 56
    Top = 84
    Width = 353
    Height = 21
    TabOrder = 1
    Text = 'C:\CleverFtpServer\'
  end
  object clFtpServer1: TclFtpServer
    ServerName = 'Clever Internet Suite FTP service'
    OnStart = clFtpServer1Start
    OnStop = clFtpServer1Stop
    OnAcceptConnection = clFtpServer1AcceptConnection
    OnCloseConnection = clFtpServer1CloseConnection
    OnReceiveCommand = clFtpServer1ReceiveCommand
    OnSendResponse = clFtpServer1SendResponse
    UserAccounts = <
      item
        UserName = 'CleverTester'
        Password = 'clevertester'
        DisplayName = 'Clever Tester'
        ReadOnlyAccess = False
      end>
    CaseInsensitive = True
    AllowAnonymousAccess = True
    OnAuthenticate = clFtpServer1Authenticate
    Left = 232
    Top = 112
  end
  object clFtpFileHandler1: TclFtpFileHandler
    Server = clFtpServer1
    Left = 272
    Top = 112
  end
end