Click here to Skip to main content
Click here to Skip to main content

Working with TAPI 3.x from .NET

, 6 Aug 2005 CPOL
Rate this:
Please Sign up or sign in to vote.
It's about time to Use Advanced Telephony features in your code? Right!

Introduction

Here I will post a class containing the event handling part in TAPI 3.0 and VB.NET.
I will also include the full project as a download.

The code is self explaining and well commented and if you need any further information, please drop me a PM.

All comments are welcome and please vote for the article.

Here is the full commented source code in VB.NET and I will be posting more in-depth tutorials about TAPI.

Imports TAPI3Lib 

Namespace VBCity.TAPI 

    Public Class VBTAPI 

        Private Const MediaAudio As Integer = 8 
        Private Const MediaModem As Integer = 16 
        Private Const MediaFax As Integer = 32 
        Private Const MediaVideo As Integer = 32768 

        Private WithEvents oTAPI As TAPI3Lib.TAPI ' will hold our TAPI object 
        ' will hold our selected address (you can hold many addresses in an array)
        Private oAddress As ITAddress 
        Private RegCookie As Integer 

        Sub New() 
            Try 
                ' creating a new instance to first initialize TAPI 
                ' before attaching the events 
                Dim m_TAPI As New TAPIClass 
                ' a variable to hold supported media types for the address 
                Dim MediaTypes As Integer 
                ' initializing TAPI 
                m_TAPI.Initialize() 
                ' attaching event sink 
                oTAPI = m_TAPI 
                ' getting rid of the private instance as we have another 
                ' global instance (oTAPI) 
                m_TAPI = Nothing 
                Dim AddressCollection As ITCollection = oTAPI.Addresses() 
                ' looping through address collection
                For Each Address As ITAddress In AddressCollection  
                    ' checking if address is working
                    If Address.State = ADDRESS_STATE.AS_INSERVICE Then  
                        ' extracting media support interface from the address 
                        Dim MediaSupport As ITMediaSupport = Address 
                        ' extracting media types supporting 
                        MediaTypes = MediaSupport.MediaTypes 
                        MediaSupport = Nothing ' dispose of the object 
                        If (MediaTypes And MediaModem) = MediaModem Then 
                            ' the address is a data Modem 
                            If (MediaTypes And MediaAudio) = MediaAudio Then 
                                ' Select the address since it supports Audio 
                                ' and is a FAX/Modem 
                                oAddress = Address ' select this address 
                                ' show the selected address name
                                MsgBox("we have selected this address: " + _
                                       oAddress.AddressName)  
                                Exit For 
                            End If 
                        End If 
                    End If 
                Next Address 
                If Not (oAddress Is Nothing) Then 
                    ' registering notifications for the selected address 
                    RegCookie = oTAPI.RegisterCallNotifications_
                                (oAddress, True, False, MediaTypes, 1) 
                    ' Note: this registration can be done on 
                    ' as many addresses as you want 
                    ' we will not receive notifications unless we specify 
                    ' which type of events we are interested in 
                    oTAPI.EventFilter = (TAPI_EVENT.TE_CALLNOTIFICATION Or _
                            TAPI_EVENT.TE_CALLSTATE Or TAPI_EVENT.TE_CALLINFOCHANGE) 
                Else 
                    MsgBox("no address selected") 
                End If 
            Catch ex As Exception 
                MsgBox("Error occurred:" & vbCrLf & ex.Message, _
                        MsgBoxStyle.Critical, "VBCITY.VBTAPI") 
            End Try 
            ' by now we are done for the initialization and registration 
            ' and the events should fire 
            ' Note: you must dispose of TAPI before you destroy the class 
            ' and I will leave this for now 
        End Sub 
        
        Private Sub oTAPI_Event(ByVal TapiEvent As TAPI3Lib.TAPI_EVENT, _
                        ByVal pEvent As Object) Handles oTAPI.Event 
            ' making a thread asynchronously process the event 
            Dim thAsyncCall As System.Threading.Thread 
            Select Case TapiEvent 
            
                Case TAPI_EVENT.TE_CALLNOTIFICATION 'Call Notification Arrived 
                    ' assigning our sub's delegate to the thread 
                    thAsyncCall = New Threading.Thread(AddressOf CallNotificationEvent) 
                    ' passing the variable for the thread 
                    CallNotificationObject = CType(pEvent, ITCallNotificationEvent) 
                    ' starting the thread 
                    thAsyncCall.Start() 
                    
                Case TAPI_EVENT.TE_CALLSTATE 'Call State Changes 
                    ' assigning our sub's delegate to the thread 
                    thAsyncCall = New Threading.Thread(AddressOf CallStateEvent) 
                    ' passing the variable for the thread 
                    CallStateObject = CType(pEvent, ITCallStateEvent) 
                    ' starting the thread 
                    thAsyncCall.Start() 
                    
                Case TAPI_EVENT.TE_CALLINFOCHANGE 'Call Info Changes 
                    ' assigning our sub's delegate to the thread 
                    thAsyncCall = New Threading.Thread(AddressOf CallInfoEvent) 
                    ' passing the variable for the thread 
                    CallInfoObject = CType(pEvent, ITCallInfoChangeEvent) 
                    ' starting the thread 
                    thAsyncCall.Start() 
                    
            End Select 
        End Sub 
        
        Private CallNotificationObject As ITCallNotificationEvent 
        Private Sub CallNotificationEvent() 
            ' here we should check to see various notifications of new and ended calls 
            Select Case CallNotificationObject.Event 
            
                Case CALL_NOTIFICATION_EVENT.CNE_MONITOR 
                    ' the notification is for a monitored call 
                Case CALL_NOTIFICATION_EVENT.CNE_OWNER 
                    ' the notification is for an owned call 
            
            End Select 
        End Sub 

        Private CallStateObject As ITCallStateEvent 
        Private Sub CallStateEvent() 
            ' here we should check to see call state and handle connects and disconnects 
            Select Case CallStateObject.State 
            
                Case CALL_STATE.CS_IDLE 
                Case CALL_STATE.CS_INPROGRESS 
                Case CALL_STATE.CS_OFFERING 
                    ' a call is offering so if you don't want it then pass it 
                    ' The code to pass the call is the following 
                    ' Dim CallControl As ITBasicCallControl = CallStateObject.Call 
                    ' CallControl.HandoffIndirect (CallStateObject.Call.CallInfoLong_
                                            (CALLINFO_LONG.CIL_MEDIATYPESAVAILABLE) 
                Case CALL_STATE.CS_CONNECTED 
                    ' call is connected 
                Case CALL_STATE.CS_QUEUED 
                    ' call is being queued 
                Case CALL_STATE.CS_HOLD 
                    ' call is on hold 
                Case CALL_STATE.CS_DISCONNECTED 
                    ' call is disconnected 
            
            End Select 
        End Sub 

        Private CallInfoObject As ITCallInfoChangeEvent 
        Private Sub CallInfoEvent() 
            ' here you can extract information from the call 
            ' the code to extract the caller ID 
            ' >>> put the following code in a try block and 
            ' swallow the exception if it gives errors 
            Dim CallerID As String 
            CallerID = CallInfoObject.Call.CallInfoString_
                    (CALLINFO_STRING.CIS_CALLERIDNAME) 
        End Sub 

    End Class 
