unit1.dfm

indy例子程序,老外开发的多人聊天程序

object Form1: TForm1
  Left = 192
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Multi Chat Coded By Jerome Scott II'
  ClientHeight = 330
  ClientWidth = 584
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020FF0000000000A80800001600000028000000200000004000
    000001000800000000000000000000000000000000000000000000000000FFFF
    FF00F8F0F000F8F8F800E0B0B800D8989800B0587800B0586000A0505800A058
    600098406000B0689000E0787800E0B8A800D8A8A800D0C8C800F8D8E800C058
    88006050480078706800B0707800B090900070686800C0505000C8686800C090
    9000D0B0B000A0989000D0888800C0708800D0887800C098A000B0484800C0A8
    A8009048480068305800A050480098283000A0305800E8B8D000E0E0E000F8E8
    E800F0C0D800E8C8C000E0C8D800F0D8E800E8E8E800F0D0E000B0B0B000C0C0
    B800D888A800E0B8D800C8D0D000C0707000E8A8C800F0C0C800B8B8B000C898
    C000D0987800C860900090787000B8487000E0E8FF00B8D0FF0070389000B0B8
    E000B8B0A800C868980098385800782068002828A000C0C8D800902040009890
    98005050A8009850A8008848B0009898D0004870FF0070A0FF0070B8FF004850
    FF00900000002828D8005870FF00A0C0FF00A85070001030FF009898FF002858
    FF008890FF006090FF003848FF0098A8F8004860FF00B0C8FF005868FF003860
    FF0088A8FF00C0C0FF0058A0FF00E0D8FF003850FF00A0A0FF007878F800B0B0
    FF004068FF00B8B8FF000020FF0090B0FF000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000101010001020000000000000000000000000000000000
    00000000000203040506070809080A040B030C0D0D0E0F010000000000000000
    0000030C10071107121314141415151617171803191A1B1C1D02000000000000
    001E1F20172122212321171D0B1321242425230818060D010E26000000000000
    000E18140E030E270128292A2B2B2C270101012D2E0E180E0000000000000000
    0000261E2F30002B0418131E1814311E32010000000000010000000000000000
    00000000010100192B2B2D012D2D2E282B330001000000000000000000000000
    0000000000002E301334341D1D21060D353602332B1902000000000000000000
    0000000000002B372701282E2E2B2B2B191B3800012B1D2A0000000000000000
    0000000000002717040D1D343904043A1D260100272C013B0D00000000000000
    0000000000002F3C2627013D3E0100022A360000001B3600082B000000000000
    0000000000002C1D0807040D3F132040000C04412D0034010217000000000000
    00000000024224061F17061743440545032D2B3746001C1700202B0000000000
    00000000174748141D1D49141D4A4B1B3F0A2E03353618233606000000000000
    000000002819390D2A2B4C4D00024E004F50000E0B1F2451240C000000000000
    000000000000002B2A1908521828533D4D54002D2E13551E2D00000000000000
    000000000000000000000056574D58593E0000002D0000000000000000000000
    00000000003D5A595954595B5C5C5D000000003D3E0000000000000000000000
    000000005E5F573D3E6058610062600000003D633D0000000000000000000000
    000000645B2D00005A5902615400653D00005A3E000000000000000000000000
    0000005F6600624F565F67574D3E62503D645B00000000000000000000000000
    000000500062503D586800665A4E5E5C4D4E6000000000000000000000000000
    00003D6500696400656600005C596A3D3E59563E000000000000000000000000
    0000025002500000605C0000005E5A62544F6A69000000000000000000000000
    000000506A500000575300000000643D00533E66570000000000000000000000
    000000614E693D00645600000000000000025B3D620000000000000000000000
    000000005350680000653D000000000000005757000000000000000000000000
    00000000645F600000675F000000000000006258000000000000000000000000
    00000000003D5B503D0256640000000000005F5A000000000000000000000000
    000000000000006A5A5464603D00000000646B3D000000000000000000000000
    0000000000000000002D006253623D3D54506800000000000000000000000000
    00000000000000000000000064543E3E6C2D0000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 3
    Top = 1
    Width = 577
    Height = 329
    Caption = 'User Interface'
    TabOrder = 0
    object ChatMemo: TMemo
      Left = 5
      Top = 16
      Width = 337
      Height = 265
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object GroupBox2: TGroupBox
      Left = 352
      Top = 16
      Width = 209
      Height = 265
      Caption = 'Online Chatters'
      TabOrder = 1
      object OnlineUserListBox: TListBox
        Left = 10
        Top = 16
        Width = 188
        Height = 241
        ItemHeight = 13
        TabOrder = 0
      end
    end
    object ChatText: TEdit
      Left = 8
      Top = 285
      Width = 313
      Height = 21
      TabOrder = 2
      OnKeyPress = ChatTextKeyPress
    end
    object SendBn: TButton
      Left = 336
      Top = 288
      Width = 41
      Height = 17
      Caption = 'Send'
      TabOrder = 3
      OnClick = SendBnClick
    end
    object StatusBar1: TStatusBar
      Left = 2
      Top = 308
      Width = 573
      Height = 19
      Panels = <
        item
          Width = 50
        end>
      SimplePanel = False
    end
    object ConnectBn: TButton
      Left = 432
      Top = 288
      Width = 57
      Height = 17
      Caption = 'Connect'
      TabOrder = 5
      OnClick = ConnectBnClick
    end
  end
  object ClientSocket1: TClientSocket
    Active = False
    Address = '127.0.0.1'
    ClientType = ctNonBlocking
    Port = 1981
    OnConnecting = ClientSocket1Connecting
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    OnError = ClientSocket1Error
    Left = 336
    Top = 240
  end
end