unit1.~dfm

使用delphi6开发的TCP/IP下文件服务器程序

object Form1: TForm1
  Left = 168
  Top = 142
  Width = 544
  Height = 375
  Caption = 'Winsocket'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 536
    Height = 329
    Align = alClient
    Caption = 'Local/Remote Information'
    TabOrder = 0
    object GroupBox2: TGroupBox
      Left = 353
      Top = 14
      Width = 181
      Height = 313
      Align = alClient
      Caption = 'Search........'
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 40
        Width = 54
        Height = 12
        Caption = 'filename:'
      end
      object Label_Result: TLabel
        Left = 8
        Top = 104
        Width = 42
        Height = 12
        Caption = 'Result:'
      end
      object Edit_filename: TEdit
        Left = 64
        Top = 36
        Width = 105
        Height = 18
        Ctl3D = False
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ParentCtl3D = False
        TabOrder = 0
      end
      object GO: TButton
        Left = 88
        Top = 72
        Width = 73
        Height = 17
        Caption = 'GO'
        TabOrder = 1
        OnClick = GOClick
        OnKeyDown = GOKeyDown
      end
      object ListBox1: TListBox
        Left = 2
        Top = 139
        Width = 177
        Height = 172
        Align = alBottom
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        ItemHeight = 12
        TabOrder = 2
      end
    end
    object PageControl1: TPageControl
      Left = 2
      Top = 14
      Width = 351
      Height = 313
      ActivePage = TabSheet2
      Align = alLeft
      TabIndex = 1
      TabOrder = 1
      object TabSheet1: TTabSheet
        Caption = 'Local'
        object DirectoryListBox: TDirectoryListBox
          Left = 0
          Top = 0
          Width = 343
          Height = 286
          Align = alClient
          ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
          ItemHeight = 16
          TabOrder = 0
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Remote'
        ImageIndex = 1
        object TreeView: TTreeView
          Left = 0
          Top = 0
          Width = 343
          Height = 286
          Align = alClient
          AutoExpand = True
          Images = ImageList1
          Indent = 19
          TabOrder = 0
          OnChange = TreeViewChange
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 440
    object Listen1: TMenuItem
      Caption = 'Connect '
      object listenItem: TMenuItem
        Caption = 'listen'
        OnClick = listenItemClick
      end
      object connectItem: TMenuItem
        Caption = 'connect'
        OnClick = connectItemClick
      end
      object disconnectItem: TMenuItem
        Caption = 'disconnect'
      end
      object exitItem: TMenuItem
        Caption = 'exit'
        OnClick = exitItemClick
      end
    end
    object Searchseting1: TMenuItem
      Caption = 'Search'
      object DirSetting1: TMenuItem
        Caption = 'Dir Setting'
        OnClick = DirSetting1Click
      end
      object ShowDirInfo1: TMenuItem
        Caption = 'GetDirInfo'
        OnClick = ShowDirInfo1Click
      end
    end
  end
  object ClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1001
    OnRead = ClientSocketRead
    Left = 504
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 1001
    ServerType = stNonBlocking
    OnAccept = ServerSocketAccept
    OnClientRead = ServerSocketClientRead
    Left = 472
  end
  object ImageList1: TImageList
    Left = 392
    Top = 65528
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001002000000000000010
      00000000000000000000000000000000000000000000131311AB150F141C0000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000000000190000002B000000130000
      0007000000010000000200000002000000020000000200000002000000020000
      0002000000020000000200000002000000020000000000000000000000000000
      0000000000000000000008080800080808000808080000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000054C0BFC5FFFFEEA8FFFFB2
      7FFFA9715BF21A12136500000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000037D2D3D4FF776049FFAC95
      7CFF8F806FC0766B62470000000D000000030000000100000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000084FFA50000C6390000C6390000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000001CB1B5BCFFFFBC76FFF5BA
      7FFFFFE7A9FFFFEBABFFFFCE8FFFE79E78FF6A4E41B92924232A000000000000
      00000000000000000000000000000000000000000023FFFFFFFF7C644EFFD7B2
      89FFEBC39BFFE5BF98FFC3A584FFAE947FFA937D729C4E49432B0000000A0000
      0002000000020000000200000002000000020000000000000000000000000808
      0800080808000000000084FFA50052FF7B0000C6390000000000080808000808
      0800000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000001CB5B8C2FFFFDF9EFFFDC6
      8FFFFFDAA3FFFED49BFFFCBE84FFFCCE91FFFFDB9BFFFFD794FFFFC38DFFB884
      6AFE281F1E770005070300000000000000000000002EFFFFFFFF776A59FFD7AF
      87FFD8B38AFFD6AF87FFD7AF88FFE7BE95FFF1C69EFFDEB992FFBFA283FFA490