mainsercli.dfm

delphi 代理服务器程序,通过实践操作

object MainSerCliFm: TMainSerCliFm
  Left = 69
  Top = 130
  Width = 982
  Height = 604
  Caption = #20132#36890#32602#27454#32593#38392#22806#26381#21153#31243#24207
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 45
    Width = 160
    Height = 16
    Caption = #25509#25910#21040#20013#38388#19994#21153#25968#25454#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 512
    Top = 48
    Width = 192
    Height = 16
    Caption = #36820#22238#32473#20013#38388#19994#21153#22788#29702#32467#26524#65306
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button2: TButton
    Left = 176
    Top = 74
    Width = 129
    Height = 41
    Caption = #20851#38381#26381#21153
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
  end
  object Button3: TButton
    Left = 398
    Top = 5
    Width = 100
    Height = 40
    Caption = #36864#20986
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = Button3Click
  end
  object GroupBox1: TGroupBox
    Left = 25
    Top = 64
    Width = 454
    Height = 461
    TabOrder = 2
    object Memo1: TMemo
      Left = 4
      Top = 14
      Width = 440
      Height = 440
      DragMode = dmAutomatic
      Lines.Strings = (
        #25509#25910#21040#20013#38388#19994#21153#25968#25454)
      MaxLength = -1
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object GroupBox2: TGroupBox
    Left = 504
    Top = 64
    Width = 453
    Height = 459
    TabOrder = 3
    object Memo2: TMemo
      Left = 5
      Top = 12
      Width = 440
      Height = 440
      DragMode = dmAutomatic
      Lines.Strings = (
        #22788#29702#21518#36820#22238#32473#20013#38388#19994#21153#25968#25454)
      MaxLength = -1
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object Button1: TButton
    Left = 189
    Top = 4
    Width = 100
    Height = 40
    Caption = #21551#21160#26381#21153
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button1Click
  end
  object Button4: TButton
    Left = 293
    Top = 5
    Width = 100
    Height = 40
    Caption = #20851#38381#26381#21153
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Button4Click
  end
  object Edit1: TEdit
    Left = 512
    Top = 16
    Width = 121
    Height = 21
    TabOrder = 6
    Text = 'Edit1'
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnWrite = ClientSocket1Write
    OnError = ClientSocket1Error
    Left = 112
    Top = 8
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    ThreadCacheSize = 30
    OnListen = ServerSocket1Listen
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 64
    Top = 16
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 8
    object N1: TMenuItem
      Caption = #21442#25968#37197#32622
      object N3: TMenuItem
        Caption = #26381#21153#22120#21442#25968#37197#32622
        OnClick = N3Click
      end
    end
  end
end