📄 unit1.dfm
字号:
object frmGAtapi: TfrmGAtapi
Left = 258
Top = 127
Width = 472
Height = 422
Caption = 'TAPI'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Memo1: TMemo
Left = 196
Top = 4
Width = 267
Height = 388
ScrollBars = ssVertical
TabOrder = 4
end
object cmbSelLine: TComboBox
Left = 0
Top = 4
Width = 193
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = cmbSelLineChange
end
object GroupBox1: TGroupBox
Left = 0
Top = 32
Width = 95
Height = 183
Caption = 'Incoming'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
object spbListen: TSpeedButton
Left = 8
Top = 40
Width = 79
Height = 21
Caption = 'Listen'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbListenClick
end
object spbAccept: TSpeedButton
Left = 8
Top = 88
Width = 79
Height = 21
Caption = 'Accept'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbAcceptClick
end
object spbReject: TSpeedButton
Left = 8
Top = 112
Width = 79
Height = 21
Caption = 'Reject'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbRejectClick
end
object spbRedirect: TSpeedButton
Left = 8
Top = 136
Width = 79
Height = 21
Caption = 'Redirect'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbRedirectClick
end
object spbEndListen: TSpeedButton
Left = 8
Top = 64
Width = 79
Height = 21
Caption = 'End Listen'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = btnHangupClick
end
object cbAutoAccept: TCheckBox
Left = 8
Top = 18
Width = 80
Height = 13
Caption = 'Auto Accept'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = cbAutoAcceptClick
end
object Edit2: TEdit
Left = 8
Top = 155
Width = 79
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
end
end
object GroupBox2: TGroupBox
Left = 98
Top = 32
Width = 95
Height = 183
Caption = 'Outgoing'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
object spbDial: TSpeedButton
Left = 8
Top = 40
Width = 79
Height = 21
Caption = 'Dial'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbDialClick
end
object cbPulseDial: TCheckBox
Left = 8
Top = 18
Width = 82
Height = 17
Caption = 'Pulse Dialing'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = cbPulseDialClick
end
object btnHangup: TButton
Left = 8
Top = 83
Width = 79
Height = 21
Caption = 'HangUp'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnHangupClick
end
object Edit1: TEdit
Left = 8
Top = 58
Width = 79
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
end
object GroupBox3: TGroupBox
Left = 0
Top = 215
Width = 193
Height = 177
Caption = 'Connection'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
object spbPlayWave: TSpeedButton
Left = 8
Top = 63
Width = 79
Height = 21
Caption = 'Play Wav'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbPlayWaveClick
end
object spbRecordWave: TSpeedButton
Left = 8
Top = 106
Width = 79
Height = 21
Caption = 'Record Wav'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbRecordWaveClick
end
object spbStopPlayWave: TSpeedButton
Left = 87
Top = 63
Width = 98
Height = 21
Caption = 'Stop Playing'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbStopPlayWaveClick
end
object spbStopRecordWave: TSpeedButton
Left = 87
Top = 106
Width = 98
Height = 21
Caption = 'Stop Recording'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = spbStopRecordWaveClick
end
object cbAutoDTMF: TCheckBox
Left = 8
Top = 18
Width = 111
Height = 17
Caption = 'Auto DTMF Detect'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 0
OnClick = cbAutoDTMFClick
end
object btnHangup2: TButton
Left = 8
Top = 149
Width = 79
Height = 21
Caption = 'HangUp'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = btnHangupClick
end
object btnMonitorDTMF: TButton
Left = 8
Top = 40
Width = 79
Height = 21
Caption = 'Monitor DTMF'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = btnMonitorDTMFClick
end
object editWave2Play: TEdit
Left = 8
Top = 82
Width = 177
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'C:\GREETING.WAV'
end
object editWave2Record: TEdit
Left = 8
Top = 125
Width = 177
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
Text = 'MESAJ001'
end
object btnStopMonitorDTMF: TButton
Left = 87
Top = 40
Width = 98
Height = 21
Caption = 'Stop Monitoring'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = btnStopMonitorDTMFClick
end
end
object GAcomTAPI1: TGAcomTAPI
BearerMode = [bmVOICE]
MediaMode = [mmINTERACTIVEVOICE]
DialMode = dmTone
RejectMode = rmNormal
CallPrivilege = cpOwner
TimeOut = 10
KeepLog = False
AutoAcceptMode = aaDisabled
DigitMode = dtDTMF
AutoDTMFDetect = True
MaxMessageLength = 10
MessageSampleRate = 8000
OnNewLog = NewLog
OnDTMF = DTMF
OnStatusChanged = StatusChanged
OnRecorded = Recorded
Left = 130
Top = 152
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -