unit1.dfm

多线程文件传输

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 495
  Height = 347
  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 = 487
    Height = 29
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'ToolBar1'
    ShowCaptions = True
    TabOrder = 0
    object ConnectBtn: TToolButton
      Left = 0
      Top = 2
      Caption = #36830#25509
      ImageIndex = 0
      OnClick = ConnectBtnClick
    end
    object OpenBtn: TToolButton
      Left = 55
      Top = 2
      Caption = #36873#25321#25991#20214
      ImageIndex = 1
      OnClick = OpenBtnClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 301
    Width = 487
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 487
    Height = 272
    Align = alClient
    TabOrder = 2
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 84
      Height = 13
      Caption = #20256#36865#25991#20214#21517':       '
    end
    object Label2: TLabel
      Left = 104
      Top = 16
      Width = 297
      Height = 13
      Caption = 
        '                                                                ' +
        '                                   '
    end
    object RichEdit1: TRichEdit
      Left = 1
      Top = 40
      Width = 485
      Height = 231
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnError = ClientSocket1Error
    Left = 288
  end
  object OpenDialog1: TOpenDialog
    Left = 328
  end
end