Delphi/CppBuilder

开发平台：

Delphi

serverFrm.dfm：源码内容

							object frmServer: TfrmServer
  Left = 213
  Top = 126
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #36828#31243#25235#23631#8212#26381#21153#22120#31471#31243#24207
  ClientHeight = 76
  ClientWidth = 298
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 24
    Width = 276
    Height = 21
    Caption = #36828#31243#25235#23631#8212#8212#26381#21153#22120#31471#31243#24207
    Font.Charset = GB2312_CHARSET
    Font.Color = clGreen
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ServerSocket: TServerSocket
    Active = True
    Port = 1234
    ServerType = stNonBlocking
    OnClientDisconnect = ServerSocketClientDisconnect
    OnClientRead = ServerSocketClientRead
    OnClientError = ServerSocketClientError
    Left = 256
  end
end

						