main.~dfm

delphi 编的一个语音的聊天系统.还是能用的,要是有错误请多多指教

object Form1: TForm1
  Left = 376
  Top = 309
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #35270#39057#36716#21457#26381#21153#22120' by XOEO'
  ClientHeight = 199
  ClientWidth = 405
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar: TStatusBar
    Left = 0
    Top = 180
    Width = 405
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ListView: TListView
    Left = 0
    Top = 0
    Width = 405
    Height = 113
    Align = alClient
    Columns = <
      item
        Caption = #29992#25143'IP'
        Width = 100
      end
      item
        Caption = #36830#25509#31471#21475
        Width = 100
      end
      item
        Caption = #36830#25509#39057#36947
        Width = 60
      end
      item
        Caption = #36830#25509#26102#38388
        Width = 120
      end>
    GridLines = True
    TabOrder = 1
    ViewStyle = vsReport
  end
  object Panel: TPanel
    Left = 0
    Top = 113
    Width = 405
    Height = 67
    Align = alBottom
    TabOrder = 2
    object GroupBox: TGroupBox
      Left = 1
      Top = 1
      Width = 403
      Height = 65
      Align = alClient
      Caption = #35814#32454#20449#24687
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 20
        Width = 66
        Height = 12
        Caption = #39057#36947'1'#29366#24577#65306
      end
      object Label2: TLabel
        Left = 8
        Top = 40
        Width = 66
        Height = 12
        Caption = #39057#36947'2'#29366#24577#65306
      end
      object Label3: TLabel
        Left = 72
        Top = 20
        Width = 36
        Height = 12
        Caption = #26410#20351#29992
      end
      object Label4: TLabel
        Left = 72
        Top = 40
        Width = 36
        Height = 12
        Caption = #26410#20351#29992
      end
      object Label5: TLabel
        Left = 158
        Top = 20
        Width = 72
        Height = 12
        Caption = #27599#31186#25968#25454#27969#65306
      end
      object Label6: TLabel
        Left = 158
        Top = 40
        Width = 72
        Height = 12
        Caption = #27599#31186#25968#25454#27969#65306
      end
      object Label7: TLabel
        Left = 228
        Top = 20
        Width = 18
        Height = 12
        Caption = '0KB'
      end
      object Label8: TLabel
        Left = 228
        Top = 40
        Width = 18
        Height = 12
        Caption = '0KB'
      end
      object Label11: TLabel
        Left = 298
        Top = 40
        Width = 72
        Height = 12
        Caption = #36830#25509#35266#20247#25968#65306
      end
      object Label9: TLabel
        Left = 298
        Top = 20
        Width = 72
        Height = 12
        Caption = #36830#25509#35266#20247#25968#65306
      end
      object Label12: TLabel
        Left = 368
        Top = 40
        Width = 6
        Height = 12
        Caption = '0'
      end
      object Label10: TLabel
        Left = 368
        Top = 20
        Width = 6
        Height = 12
        Caption = '0'
      end
    end
  end
  object UDPServer: TIdUDPServer
    Bindings = <>
    DefaultPort = 9001
    OnUDPRead = UDPServerUDPRead
  end
  object Timer: TTimer
    Enabled = False
    OnTimer = TimerTimer
    Left = 26
  end
  object MainMenu: TMainMenu
    Left = 54
    object N1: TMenuItem
      Caption = #26381#21153
      object N2: TMenuItem
        Caption = #24320#21551
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #20851#38381
        Enabled = False
        OnClick = N3Click
      end
    end
    object N4: TMenuItem
      Caption = #20851#20110
      object N5: TMenuItem
        Caption = #36864#20986
        OnClick = N5Click
      end
    end
  end
  object TCPServer: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 2050
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnExecute = TCPServerExecute
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 82
  end
  object StatusTimer: TTimer
    Enabled = False
    Interval = 30000
    OnTimer = StatusTimerTimer
    Left = 108
  end
end