End Namespace

History

  • 7th August, 2005: Initial post

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Share

About the Author

Bishoy Demian
Software Developer (Senior) Readify
Australia Australia
Dreamer, Technology Evangelist, have a passion for software architecture and design patterns an hope everyone does so.
 
I've been working in this field for many years and still expect to learn more and do more in my career and would love to see others do too.
 
I live in Cairo, Egypt and work for a leading International Company developing strategic decisions and executing them with many teams to achieve company goals in Software market, and use my favorite programming language C# and .NET framework sometimes to research and create hobby projects.
 
Wish you enjoyed knowing about me Wink | ;)
Follow on   Twitter

Comments and Discussions

 
QuestionConsole closes PinmemberMarcel Walser29-Nov-13 23:20 
QuestionHOWTO ... answer an incomming Call Pinmemberbeckiemkf8-Aug-13 0:55 
QuestionNo event raized when incoming call [modified] PinmemberJul67ien30-Jun-13 23:28 
AnswerRe: No event raized when incoming call PinmemberBishoy Demian1-Jul-13 13:57 
GeneralRe: No event raized when incoming call [modified] PinmemberJul67ien2-Jul-13 23:17 
GeneralRe: No event raized when incoming call Pinmemberbeckiemkf11-Jul-13 12:47 
GeneralMy vote of 4 PinmemberNujramako3-Mar-12 0:59 
GeneralMy vote of 1 PinmemberTechnorodent9-Feb-11 11:41 
GeneralMy vote of 1 PinmemberBenJamming2-Jan-11 16:53 
GeneralHelp me profeor PinmemberAshkanJami20-Oct-10 22:50 
Generalcall center system develop help needed PinmemberChesterAV12-Oct-10 10:28 
GeneralTAPI "BlindTransfer" Problem Pinmemberzendehdel22-Jun-10 0:03 
GeneralVisual Basic 2008 / .NET 3.5 / TAPI3 - INCOMMING CALL [EXAMPLE CODE] PinmemberTomGermany201031-Mar-10 1:14 
GeneralRe: Visual Basic 2008 / .NET 3.5 / TAPI3 - INCOMMING CALL [EXAMPLE CODE] Pinmemberwiswalld9-Dec-10 9:02 
GeneralRe: Visual Basic 2008 / .NET 3.5 / TAPI3 - INCOMMING CALL [EXAMPLE CODE] Pinmemberbeckiemkf8-Jul-13 23:55 
GeneralMy vote of 1 PinmemberTomGermany201018-Mar-10 1:08 
GeneralRe: My vote of 1 PinmemberBishoy Ghaly18-Mar-10 7:12 
GeneralVisual Basic 2008 - frustration PinmemberTomGermany201017-Mar-10 1:01 
GeneralRe: Visual Basic 2008 - frustration PinmemberBishoy Ghaly18-Mar-10 7:09 
GeneralRe: Visual Basic 2008 - frustration PinmemberTomGermany201030-Mar-10 0:31 
GeneralVB .NET PinmemberOppVen3-Jun-11 5:30 
GeneralQuestion using windows XP built in dialer.exe to initiate calls PinmemberMegrim0326-Nov-09 6:33 
GeneralMy vote of 1 Pinmemberalbert_cook11-Aug-09 22:54 
GeneralNeed help Pinmemberkshirsagar15-Jun-09 20:27 
Generalplease explain this code, surely it is an error Pinmemberedt12311-May-09 10:35 
AnswerRe: please explain this code, surely it is an error PinmemberThe Code Guru15-May-09 6:53 
General[Message Deleted] Pinmemberit.ragester28-Mar-09 6:37 
Questionhow do i use this Pinmembertheboytony20-Feb-09 9:50 
GeneralNeed a Code to Receive Calls Using External Fax Model Pinmembershirin.105-Dec-08 2:43 
Generaltapi events stop reciving events... Pinmemberaltarribage29-Oct-08 7:23 
GeneralRe: tapi events stop reciving events... PinmemberThe Code Guru1-Nov-08 20:58 
GeneralTTERMINAL namespace Pinmemberjoshi aniruddha25-Sep-08 20:08 
GeneralNo incoming calls are notifed Pinmembervbnetskywalker22-Sep-08 10:20 
QuestionTAPI and fax Pinmemberstefkhel7-Sep-08 6:36 
GeneralTelephony Application Programming Interface (TAPI) functionality is not supported from managed code Pinmemberkiener9-Jul-08 23:06 
GeneralVirtual Caller ID Pinmemberismailwissam25-Jun-08 4:27 
Newssupport for the article PinmemberThe Code Guru14-Jun-08 13:01 
QuestionIs there a identifer for each call in TAPI? PinmemberCarsten Giesen8-Jun-08 22:16 
GeneralStart project in VB.Net 2005 [modified] PinmemberCarsten Giesen5-Jun-08 7:05 
GeneralEvent and Disconnection Problem PinmemberRoSchVB.NET1-Apr-08 7:18 
GeneralError PinmemberLoops697228-Mar-08 6:22 
Questionvs 2005 Pinmemberameen55521-Mar-08 1:37 
Generalplay a wave file after answer the incoming call Pinmemberdida14-Mar-08 8:01 
GeneralRe: play a wave file after answer the incoming call Pinmembermakwana.ashish10-Aug-08 8:59 
GeneralStrange Event Problem PinmemberAbulfar27-Feb-08 7:02 
GeneralRe: Strange Event Problem PinmemberAbulfar27-Feb-08 8:29 
GeneralRe: Strange Event Problem PinmemberThe Code Guru27-Feb-08 10:57 
GeneralRe: Strange Event Problem PinmemberAbulfar28-Feb-08 4:33 
GeneralRe: Strange Event Problem PinmemberThe Code Guru28-Feb-08 6:20 
GeneralRe: Strange Event Problem PinmemberAbulfar28-Feb-08 14:33 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.

| Advertise | Privacy | Terms of Use | Mobile
Web04 | 2.8.141216.1 | Last Updated 7 Aug 2005
Article Copyright 2005 by Bishoy Demian
Everything else Copyright © CodeProject, 1999-2014
Layout: fixed | fluid