unit1.~dfm

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

object Form1: TForm1
  Left = 363
  Top = 179
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #35270#39057#32842#22825'-'#24191#25773' by XOEO'
  ClientHeight = 260
  ClientWidth = 475
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 237
    Height = 194
    Align = alLeft
    Color = clBlack
    TabOrder = 0
  end
  object Panel2: TPanel
    Left = 0
    Top = 194
    Width = 475
    Height = 46
    Align = alBottom
    TabOrder = 1
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 473
      Height = 44
      Align = alClient
      Caption = #25511#21046#21306
      TabOrder = 0
      object RadioButton1: TRadioButton
        Left = 6
        Top = 16
        Width = 85
        Height = 19
        Caption = #20844#20849#39057#36947'1'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 98
        Top = 16
        Width = 89
        Height = 19
        Caption = #20844#20849#39057#36947'2'
        TabOrder = 1
      end
      object Button4: TButton
        Left = 262
        Top = 11
        Width = 67
        Height = 25
        Caption = #20572#27490#35266#30475
        Enabled = False
        TabOrder = 2
        OnClick = Button4Click
      end
      object Button3: TButton
        Left = 194
        Top = 11
        Width = 67
        Height = 25
        Caption = #35266#30475#35270#39057
        TabOrder = 3
        OnClick = Button3Click
      end
      object Button2: TButton
        Left = 402
        Top = 11
        Width = 67
        Height = 25
        Caption = #20572#27490#21457#24067
        Enabled = False
        TabOrder = 4
        OnClick = Button2Click
      end
      object Button1: TButton
        Left = 332
        Top = 11
        Width = 67
        Height = 25
        Caption = #21457#24067#35270#39057
        TabOrder = 5
        OnClick = Button1Click
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 240
    Width = 475
    Height = 20
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Panel3: TPanel
    Left = 237
    Top = 0
    Width = 238
    Height = 194
    Align = alClient
    Color = clBlack
    TabOrder = 3
    object Image: TImage
      Left = 1
      Top = 1
      Width = 236
      Height = 192
      Align = alClient
      Stretch = True
    end
    object Label1: TLabel
      Left = 4
      Top = 4
      Width = 6
      Height = 12
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
  end
  object ACMConvertor: TACMConvertor
    Left = 54
    Top = 20
    ACMFormatIn = {
      8100000001000100225600002256000001000800810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
    ACMFormatOut = {
      8100000001000100225600002256000001000800810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
  end
  object ACMIn: TACMIn
    BufferSize = 1024
    NumBuffers = 4
    OnBufferFull = ACMInBufferFull
    Left = 110
    Top = 20
  end
  object UDPServer: TIdUDPServer
    BufferSize = 51200
    Bindings = <>
    DefaultPort = 0
    OnUDPRead = UDPServerUDPRead
    Left = 82
    Top = 20
  end
  object ACMOut: TACMOut
    NumBuffers = 4
    Left = 138
    Top = 20
  end
  object TCPClient: TIdTCPClient
    MaxLineAction = maException
    Port = 2050
    Left = 32
    Top = 20
  end
  object Timer: TTimer
    Enabled = False
    Interval = 20000
    OnTimer = TimerTimer
    Left = 166
    Top = 20
  end
end