三汇CTI示例程序源码

				object MainForm: TMainForm
				  Left = 192
				  Top = 107
				  BorderStyle = bsDialog
				  Caption = 'MainForm'
				  ClientHeight = 573
				  ClientWidth = 792
				  Color = clBtnFace
				  Font.Charset = ANSI_CHARSET
				  Font.Color = clWindowText
				  Font.Height = -11
				  Font.Name = 'Tahoma'
				  Font.Style = []
				  OldCreateOrder = False
				  Position = poDesktopCenter
				  OnCreate = FormCreate
				  OnDestroy = FormDestroy
				  PixelsPerInch = 96
				  TextHeight = 13
				  object Label1: TLabel
				    Left = 24
				    Top = 472
				    Width = 111
				    Height = 13
				    Caption = 'Record Coding Format:'
				  end
				  object Label2: TLabel
				    Left = 48
				    Top = 507
				    Width = 86
				    Height = 13
				    Caption = 'Listened Channel:'
				  end
				  object LVMain: TListView
				    Left = 16
				    Top = 16
				    Width = 761
				    Height = 433
				    Columns = 
				    TabOrder = 0
				    ViewStyle = vsReport
				  end
				  object RdBtnDefault: TRadioButton
				    Left = 192
				    Top = 472
				    Width = 73
				    Height = 17
				    Caption = 'Default'
				    TabOrder = 1
				    OnClick = RdBtnDefaultClick
				  end
				  object RdBtnALaw: TRadioButton
				    Left = 272
				    Top = 472
				    Width = 73
				    Height = 17
				    Caption = 'A-Law'
				    TabOrder = 2
				    OnClick = RdBtnALawClick
				  end
				  object RdBtnULaw: TRadioButton
				    Left = 352
				    Top = 472
				    Width = 73
				    Height = 17
				    Caption = #956'-Law'
				    TabOrder = 3
				    OnClick = RdBtnULawClick
				  end
				  object CmbBxListenCh: TComboBox
				    Left = 160
				    Top = 504
				    Width = 65
				    Height = 21
				    ItemHeight = 13
				    TabOrder = 4
				    OnChange = CmbBxListenChChange
				  end
				  object BtnStartListen: TButton
				    Left = 248
				    Top = 504
				    Width = 89
				    Height = 25
				    Caption = 'Start Listen'
				    TabOrder = 8
				    OnClick = BtnStartListenClick
				  end
				  object BtnStopListen: TButton
				    Left = 352
				    Top = 504
				    Width = 89
				    Height = 25
				    Caption = 'Stop Listen'
				    TabOrder = 9
				    OnClick = BtnStopListenClick
				  end
				  object RdBtnIMA: TRadioButton
				    Left = 432
				    Top = 472
				    Width = 89
				    Height = 17
				    Caption = 'IMA ADPCM'
				    TabOrder = 5
				    OnClick = RdBtnIMAClick
				  end
				  object RdBtnGC8: TRadioButton
				    Left = 528
				    Top = 472
				    Width = 57
				    Height = 17
				    Caption = 'GC8'
				    TabOrder = 6
				    OnClick = RdBtnGC8Click
				  end
				  object RdBtnG729A: TRadioButton
				    Left = 608
				    Top = 472
				    Width = 73
				    Height = 17
				    Caption = 'G729A'
				    TabOrder = 7
				    OnClick = RdBtnG729AClick
				  end
				  object BtnExit: TButton
				    Left = 672
				    Top = 504
				    Width = 89
				    Height = 25
				    Cancel = True
				    Caption = 'E&xit'
				    TabOrder = 10
				    OnClick = BtnExitClick
				  end
				  object MainTimer: TTimer
				    Enabled = False
				    Interval = 200
				    OnTimer = MainTimerTimer
				    Left = 496
				    Top = 520
				  end
				end