uservermain.~dfm

通过SOCKET套接字

object frmServerMain: TfrmServerMain
  Left = 648
  Top = 58
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26381#21153#22120#25968#25454#20013#24515
  ClientHeight = 465
  ClientWidth = 576
  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 = 576
    Height = 30
    Align = alTop
    AutoSize = True
    TabOrder = 1
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 459
      Height = 22
      Align = alNone
      ButtonHeight = 21
      ButtonWidth = 55
      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 = 55
        Top = 0
        Caption = #26029#24320
        ImageIndex = 4
        OnClick = tbDisconnectedClick
      end
      object tbClose: TToolButton
        Left = 110
        Top = 0
        Caption = #20851#38381
        ImageIndex = 3
        OnClick = tbCloseClick
      end
      object Dbcom1: TDbcom
        Left = 165
        Top = 0
        Width = 100
        Height = 21
        TabOrder = 0
        ControlData = {00000100560A00002C0200000000000000000000000000}
      end
    end
  end
  object Edit1: TEdit
    Left = 0
    Top = 416
    Width = 473
    Height = 21
    TabOrder = 2
    Text = 'Server'#24050#32463#25910#21040
  end
  object Memo1: TMemo
    Left = 0
    Top = 222
    Width = 569
    Height = 171
    TabOrder = 3
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 443
    Width = 576
    Height = 22
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ListView1: TListView
    Left = 0
    Top = 30
    Width = 576
    Height = 153
    Align = alTop
    Color = 15138815
    Columns = <
      item
        Caption = #26102#38388
        Width = 180
      end
      item
        Caption = #25968#25454
        Width = 180
      end
      item
        Caption = #25968#25454#22823#23567
        Width = 220
      end>
    GridLines = True
    TabOrder = 0
    ViewStyle = vsReport
  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