ftpunit.dfm

著名的SecureBlackBox控件完整源码

object FTPForm: TFTPForm
  Left = 192
  Top = 114
  Width = 566
  Height = 483
  Caption = 'Sample FTPS client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter: TSplitter
    Left = 0
    Top = 312
    Width = 558
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object lvLog: TListView
    Left = 0
    Top = 315
    Width = 558
    Height = 114
    Align = alBottom
    Columns = <
      item
        Caption = 'Timestamp'
        Width = 100
      end
      item
        Caption = 'Event'
        Width = 400
      end>
    ReadOnly = True
    RowSelect = True
    SmallImages = imgLog
    TabOrder = 0
    ViewStyle = vsReport
  end
  object pClient: TPanel
    Left = 0
    Top = 0
    Width = 558
    Height = 312
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object memoOutput: TMemo
      Left = 0
      Top = 129
      Width = 558
      Height = 183
      Align = alClient
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
      WordWrap = False
    end
    object pnlCommands: TPanel
      Left = 0
      Top = 0
      Width = 558
      Height = 129
      Align = alTop
      BevelOuter = bvNone
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object Label1: TLabel
        Left = 8
        Top = 88
        Width = 100
        Height = 13
        Caption = 'Command parameter:'
      end
      object Label2: TLabel
        Left = 8
        Top = 112
        Width = 234
        Height = 13
        Caption = 'Parameter is used for file and directory operations.'
      end
      object editCmdParam: TEdit
        Left = 112
        Top = 84
        Width = 233
        Height = 21
        TabOrder = 0
      end
      object btnConnect: TButton
        Left = 0
        Top = 0
        Width = 75
        Height = 23
        Hint = 'Connect to remote host'
        Caption = 'Connect'
        TabOrder = 1
        OnClick = btnConnectClick
      end
      object btnDisconnect: TButton
        Left = 80
        Top = 0
        Width = 75
        Height = 23
        Hint = 'Close connection'
        Caption = 'Disconnect'
        TabOrder = 2
        OnClick = btnDisconnectClick
      end
      object btnPWD: TButton
        Left = 0
        Top = 24
        Width = 75
        Height = 23
        Hint = 'Print working directory'
        Caption = 'PWD '
        TabOrder = 3
        OnClick = btnPWDClick
      end
      object btnCWD: TButton
        Left = 80
        Top = 24
        Width = 75
        Height = 23
        Hint = 
          'Change working directory. Specify command parameter before press' +
          'ing this button.'
        Caption = 'CWD'
        TabOrder = 4
        OnClick = btnCWDClick
      end
      object btnCDUp: TButton
        Left = 160
        Top = 24
        Width = 75
        Height = 23
        Hint = 'Go to parent directory.'
        Caption = 'CDUp'
        TabOrder = 5
        OnClick = btnCDUpClick
      end
      object btnList: TButton
        Left = 240
        Top = 24
        Width = 75
        Height = 23
        Hint = 'List contents of current directory'
        Caption = 'List dir'
        TabOrder = 6
        OnClick = btnListClick
      end
      object btnMKD: TButton
        Left = 320
        Top = 24
        Width = 75
        Height = 23
        Hint = 
          'Create directory. Specify directory name as a command parameter ' +
          'before pressing this button.'
        Caption = 'Create dir'
        TabOrder = 7
        OnClick = btnMKDClick
      end
      object btnRMD: TButton
        Left = 400
        Top = 24
        Width = 75
        Height = 23
        Hint = 
          'Remove directory. Specify directory name as a command parameter ' +
          'before pressing this button.'
        Caption = 'Remove dir'
        TabOrder = 8
        OnClick = btnRMDClick
      end
      object btnDownload: TButton
        Left = 0
        Top = 48
        Width = 75
        Height = 23
        Hint = 
          'Download file. Specify remote file name as a command parameter b' +
          'efore pressing this button.'
        Caption = 'Download'
        TabOrder = 9
        OnClick = btnDownloadClick
      end
      object btnUpload: TButton
        Left = 80
        Top = 48
        Width = 75
        Height = 23
        Hint = 
          'Upload file. Specify remote file name as a command parameter bef' +
          'ore pressing this button.'
        Caption = 'Upload'
        TabOrder = 10
        OnClick = btnUploadClick
      end
      object btnDelete: TButton