Ftp客户端

开发平台：

Delphi

FTPClientUnit.dfm：源码内容

							object FTPClientForm: TFTPClientForm
  Left = 383
  Top = 149
  Width = 870
  Height = 640
  Caption = 'FTP client'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 345
    Top = 0
    Width = 8
    Height = 563
    AutoSnap = False
    Beveled = True
  end
  object FolderTreeExplorer1: TFolderTreeExplorer
    Left = 0
    Top = 0
    Width = 345
    Height = 563
    FileSystem = FTPFileSystem1
    Align = alLeft
    HideSelection = False
    Indent = 19
    TabOrder = 0
  end
  object FileListExplorer1: TFileListExplorer
    Left = 353
    Top = 0
    Width = 509
    Height = 563
    FileSystem = FTPFileSystem1
    DragAcceptFiles = True
    Align = alClient
    MultiSelect = True
    ReadOnly = False
    AdditionalPopupMenu = PopupMenu1
    TabOrder = 1
    OnDblClick = FileListExplorer1DblClick
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 563
    Width = 862
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object FTPFileSystem1: TFTPFileSystem
    LoginDialog = FTPLoginDialog1
    OnEcho = FTPFileSystem1Echo
    Left = 96
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 96
    Top = 32
    object File1: TMenuItem
      Caption = 'File'
      object Connect1: TMenuItem
        Caption = 'Connect'
        OnClick = Connect1Click
      end
      object Disconnect1: TMenuItem
        Caption = 'Disconnect'
        OnClick = Disconnect1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 96
    Top = 128
    object DownloadFile1: TMenuItem
      Caption = 'Download file...'
      OnClick = DownloadFile1Click
    end
    object Openfile1: TMenuItem
      Caption = 'Open file'
      OnClick = Openfile1Click
    end
  end
  object LocalFileSystem1: TLocalFileSystem
    Left = 128
    Top = 64
  end
  object FileSystemSaveDialog1: TFileSystemSaveDialog
    FileSystem = LocalFileSystem1
    Filters = 'All files|*.*'
    Options = [soResize]
    Left = 128
    Top = 96
  end
  object FTPLoginDialog1: TFTPLoginDialog
    Left = 96
    Top = 96
  end
end

						