main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 247
  Top = 62
  BorderStyle = bsDialog
  Caption = 'Ftp Client SSL / TLS'
  ClientHeight = 427
  ClientWidth = 609
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 15
    Top = 294
    Width = 18
    Height = 13
    Caption = 'Log'
  end
  object Label1: TLabel
    Left = 11
    Top = 14
    Width = 37
    Height = 13
    Caption = 'IP/Host'
  end
  object Label2: TLabel
    Left = 11
    Top = 41
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label4: TLabel
    Left = 216
    Top = 40
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object Label5: TLabel
    Left = 11
    Top = 68
    Width = 38
    Height = 13
    Caption = 'Start Dir'
  end
  object Label6: TLabel
    Left = 420
    Top = 14
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label7: TLabel
    Left = 11
    Top = 120
    Width = 62
    Height = 13
    Caption = 'Remote Host'
  end
  object memLog: TMemo
    Left = 7
    Top = 313
    Width = 511
    Height = 89
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 9
  end
  object ProgressBar: TProgressBar
    Left = 0
    Top = 410
    Width = 609
    Height = 17
    Align = alBottom
    TabOrder = 10
  end
  object edtServer: TEdit
    Left = 53
    Top = 10
    Width = 356
    Height = 21
    TabOrder = 0
    Text = 'localhost'
  end
  object edtPort: TEdit
    Left = 448
    Top = 10
    Width = 67
    Height = 21
    TabOrder = 1
    Text = '990'
  end
  object edtUser: TEdit
    Left = 53
    Top = 37
    Width = 137
    Height = 21
    TabOrder = 2
    Text = 'clevertester'
  end
  object edtPassword: TEdit
    Left = 272
    Top = 37
    Width = 137
    Height = 21
    TabOrder = 3
    Text = 'clevertester'
  end
  object edtStartDir: TEdit
    Left = 53
    Top = 64
    Width = 356
    Height = 21
    TabOrder = 4
  end
  object cbPassiveMode: TCheckBox
    Left = 418
    Top = 39
    Width = 97
    Height = 17
    Caption = 'Passive Mode'
    Checked = True
    Enabled = False
    State = cbChecked
    TabOrder = 5
  end
  object cbAsciiMode: TCheckBox
    Left = 418
    Top = 66
    Width = 97
    Height = 17
    Caption = 'Ascii Mode'
    TabOrder = 6
  end
  object btnLogin: TButton
    Left = 527
    Top = 14
    Width = 75
    Height = 25
    Caption = 'Login'
    TabOrder = 11
    OnClick = btnLoginClick
  end
  object btnLogout: TButton
    Left = 527
    Top = 44
    Width = 75
    Height = 25
    Caption = 'Logout'
    TabOrder = 12
    OnClick = btnLogoutClick
  end
  object btnOpenDir: TButton
    Left = 527
    Top = 90
    Width = 75
    Height = 25
    Caption = 'Open Dir'
    TabOrder = 13
    OnClick = btnOpenDirClick
  end
  object btnGoUp: TButton
    Left = 527
    Top = 120
    Width = 75
    Height = 25
    Caption = 'Go Up'
    TabOrder = 14
    OnClick = btnGoUpClick
  end
  object btnMakeDir: TButton
    Left = 527
    Top = 158
    Width = 75
    Height = 25
    Caption = 'Make Dir...'
    TabOrder = 15
    OnClick = btnMakeDirClick
  end
  object btnRemoveDir: TButton
    Left = 527
    Top = 188
    Width = 75
    Height = 25
    Caption = 'Remove Dir'
    TabOrder = 16
    OnClick = btnRemoveDirClick
  end
  object btnDownload: TButton
    Left = 527
    Top = 226
    Width = 75
    Height = 25
    Caption = 'Download...'
    TabOrder = 17
    OnClick = btnDownloadClick
  end
  object btnUpload: TButton
    Left = 527
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Upload...'
    TabOrder = 18
    OnClick = btnUploadClick
  end
  object btnDeleteFile: TButton
    Left = 527
    Top = 294
    Width = 75
    Height = 25
    Caption = 'Delete File'
    TabOrder = 19
    OnClick = btnDeleteFileClick
  end
  object btnRename: TButton
    Left = 527
    Top = 323
    Width = 75
    Height = 25
    Caption = 'Rename...'
    TabOrder = 20
    OnClick = btnRenameClick
  end
  object btnAbort: TButton
    Left = 527
    Top = 374
    Width = 75
    Height = 25
    Caption = 'Abort'
    TabOrder = 21
    OnClick = btnAbortClick
  end
  object lbList: TListBox
    Left = 7
    Top = 144
    Width = 510
    Height = 145
    ItemHeight = 13
    Sorted = True
    TabOrder = 8
    OnDblClick = btnOpenDirClick
  end
  object cbUseTLS: TCheckBox
    Left = 56
    Top = 96
    Width = 97
    Height = 17
    Caption = 'Use SSL / TLS'
    Checked = True
    State = cbChecked
    TabOrder = 7
    OnClick = cbUseTLSClick
  end
  object clFTP: TclFtp
    OnVerifyServer = clFTPVerifyServer
    OnSendCommand = clFTPSendCommand
    OnReceiveResponse = clFTPReceiveResponse
    OnProgress = clFTPProgress
    OnDirectoryListing = clFTPDirectoryListing
    Left = 274
    Top = 170
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 434
    Top = 172
  end
  object SaveDialog: TSaveDialog
    Left = 352
    Top = 174
  end
end