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

object Form1: TForm1 
  Left = 233 
  Top = 168 
  Width = 337 
  Height = 210 
  Caption = #25509#25910#25991#20214#26381#21153#22120 
  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 Label2: TLabel 
    Left = 24 
    Top = 120 
    Width = 30 
    Height = 12 
    Caption = #25991#20214':' 
  end 
  object Label1: TLabel 
    Left = 24 
    Top = 16 
    Width = 54 
    Height = 12 
    Caption = #36890#35759#31471#21475':' 
  end 
  object Label3: TLabel 
    Left = 168 
    Top = 16 
    Width = 54 
    Height = 12 
    Caption = #20256#36755#31471#21475':' 
  end 
  object edTo: TEdit 
    Left = 64 
    Top = 118 
    Width = 217 
    Height = 20 
    ReadOnly = True 
    TabOrder = 1 
  end 
  object btnStartupMessage: TButton 
    Left = 24 
    Top = 64 
    Width = 97 
    Height = 23 
    Caption = #21551#21160#36890#35759#26381#21153#22120 
    TabOrder = 0 
    OnClick = btnStartupMessageClick 
  end 
  object StatusBar1: TStatusBar 
    Left = 0 
    Top = 164 
    Width = 329 
    Height = 19 
    Panels = < 
      item 
        Width = 180 
      end> 
    SimplePanel = False 
  end 
  object edPort: TEdit 
    Left = 24 
    Top = 32 
    Width = 121 
    Height = 20 
    TabOrder = 3 
    Text = '77' 
  end 
  object edPort2: TEdit 
    Left = 168 
    Top = 32 
    Width = 121 
    Height = 20 
    TabOrder = 4 
    Text = '99' 
  end 
  object ssTransmission: TServerSocket 
    Active = False 
    Port = 99 
    ServerType = stNonBlocking 
    OnListen = ssTransmissionListen 
    OnClientRead = ssTransmissionClientRead 
    Left = 248 
    Top = 64 
  end 
  object ssMessage: TServerSocket 
    Active = False 
    Port = 0 
    ServerType = stNonBlocking 
    OnListen = ssMessageListen 
    OnClientRead = ssMessageClientRead 
    OnClientError = ssMessageClientError 
    Left = 168 
    Top = 64 
  end 
end