unit1.dfm

语音acm控件

object Form1: TForm1
  Left = 324
  Top = 115
  Width = 506
  Height = 191
  Caption = 'ACMIO  GSM->PCM   Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 169
    Height = 13
    AutoSize = False
    Caption = 'Label1'
  end
  object Label2: TLabel
    Left = 8
    Top = 80
    Width = 177
    Height = 13
    AutoSize = False
    Caption = 'Label2'
  end
  object Label3: TLabel
    Left = 288
    Top = 48
    Width = 177
    Height = 13
    AutoSize = False
    Caption = 'Label3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 0
    Width = 455
    Height = 20
    Caption = 
      'Easy way to build a application for tanrsmission voice via inter' +
      'net.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMaroon
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 16
    Top = 24
    Width = 473
    Height = 13
    AutoSize = False
    Caption = 
      'To test this demo,connect microphone and headphone to your pc,an' +
      'd say some to the microphone.'
  end
  object Bevel1: TBevel
    Left = 0
    Top = 40
    Width = 497
    Height = 1
    Shape = bsTopLine
  end
  object Button1: TButton
    Left = 32
    Top = 120
    Width = 81
    Height = 25
    Caption = 'Exit'
    TabOrder = 0
    OnClick = Button1Click
  end
  object ProgressBar1: TProgressBar
    Left = 288
    Top = 64
    Width = 193
    Height = 17
    Min = 0
    Max = 125
    Smooth = True
    Step = 126
    TabOrder = 1
  end
  object Memo1: TMemo
    Left = 320
    Top = 104
    Width = 129
    Height = 49
    Color = clBlack
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clAqua
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      'ACMIO VCL Demo：'
      ' Http://pcauto.3322.net'
      ' Email:[e-mail]')
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object ACMConvertor1: TACMConvertor
    Left = 160
    Top = 96
    ACMFormatIn = {
      8100000001000200225600008858010004001000810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
    ACMFormatOut = {
      8100000001000200401F0000007D000004001000810000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000}
  end
  object ACMIn1: TACMIn
    BufferSize = 520
    NumBuffers = 4
    OnBufferFull = ACMIn1BufferFull
    Left = 224
    Top = 96
  end
  object ACMOut1: TACMOut
    NumBuffers = 4
    Left = 192
    Top = 96
  end
end