www.pudn.com > 一个利用VC Socket进行文件传输的例子.rar > Unit1.dfm

object Form1: TForm1 
  Left = 199 
  Top = 133 
  BorderStyle = bsDialog 
  Caption = #21457#36865#25991#20214#23458#25143#26426 
  ClientHeight = 219 
  ClientWidth = 330 
  Color = clBtnFace 
  Font.Charset = GB2312_CHARSET 
  Font.Color = clWindowText 
  Font.Height = -12 
  Font.Name = #23435#20307 
  Font.Style = [] 
  OldCreateOrder = False 
  Position = poDesktopCenter 
  OnCloseQuery = FormCloseQuery 
  PixelsPerInch = 96 
  TextHeight = 12 
  object Label3: TLabel 
    Left = 24 
    Top = 16 
    Width = 42 
    Height = 12 
    Caption = #26381#21153#22120':' 
  end 
  object Label4: TLabel 
    Left = 160 
    Top = 16 
    Width = 54 
    Height = 12 
    Caption = #36890#35759#31471#21475':' 
  end 
  object Label1: TLabel 
    Left = 24 
    Top = 160 
    Width = 30 
    Height = 12 
    Caption = #25991#20214':' 
  end 
  object Label2: TLabel 
    Left = 24 
    Top = 88 
    Width = 54 
    Height = 12 
    Caption = #20256#36755#31471#21475':' 
  end 
  object edHost: TEdit 
    Left = 24 
    Top = 32 
    Width = 121 
    Height = 20 
    TabOrder = 0 
    Text = '192.168.0.2' 
  end 
  object edPort: TEdit 
    Left = 160 
    Top = 32 
    Width = 121 
    Height = 20 
    TabOrder = 1 
    Text = '77' 
  end 
  object btnConnectMessage: TButton 
    Left = 160 
    Top = 56 
    Width = 97 
    Height = 23 
    Caption = #36830#25509#36890#35759#26381#21153#22120 
    TabOrder = 2 
    OnClick = btnConnectMessageClick 
  end 
  object btnSendRequest: TButton 
    Left = 160 
    Top = 102 
    Width = 97 
    Height = 23 
    Caption = #21457#20986#20256#36755#35831#27714 
    Enabled = False 
    TabOrder = 3 
    OnClick = btnSendRequestClick 
  end 
  object StatusBar1: TStatusBar 
    Left = 0 
    Top = 200 
    Width = 330 
    Height = 19 
    Panels = < 
      item 
        Width = 50 
      end> 
    SimplePanel = False 
  end 
  object edFrom: TEdit 
    Left = 64 
    Top = 158 
    Width = 217 
    Height = 20 
    ReadOnly = True 
    TabOrder = 5 
  end 
  object edPort2: TEdit 
    Left = 24 
    Top = 104 
    Width = 121 
    Height = 20 
    TabOrder = 6 
    Text = '99' 
  end 
  object csMessage: TClientSocket 
    Active = False 
    ClientType = ctNonBlocking 
    Port = 0 
    OnConnect = csMessageConnect 
    OnRead = csMessageRead 
    OnError = csMessageError 
    Left = 296 
    Top = 16 
  end 
  object csTransmission: TClientSocket 
    Active = False 
    ClientType = ctNonBlocking 
    Host = '127.0.0.1' 
    Port = 99 
    OnConnect = csTransmissionConnect 
    OnRead = csTransmissionRead 
    Left = 296 
    Top = 64 
  end 
end