main.dfm

delphi下基于tapi的话音存储

object frmMain: TfrmMain
  Left = 256
  Top = 164
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'TAPI Wave Skeleton Demo'
  ClientHeight = 442
  ClientWidth = 594
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 305
    Height = 217
    Caption = 'Call Status:'
    TabOrder = 0
    object LabelStatus: TLabel
      Left = 8
      Top = 136
      Width = 209
      Height = 25
      AutoSize = False
      Caption = 'CALL IDLE'
    end
    object TextCallState: TMemo
      Left = 11
      Top = 16
      Width = 281
      Height = 113
      TabOrder = 0
    end
    object CommandManualAnswer: TButton
      Left = 13
      Top = 170
      Width = 91
      Height = 25
      Caption = '&Manual Answer'
      TabOrder = 1
      OnClick = CommandManualAnswerClick
    end
    object CommandClear: TButton
      Left = 202
      Top = 170
      Width = 91
      Height = 25
      Caption = '&Clear Status'
      TabOrder = 2
      OnClick = CommandClearClick
    end
    object CommandHangUp: TButton
      Left = 110
      Top = 170
      Width = 86
      Height = 25
      Caption = '&Hang Up'
      TabOrder = 3
      OnClick = CommandHangUpClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 320
    Top = 232
    Width = 265
    Height = 105
    Caption = 'Volume Controls'
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 58
      Height = 13
      Caption = 'Play Volume'
    end
    object Label2: TLabel
      Left = 8
      Top = 64
      Width = 70
      Height = 13
      Caption = 'Recod Volume'
    end
    object SliderPlayVolume: TTrackBar
      Left = 96
      Top = 32
      Width = 161
      Height = 17
      Max = 200
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      ThumbLength = 10
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = SliderPlayVolumeChange
    end
    object SliderRecordVolume: TTrackBar
      Left = 96
      Top = 64
      Width = 161
      Height = 17
      Max = 200
      Orientation = trHorizontal
      Frequency = 1
      Position = 0
      SelEnd = 0
      SelStart = 0
      TabOrder = 1
      ThumbLength = 10
      TickMarks = tmBoth
      TickStyle = tsNone
      OnChange = SliderRecordVolumeChange
    end
  end
  object GroupBox5: TGroupBox
    Left = 320
    Top = 344
    Width = 265
    Height = 89
    Caption = 'Audio Options'
    TabOrder = 2
    object GroupBox8: TGroupBox
      Left = 8
      Top = 16
      Width = 97
      Height = 57
      TabOrder = 0
      object OptionRecordFile: TRadioButton
        Left = 8
        Top = 16
        Width = 81
        Height = 17
        Caption = 'Record File'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object OptionRecordNull: TRadioButton
        Left = 8
        Top = 32
        Width = 81
        Height = 17
        Caption = 'Record Null'
        TabOrder = 1
      end
    end
    object GroupBox9: TGroupBox
      Left = 144
      Top = 16
      Width = 97
      Height = 57
      TabOrder = 1
      object OptionSoundCard: TRadioButton
        Left = 8
        Top = 16
        Width = 81
        Height = 17
        Caption = 'Sound Card'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object OptionLine: TRadioButton
        Left = 8
        Top = 32
        Width = 73
        Height = 17
        Caption = 'Line'
        TabOrder = 1
      end
    end
  end
  object GroupBox6: TGroupBox
    Left = 320
    Top = 176
    Width = 265
    Height = 49
    Caption = 'Silence Detection'
    TabOrder = 3
    object LabelSilence: TLabel
      Left = 9
      Top = 22
      Width = 45
      Height = 13
      Caption = 'SILENCE'
    end
  end
  object GroupBox7: TGroupBox
    Left = 320
    Top = 8
    Width = 265
    Height = 89
    Caption = 'Audio Controls'
    TabOrder = 4
    object ProgressBar: TProgressBar
      Left = 16
      Top = 16
      Width = 233
      Height = 16
      Min = 0
      Max = 100
      TabOrder = 0
    end
    object CommandPlay: TButton
      Left = 24
      Top = 44
      Width = 65
      Height = 27
      Caption = 'Play'
      TabOrder = 1
      OnClick = CommandPlayClick
    end
    object CommandRecord: TButton
      Left = 178
      Top = 44
      Width = 65
      Height = 27
      Caption = 'Record'
      TabOrder = 2
      OnClick = CommandRecordClick
    end
    object CommandStop: TButton
      Left = 101
      Top = 44
      Width = 65
      Height = 27
      Caption = 'Stop'
      TabOrder = 3
      OnClick = CommandStopClick
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 344
    Width = 305
    Height = 89
    Caption = 'Generate Digits'
    TabOrder = 5
    object TextGenerateDigits: TEdit
      Left = 8
      Top = 24
      Width = 289
      Height = 21
      TabOrder = 0
      Text = '01234567890ABCDE*#'
    end
    object CommandGenerateDigits: TButton
      Left = 200
      Top = 56
      Width = 99
      Height = 25
      Caption = '&Generate Digits'
      TabOrder = 1
      OnClick = CommandGenerateDigitsClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 8
    Top = 232
    Width = 305
    Height = 105
    Caption = 'Telephone number to call:'
    TabOrder = 6
    object TextTelephoneNumber: TEdit
      Left = 8
      Top = 24
      Width = 289
      Height = 21
      TabOrder = 0
    end
    object CommandCall: TButton
      Left = 200
      Top = 56
      Width = 99
      Height = 25
      Caption = 'C&all'
      TabOrder = 1
      OnClick = CommandCallClick
    end
  end
  object CommandCopy: TButton
    Left = 448
    Top = 103
    Width = 137
    Height = 29
    Caption = 'Copy Rec File to Play File'
    TabOrder = 7
    OnClick = CommandCopyClick
  end
  object amTapiPro1: TamTapiPro
    Left = 360
    Top = 104
    Width = 32
    Height = 32
    OnCallState = amTapiPro1CallState
    OnDigitReceived = amTapiPro1DigitReceived
    OnDelayedError = amTapiPro1DelayedError
    OnCallerID = amTapiPro1CallerID
    OnDisconnected = amTapiPro1Disconnected
    OnConnected = amTapiPro1Connected
    OnIncomingCall = amTapiPro1IncomingCall
    OnGenerateDigitsDone = amTapiPro1GenerateDigitsDone
    OnIdle = amTapiPro1Idle
    ControlData = {000300000B00FFFF030010000000030004000000}
  end
  object amWavePro1: TamWavePro
    Left = 320
    Top = 104
    Width = 32
    Height = 32
    OnDonePlay = amWavePro1DonePlay
    OnDoneRecord = amWavePro1DoneRecord
    OnSilence = amWavePro1Silence
    OnVUChange = amWavePro1VUChange
    ControlData = {
      000300004F0300004F0300000800020000000000080002000000000002000000
      02000000030002000000020019000200E80302000200020001000B000000}
  end
  object MainMenu: TMainMenu
    Left = 408
    Top = 111
    object File1: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = Exit1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object Settings1: TMenuItem
        Caption = 'Settings'
        OnClick = Settings1Click
      end
    end
  end
end