uservermain.dfm

winsocket,本人的学习作品

object frmServerMain: TfrmServerMain
  Left = 347
  Top = 222
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ServerSocket'
  ClientHeight = 279
  ClientWidth = 476
  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 ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 476
    Height = 30
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 459
      Height = 22
      ButtonHeight = 21
      ButtonWidth = 37
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object tbConnect: TToolButton
        Left = 0
        Top = 0
        Caption = ' '#36830#25509' '
        ImageIndex = 0
        OnClick = tbConnectClick
      end
      object tbDisconnected: TToolButton
        Left = 37
        Top = 0
        Caption = #26029#24320
        ImageIndex = 4
        OnClick = tbDisconnectedClick
      end
      object tbClose: TToolButton
        Left = 74
        Top = 0
        Caption = #20851#38381
        ImageIndex = 3
        OnClick = tbCloseClick
      end
    end
  end
  object Edit1: TEdit
    Left = 0
    Top = 232
    Width = 473
    Height = 21
    TabOrder = 1
    Text = #20320#22909#65281
  end
  object Memo1: TMemo
    Left = 0
    Top = 30
    Width = 476
    Height = 195
    Align = alTop
    TabOrder = 2
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 257
    Width = 476
    Height = 22
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ServerSocket: TServerSocket
    Active = False
    Port = 1025
    ServerType = stNonBlocking
    OnListen = ServerSocketListen
    OnGetSocket = ServerSocketGetSocket
    OnClientConnect = ServerSocketClientConnect
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 368
  end
end