ftp_api.dfm

< Delphi网络通信协议分析与应用实现>>一书的源代码。

object FTPMain: TFTPMain
  Left = 34
  Top = 265
  Width = 739
  Height = 388
  Caption = 'FTP'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter2: TSplitter
    Left = 0
    Top = 264
    Width = 731
    Height = 4
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 731
    Height = 29
    ButtonHeight = 21
    Caption = 'ToolBar1'
    TabOrder = 0
    object drive1: TDriveComboBox
      Left = 0
      Top = 3
      Width = 109
      Height = 19
      TabOrder = 3
      OnChange = drive1Change
    end
    object SbtnConnect: TSpeedButton
      Left = 109
      Top = 2
      Width = 25
      Height = 21
      Hint = #36830#25509'FTP'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FF00FFF00000
        000F00B30078A777777077B3077FFFFFFF70FF70FF7000000070FF70FF788888
        880FF000007F0777780F78A7777F0666780F7FFFFF7F0E66780F7000007F0000
        080F7888887FFFFFFF0F7F4444477777777F7F0CCC480FFFFFFF7F0ECC480FFF
        FFFF7F0000480FFFFFFF7FFFFFFF0FFFFFFFF77777777FFFFFFF}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbtnConnectClick
    end
    object SbtnDisconn: TSpeedButton
      Left = 134
      Top = 2
      Width = 23
      Height = 21
      Hint = #26029#24320'FTP'
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFF99FF99FFFFFFFFFFF9999FFFFFFFFFFFFF99FFFFFFF000000999900
        00008888899879988888FFFFFFF80FFFFFFFFFFFFFF00FFFFFFFF00000000000
        00FF78FFFFFFFFFF870F78777777777787707888888888888770788888888882
        A7707FFFFFFFFFFFF770F788888888888870FF7777777777777F}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbtnDisconnClick
    end
    object ToolButton2: TToolButton
      Left = 157
      Top = 2
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object SbtnMakedir: TSpeedButton
      Left = 165
      Top = 2
      Width = 23
      Height = 21
      Hint = #21019#24314#30446#24405
      Glyph.Data = {
        DE000000424DDE0000000000000076000000280000000D0000000D0000000100
        04000000000068000000C40E0000C40E00001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        F000FFFFFFFFFFFFF000F00000000000F000088888888880F0000BFBFBFBFBF0
        F0000FBFBFBFBFB0F0000BFBFBFBFBF0F0000FBFBFBFBFB0F0000BFBFBFBFBF0
        F0000000000000000000F0BFBF0FF00FF000FF0000FFF0F0F000FFFFFFFFF0FF
        0000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SbtnMakedirClick
    end
    object SbtnDown: TSpeedButton
      Left = 188
      Top = 2
      Width = 23
      Height = 21
      Hint = #19979#36733#25991#20214
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
        333333333337F3333333333333397333333333333337FF333333333333C94333
        3333333333737F333333333333C9473333333333337373F3333333333CC94433
        3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
        333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
        33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
        4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
        443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
        444377733337F333777FC3333339333337437333333733333373}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SbtnDownClick
    end
    object SbtnUpload: TSpeedButton
      Left = 211
      Top = 2
      Width = 23
      Height = 21
      Hint = #19978#36733#25991#20214
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
        337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
        4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
        44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
        473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
        7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
        33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
        33333333333737F333333333333C943333333333333737333333333333339733
        3333333333337F33333333333333933333333333333373333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SbtnUploadClick
    end
    object ToolButton1: TToolButton
      Left = 234
      Top = 2
      Width = 8
      Caption = 'ToolButton1'
      Style = tbsSeparator
    end
    object SbtnRemoteUpdateList: TSpeedButton
      Left = 242
      Top = 2
      Width = 23
      Height = 21
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
        333337F3333333333333303333333333333337F33FFFFF3FF3FF303300000300
        300337FF77777F77377330000BBB0333333337777F337F33333330330BB00333
        333337F373F773333333303330033333333337F3377333333333303333333333
        333337F33FFFFF3FF3FF303300000300300337FF77777F77377330000BBB0333
        333337777F337F33333330330BB00333333337F373F773333333303330033333
        333337F3377333333333303333333333333337FFFF3FF3FFF333000003003000
        333377777F77377733330BBB0333333333337F337F33333333330BB003333333
        333373F773333333333330033333333333333773333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 265
      Top = 2
      Width = 13
      Caption = 'ToolButton3'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object Label3: TLabel
      Left = 278
      Top = 2
      Width = 15
      Height = 21
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'IP'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object EditIP: TEdit
      Left = 293
      Top = 2
      Width = 112
      Height = 21
      TabOrder = 2
      OnKeyPress = EditIPKeyPress
    end
    object Label2: TLabel
      Left = 405
      Top = 2
      Width = 38
      Height = 21
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'User'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object EditUser: TEdit
      Left = 443
      Top = 2
      Width = 54
      Height = 21
      TabOrder = 1
    end
    object Label1: TLabel
      Left = 497
      Top = 2
      Width = 35
      Height = 21
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'Pass'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object EditPass: TEdit
      Left = 532
      Top = 2
      Width = 51
      Height = 21
      TabOrder = 0
    end
    object ToolButton4: TToolButton
      Left = 583
      Top = 2
      Width = 14
      Caption = 'ToolButton4'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object ckAnonymous: TCheckBox
      Left = 597
      Top = 2
      Width = 54
      Height = 21
      Caption = #21311#21517
      TabOrder = 4
      OnClick = ckAnonymousClick
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 268
    Width = 731
    Height = 74
    Align = alBottom
    TabOrder = 1
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 342
    Width = 731
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 731
    Height = 235
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 3
    object Splitter1: TSplitter
      Left = 362
      Top = 1
      Width = 4
      Height = 233
      Cursor = crHSplit
    end
    object GBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 361
      Height = 233
      Align = alLeft
      TabOrder = 0
      object LView1: TListView
        Left = 2
        Top = 15
        Width = 357
        Height = 216
        Align = alClient
        Columns = <>
        MultiSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnCustomDrawItem = LView1CustomDrawItem
        OnDblClick = LView1DblClick
      end
    end
    object GBox2: TGroupBox
      Left = 366
      Top = 1
      Width = 364
      Height = 233
      Align = alClient
      TabOrder = 1
      object LView2: TListView
        Left = 2
        Top = 15
        Width = 360
        Height = 216
        Align = alClient
        Columns = <>
        MultiSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnCustomDrawItem = LView2CustomDrawItem
        OnDblClick = LView2DblClick
      end
    end
  end
  object ImageList1: TImageList
    Left = 156
    Top = 88
  end
end