main.dfm

《Delphi百例》源码?禗elphi百例》源码

object Form1: TForm1
  Left = 219
  Top = 120
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Proxy'
  ClientHeight = 257
  ClientWidth = 379
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 10
    Top = 52
    Width = 72
    Height = 12
    Caption = '当前连接数：'
  end
  object Edit1: TEdit
    Left = 82
    Top = 47
    Width = 121
    Height = 20
    ImeName = '中文 (简体) - 智能 ABC'
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 0
    Top = 72
    Width = 377
    Height = 185
    ImeName = '中文 (简体) - 智能 ABC'
    Lines.Strings = (
      '')
    TabOrder = 1
  end
  object btopen: TButton
    Left = 10
    Top = 10
    Width = 65
    Height = 25
    Caption = '开始服务'
    TabOrder = 2
    OnClick = btopenClick
  end
  object btclose: TButton
    Left = 88
    Top = 10
    Width = 65
    Height = 25
    Caption = '停止服务'
    TabOrder = 3
    OnClick = btcloseClick
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnListen = ServerSocket1Listen
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientError = ServerSocket1ClientError
    Left = 296
    Top = 8
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnWrite = ClientSocket1Write
    OnError = ClientSocket1Error
    Left = 328
    Top = 8
  end
end