main.dfm

这是一套全面的网络组件

object MainForm: TMainForm
  Left = 247
  Top = 62
  BorderStyle = bsDialog
  Caption = 'Ftp Client'
  ClientHeight = 422
  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 Label1: TLabel
    Left = 11
    Top = 78
    Width = 37
    Height = 13
    Caption = 'IP/Host'
  end
  object Label2: TLabel
    Left = 11
    Top = 105
    Width = 22
    Height = 13
    Caption = 'User'
  end
  object Label4: TLabel
    Left = 216
    Top = 104
    Width = 46
    Height = 13
    Caption = 'Password'
  end
  object Label5: TLabel
    Left = 11
    Top = 132
    Width = 38
    Height = 13
    Caption = 'Start Dir'
  end
  object Label6: TLabel
    Left = 420
    Top = 78
    Width = 19
    Height = 13
    Caption = 'Port'
  end
  object Label7: TLabel
    Left = 11
    Top = 200
    Width = 62
    Height = 13
    Caption = 'Remote Host'
  end
  object Label8: TLabel
    Left = 8
    Top = 160
    Width = 89
    Height = 13
    Caption = 'Throttling, Bits/sec'
  end
  object Label3: TLabel
    Left = 16
    Top = 8
    Width = 337
    Height = 13
    Caption = 
      'This demo provides you with the ability to control the connectio' +
      'n speed.'
    WordWrap = True
  end
  object Label9: TLabel
    Left = 16
    Top = 32
    Width = 577
    Height = 33
    AutoSize = False
    Caption = 
      'Please use the BitsPerSec property of the TclFTP component to ch' +
      'ange the upper limit for throughput on the connection intercept.' +
      ' Zero value for this property switches off .'
    WordWrap = True
  end
  object ProgressBar: TProgressBar
    Left = 0
    Top = 405
    Width = 609
    Height = 17
    Align = alBottom
    TabOrder = 10
  end
  object edtServer: TEdit
    Left = 53
    Top = 74
    Width = 356
    Height = 21
    TabOrder = 0
    Text = 'localhost'
  end
  object edtPort: TEdit
    Left = 448
    Top = 74
    Width = 67
    Height = 21
    TabOrder = 1
    Text = '21'
  end
  object edtUser: TEdit
    Left = 53
    Top = 101
    Width = 137
    Height = 21
    TabOrder = 2
    Text = 'clevertester'
  end
  object edtPassword: TEdit
    Left = 272
    Top = 101
    Width = 137
    Height = 21
    TabOrder = 3
    Text = 'clevertester'
  end
  object edtStartDir: TEdit
    Left = 53
    Top = 128
    Width = 356
    Height = 21
    TabOrder = 4
  end
  object cbPassiveMode: TCheckBox
    Left = 418
    Top = 103
    Width = 97
    Height = 17
    Caption = 'Passive Mode'
    TabOrder = 5
  end
  object cbAsciiMode: TCheckBox
    Left = 418
    Top = 130
    Width = 97
    Height = 17
    Caption = 'Ascii Mode'
    TabOrder = 6
  end
  object btnLogin: TButton
    Left = 527
    Top = 78
    Width = 75
    Height = 25
    Caption = 'Login'
    TabOrder = 11
    OnClick = btnLoginClick
  end
  object btnLogout: TButton
    Left = 527
    Top = 108
    Width = 75
    Height = 25
    Caption = 'Logout'
    TabOrder = 12
    OnClick = btnLogoutClick
  end
  object btnOpenDir: TButton
    Left = 527
    Top = 154
    Width = 75
    Height = 25
    Caption = 'Open Dir'
    TabOrder = 13
    OnClick = btnOpenDirClick
  end
  object btnGoUp: TButton
    Left = 527
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Go Up'
    TabOrder = 14
    OnClick = btnGoUpClick
  end
  object btnDownload: TButton
    Left = 527
    Top = 226
    Width = 75
    Height = 25
    Caption = 'Download...'
    TabOrder = 15
    OnClick = btnDownloadClick
  end
  object btnUpload: TButton
    Left = 527
    Top = 256
    Width = 75
    Height = 25
    Caption = 'Upload...'
    TabOrder = 16
    OnClick = btnUploadClick
  end
  object btnAbort: TButton
    Left = 527
    Top = 374
    Width = 75
    Height = 25
    Caption = 'Abort'
    TabOrder = 17
    OnClick = btnAbortClick
  end
  object lbList: TListBox
    Left = 7
    Top = 224
    Width = 510
    Height = 173
    ItemHeight = 13
    Sorted = True
    TabOrder = 9
    OnDblClick = btnOpenDirClick
  end
  object edtBitsPerSec: TEdit
    Left = 112
    Top = 160
    Width = 233
    Height = 21
    TabOrder = 7
    Text = '3000000'
  end
  object btnApply: TButton
    Left = 352
    Top = 160
    Width = 57
    Height = 25
    Caption = 'Apply'
    TabOrder = 8
    OnClick = btnApplyClick
  end
  object clFTP: TclFtp
    OnProgress = clFTPProgress
    OnDirectoryListing = clFTPDirectoryListing
    Left = 290
    Top = 194
  end
  object OpenDialog: TOpenDialog
    Options = [ofHideReadOnly, ofFileMustExist, ofEnableSizing]
    Left = 402
    Top = 196
  end
  object SaveDialog: TSaveDialog
    Left = 352
    Top = 198
  end
end