TAPI编程

开发平台：
C++ Builder

main.~dfm：源码内容
							object Form1: TForm1
  Left = 405
  Top = 151
  Width = 263
  Height = 504
  Caption = 'Dial Demo Ex'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CallInfoBox: TGroupBox
    Left = 8
    Top = 350
    Width = 240
    Height = 78
    Caption = 'Call Information'
    TabOrder = 14
    object Label4: TLabel
      Left = 8
      Top = 16
      Width = 36
      Height = 13
      Caption = 'Origin : '
    end
    object Label5: TLabel
      Left = 56
      Top = 16
      Width = 44
      Height = 13
      Caption = 'unknown'
    end
    object Label3: TLabel
      Left = 8
      Top = 32
      Width = 43
      Height = 13
      Caption = 'CallerID :'
    end
    object Label6: TLabel
      Left = 56
      Top = 32
      Width = 72
      Height = 13
      Caption = '+1-5555-55555'
    end
    object Label7: TLabel
      Left = 8
      Top = 46
      Width = 46
      Height = 13
      Caption = 'CalledID :'
    end
    object Label8: TLabel
      Left = 59
      Top = 46
      Width = 78
      Height = 13
      Caption = '+49(30)1234567'
    end
    object Label9: TLabel
      Left = 8
      Top = 61
      Width = 31
      Height = 13
      Caption = 'Name '
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 241
    Height = 105
    Caption = 'Display '
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 88
      Width = 81
      Height = 13
      Caption = 'Handset Offbook'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 217
      Height = 65
      TabOrder = 0
    end
  end
  object KeypadGroupBox: TGroupBox
    Left = 8
    Top = 120
    Width = 241
    Height = 177
    Caption = 'Keypad'
    TabOrder = 1
    object Label2: TLabel
      Left = 16
      Top = 152
      Width = 68
      Height = 13
      Caption = 'My Nummber :'
    end
    object Button1: TButton
      Tag = 1
      Left = 8
      Top = 16
      Width = 25
      Height = 25
      Caption = '1'
      TabOrder = 0
      OnClick = KeypadClick
    end
    object Button2: TButton
      Tag = 2
      Left = 32
      Top = 16
      Width = 25
      Height = 25
      Caption = '2'
      TabOrder = 1
      OnClick = KeypadClick
    end
    object Button3: TButton
      Tag = 3
      Left = 56
      Top = 16
      Width = 25
      Height = 25
      Caption = '3'
      TabOrder = 2
      OnClick = KeypadClick
    end
    object Button4: TButton
      Tag = 4
      Left = 8
      Top = 40
      Width = 25
      Height = 25
      Caption = '4'
      TabOrder = 3
      OnClick = KeypadClick
    end
    object Button5: TButton
      Tag = 5
      Left = 32
      Top = 40
      Width = 25
      Height = 25
      Caption = '5'
      TabOrder = 4
      OnClick = KeypadClick
    end
    object Button6: TButton
      Tag = 6
      Left = 56
      Top = 40
      Width = 25
      Height = 25
      Caption = '6'
      TabOrder = 5
      OnClick = KeypadClick
    end
    object Button7: TButton
      Tag = 7
      Left = 8
      Top = 64
      Width = 25
      Height = 25
      Caption = '7'
      TabOrder = 6
      OnClick = KeypadClick
    end
    object Button8: TButton
      Tag = 8
      Left = 32
      Top = 64
      Width = 25
      Height = 25
      Caption = '8'
      TabOrder = 7
      OnClick = KeypadClick
    end
    object Button9: TButton
      Tag = 9
      Left = 56
      Top = 64
      Width = 25
      Height = 25
      Caption = '9'
      TabOrder = 8
      OnClick = KeypadClick
    end
    object Button10: TButton
      Tag = 10
      Left = 8
      Top = 88
      Width = 25
      Height = 25
      Caption = '*'
      TabOrder = 9
      OnClick = KeypadClick
    end
    object Button11: TButton
      Left = 32
      Top = 88
      Width = 25
      Height = 25
      Caption = '0'
      TabOrder = 10
      OnClick = KeypadClick
    end
    object Button12: TButton
      Tag = 11
      Left = 56
      Top = 88
      Width = 25
      Height = 25
      Caption = '#'
      TabOrder = 11
      OnClick = KeypadClick
    end
    object DialButton: TButton
      Left = 8
      Top = 112
      Width = 73
      Height = 25
      Caption = 'Dial'
      TabOrder = 12
      OnClick = DialButtonClick
    end
    object ClearButton: TButton
      Left = 200
      Top = 16
      Width = 33
      Height = 25
      Caption = 'Clear'
      TabOrder = 13
      OnClick = ClearButtonClick
    end
    object HoldButton: TButton
      Left = 200
      Top = 40
      Width = 33
      Height = 25
      Caption = 'Hold'
      Enabled = False
      TabOrder = 14
      OnClick = HoldButtonClick
    end
    object HandSetVolumeBar: TProgressBar
      Left = 104
      Top = 16
      Width = 10
      Height = 95
      Orientation = pbVertical
      TabOrder = 15
    end
    object HandSetGainBar: TProgressBar
      Left = 88
      Top = 16
      Width = 10
      Height = 95
      Max = 65000
      Orientation = pbVertical
      Position = 3000
      TabOrder = 16
    end
    object HandSetGainUpDown: TUpDown
      Left = 88
      Top = 113
      Width = 10
      Height = 25
      Increment = 5
      TabOrder = 17
      OnChangingEx = HandSetGainUpDownChangingEx
    end
    object SpkCheckBox: TCheckBox
      Left = 181
      Top = 72
      Width = 54
      Height = 17
      Caption = 'Spk on'
      Enabled = False
      TabOrder = 18
      OnClick = SpkCheckBoxClick
    end
    object Edit1: TEdit
      Left = 88
      Top = 148
      Width = 145
      Height = 21
      TabOrder = 19
      Text = '102'
    end
    object HdsCheckBox: TCheckBox
      Left = 181
      Top = 88
      Width = 54
      Height = 17
      Caption = 'Hds on'
      Enabled = False
      TabOrder = 20
      OnClick = HdsCheckBoxClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 431
    Width = 255
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 304
    Width = 241
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = 'ComboBox1'
    OnChange = ComboBox1Change
  end
  object ComboBox2: TComboBox
    Left = 8
    Top = 328
    Width = 241
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    Text = 'ComboBox2'
    OnChange = ComboBox2Change
  end
  object HeadSetGainBar: TProgressBar
    Left = 128
    Top = 136
    Width = 10
    Height = 95
    Max = 65000
    Orientation = pbVertical
    Position = 3000
    TabOrder = 4
  end
  object HeadSetVolumeBar: TProgressBar
    Left = 144
    Top = 136
    Width = 10
    Height = 95
    Orientation = pbVertical
    TabOrder = 5
  end
  object HeadSetVolUpDown: TUpDown
    Left = 144
    Top = 233
    Width = 10
    Height = 25
    TabOrder = 6
    OnChangingEx = HeadSetVolUpDownChangingEx
  end
  object HeadSetGainUpDown: TUpDown
    Left = 128
    Top = 233
    Width = 10
    Height = 25
    Increment = 5
    TabOrder = 7
    OnChangingEx = HeadSetGainUpDownChangingEx
  end
  object SpeakerGainBar: TProgressBar
    Left = 160
    Top = 136
    Width = 10
    Height = 95
    Max = 65000
    Orientation = pbVertical
    Position = 3000
    TabOrder = 8
  end
  object SpeakerVolumeBar: TProgressBar
    Left = 176
    Top = 136
    Width = 10
    Height = 95
    Max = 65535
    Orientation = pbVertical
    Position = 3528
    TabOrder = 9
  end
  object SpeakerGainUpDown: TUpDown
    Left = 160
    Top = 233
    Width = 10
    Height = 25
    Increment = 5
    TabOrder = 10
    OnChangingEx = SpeakerGainUpDownChangingEx
  end
  object SpeakerVolUpDown: TUpDown
    Left = 177
    Top = 232
    Width = 10
    Height = 25
    TabOrder = 11
    OnChangingEx = SpeakerVolUpDownChangingEx
  end
  object HandSetVolUpDown: TUpDown
    Left = 112
    Top = 233
    Width = 10
    Height = 25
    TabOrder = 12
    OnChangingEx = VolUpDownChangingEx
  end
  object MainMenu1: TMainMenu
    Left = 216
    Top = 16
    object Datei1: TMenuItem
      Caption = '&File'
      object Neu1: TMenuItem
        Caption = '&Device Config'
        OnClick = Neu1Click
      end
      object ReInit: TMenuItem
        Caption = '&ReInit'
        OnClick = ReInitClick
      end
      object DialNumber: TMenuItem
        Caption = '&Dial with Number'
        OnClick = DialNumberClick
      end
      object Look: TMenuItem
        Caption = 'Look Keypad'
        OnClick = LookClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Beenden1: TMenuItem
        Caption = '&Exit'
        OnClick = Beenden1Click
      end
    end
  end
  object TAPILineService1: TTAPILineService
    ExtLoVersion = '$00000000'
    ExtHiVersion = '$7FFFFFFF'
    APIHiVerApp = '$00020002'
    APILoVerApp = '$00010003'
    OnLineCreate = TAPILineService1LineCreate
    OnLineRemove = TAPILineService1LineRemove
    AppName = 'Dial Demo Ex'
    Left = 16
    Top = 24
  end
  object TAPIPhoneService1: TTAPIPhoneService
    ExtLoVersion = '$00000000'
    ExtHiVersion = '$7FFFFFFF'
    APIHiVerApp = '$00020002'
    APILoVerApp = '$00010003'
    OnPhoneCreate = TAPIPhoneService1PhoneCreate
    OnPhoneRemove = TAPIPhoneService1PhoneRemove
    AppName = 'Dial Demo Ex'
    Left = 16
    Top = 56
  end
  object TAPILineDevice1: TTAPILineDevice
    OnStateRinging = TAPILineDevice1StateRinging
    OnStateClose = TAPILineDevice1StateClose
    OnStateNumCalls = TAPILineDevice1StateNumCalls
    DeviceClass = 'tapi/line'
    Service = TAPILineService1
    ID = 0
    DevConfig = TAPILineDeviceConfig1
    Left = 48
    Top = 24
  end
  object TAPIPhoneDevice1: TTAPIPhoneDevice
    DeviceClass = 'tapi/phone'
    Service = TAPIPhoneService1
    ID = 0
    Left = 48
    Top = 56
  end
  object TAPILine1: TTAPILine
    Device = TAPILineDevice1
    CallPrivilege = [cpOwner]
    BeforeOpen = TAPILine1BeforeOpen
    AfterOpen = TAPILine1AfterOpen
    OnReply = TAPILine1Reply
    Left = 112
    Top = 24
  end
  object TAPIAddress1: TTAPIAddress
    OnAppNewCall = TAPIAddress1AppNewCall
    Line = TAPILine1
    TranslateOptions = []
    InboundCall = InboundCall
    OutboundCall = OutboundCall
    Left = 112
    Top = 56
  end
  object OutboundCall: TTAPICall
    OnStateIdle = OutboundCallStateIdle
    OnStateDialTone = OutboundCallStateDialTone
    OnStateDialing = OutboundCallStateDialing
    OnStateRingBack = OutboundCallStateRingBack
    OnStateBusy = OutboundCallStateBusy
    OnStateConnected = OutboundCallStateConnected
    OnStateProceeding = OutboundCallStateProceeding
    OnStateDisconnected = OutboundCallStateDisconnected
    OnStateUnknown = OutboundCallStateUnknown
    OnReply = OutboundCallReply
    OnInfoOrigin = OutboundCallInfoOrigin
    OnInfoCallerId = OutboundCallInfoCallerId
    OnInfoCalledId = OutboundCallInfoCalledId
    OnInfoDisplay = OutboundCallInfoDisplay
    MakeCallParams = CallParams1
    Digits = OutboundDigits
    Left = 176
    Top = 24
  end
  object InboundCall: TTAPICall
    OnStateIdle = InboundCallStateIdle
    OnStateOffering = InboundCallStateOffering
    OnStateAccepted = InboundCallStateAccepted
    OnStateConnected = InboundCallStateConnected
    OnStateOnHold = InboundCallStateOnHold
    OnStateDisconnected = InboundCallStateDisconnected
    OnInfoOrigin = InboundCallInfoOrigin
    OnInfoCallerId = InboundCallInfoCallerId
    OnInfoCalledId = InboundCallInfoCalledId
    OnInfoDisplay = InboundCallInfoDisplay
    Digits = InboundDigits
    Left = 176
    Top = 56
  end
  object TAPILineDeviceConfig1: TTAPILineDeviceConfig
    DeviceClass = 'tapi/line'
    Left = 80
    Top = 24
  end
  object TAPIPhone1: TTAPIPhone
    Device = TAPIPhoneDevice1
    OnReply = TAPIPhone1Reply
    BeforeOpen = TAPIPhone1BeforeOpen
    AfterOpen = TAPIPhone1AfterOpen
    OnStateDisplay = TAPIPhone1StateDisplay
    OnStateHandSetVolume = TAPIPhone1StateHandSetVolume
    OnStateHandSetGain = TAPIPhone1StateHandSetGain
    OnStateSpeakerVolume = TAPIPhone1StateSpeakerVolume
    OnStateSpeakerGain = TAPIPhone1StateSpeakerGain
    OnStateHeadSetVolume = TAPIPhone1StateHeadSetVolume
    OnStateHeadSetGain = TAPIPhone1StateHeadSetGain
    Left = 80
    Top = 56
  end
  object InboundDigits: TTAPIDigits
    Duration = 0
    DigitModes = []
    FirstDigitTimeOut = 0
    InterDigitTimeOut = 0
    Left = 176
    Top = 96
  end
  object OutboundDigits: TTAPIDigits
    Duration = 0
    DigitModes = []
    FirstDigitTimeOut = 0
    InterDigitTimeOut = 0
    Left = 144
    Top = 96
  end
  object XPManifest1: TXPManifest
    Left = 216
    Top = 96
  end
  object TAPICallList1: TTAPICallList
    Line = TAPILine1
    Left = 144
    Top = 24
  end
  object CallParams1: TCallParams
    MinRate = 3100
    MaxRate = 3100
    CallParamFlags = [cpfIdle]
    AddressMode = amAddressID
    DialParams.WaitForDialtone = 10
    OrigAddress = '34'
    Comment = 'Test Comment'
    UserUserInfo = 'Delphi App'
    PredictiveAutoTransferStates = []
    TargetAddress = '31'
    ProxyRequests = []
    DeviceClass = 'tapi/line'
    NoAnswerTimeout = 0
    Left = 112
    Top = 65528
  end
  object TAPILineConfigDlg1: TTAPILineConfigDlg
    Device = TAPILineDevice1
    DeviceClass = 'tapi/line'
    Left = 104
    Top = 88
  end
end

						