unit1.dfm

多线程文件传输

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 567
  Height = 420
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 559
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = #25509#21463#25991#20214
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 55
      Top = 2
      Caption = #20572#27490#25509#21463
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 110
      Top = 2
      Caption = #21551#21160#26381#21153
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 165
      Top = 2
      Caption = #26029#24320#26381#21153
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton5: TToolButton
      Left = 220
      Top = 2
      Caption = #20851#38381
      ImageIndex = 4
      OnClick = ToolButton5Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 374
    Width = 559
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 559
    Height = 345
    Align = alClient
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 186
      Top = 1
      Width = 3
      Height = 343
      Cursor = crHSplit
    end
    object RichEdit1: TRichEdit
      Left = 1
      Top = 1
      Width = 185
      Height = 343
      Align = alLeft
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Lines.Strings = (
        '')
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object Lv1: TListView
      Left = 189
      Top = 1
      Width = 369
      Height = 343
      Align = alClient
      Columns = <
        item
          Caption = '   '#26165'  '#31216
          Width = 80
        end
        item
          Caption = '   '#23458#25143#26426#21517
          Width = 100
        end
        item
          Caption = '  '#23458#25143#26426#22320#22336
          Width = 100
        end
        item
          Caption = ' '#23458#25143#26426#31471#21475
          Width = 80
        end>
      RowSelect = True
      SortType = stData
      TabOrder = 1
      ViewStyle = vsReport
    end
  end
  object sv: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnAccept = svAccept
    OnClientConnect = svClientConnect
    OnClientDisconnect = svClientDisconnect
    OnClientRead = svClientRead
    OnClientError = svClientError
    Left = 400
    Top = 8
  end
end