main.dfm

这是一套全面的网络组件

object CleverFtpService: TCleverFtpService
  OldCreateOrder = False
  DisplayName = 'CleverFtpService'
  ShareProcess = True
  UseSynchronizer = False
  OnStart = NtServiceStart
  OnStop = NtServiceStop
  ServiceName = 'CleverFtpService'
  FailureActions = <>
  Left = 248
  Top = 114
  Height = 150
  Width = 215
  StartedByScm = 'C155395F-40E2B85E'
  object clFtpServer1: TclFtpServer
    ServerName = 'Clever Internet Suite FTP service'
    RootDir = 'C:\CleverFtpServer'
    UserAccounts = <
      item
        UserName = 'CleverTester'
        Password = 'clevertester'
        DisplayName = 'CleverTester'
        ReadOnlyAccess = False
      end>
    CaseInsensitive = True
    AllowAnonymousAccess = True
    Left = 48
    Top = 16
  end
  object clFtpFileHandler1: TclFtpFileHandler
    Server = clFtpServer1
    Left = 128
    Top = 16
  end
end