usrmain.dfm

delphi中的SOCKET使用的简单程序

object fmServer: TfmServer
  Left = 355
  Top = 326
  Width = 357
  Height = 308
  Caption = 'fmServer'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 16
    Width = 30
    Height = 12
    Caption = 'Port:'
  end
  object BitBtn1: TBitBtn
    Left = 224
    Top = 8
    Width = 105
    Height = 28
    Caption = 'Start Server'
    TabOrder = 0
    OnClick = BitBtn1Click
  end
  object Memo1: TMemo
    Left = 8
    Top = 40
    Width = 333
    Height = 137
    TabOrder = 1
  end
  object Edit1: TEdit
    Left = 56
    Top = 12
    Width = 121
    Height = 20
    TabOrder = 2
    Text = '12345'
  end
  object edtMsg: TEdit
    Left = 8
    Top = 208
    Width = 249
    Height = 20
    TabOrder = 3
  end
  object Button1: TButton
    Left = 264
    Top = 208
    Width = 75
    Height = 25
    Caption = 'Send All'
    TabOrder = 4
    OnClick = Button1Click
  end
  object Edit3: TEdit
    Left = 192
    Top = 240
    Width = 65
    Height = 20
    TabOrder = 5
  end
  object Button2: TButton
    Left = 264
    Top = 240
    Width = 75
    Height = 25
    Caption = 'Send One'
    TabOrder = 6
    OnClick = Button2Click
  end
  object ServerSocket1: TServerSocket
    Active = False
    Port = 0
    ServerType = stNonBlocking
    OnAccept = ServerSocket1Accept
    OnClientConnect = ServerSocket1ClientConnect
    OnClientDisconnect = ServerSocket1ClientDisconnect
    OnClientRead = ServerSocket1ClientRead
    OnClientWrite = ServerSocket1ClientWrite
    Left = 192
    Top = 8
  end
end