New Posts New Posts RSS Feed - OnCallConnected  Never Fires
  FAQ FAQ  Forum Search   Events   Register Register  Login Login

Way2call telephony device is your ultimate telephony integration solution!

OnCallConnected Never Fires

 Post Reply Post Reply
Author
iurii View Drop Down
Newbie
Newbie


Joined: Sep 03 2009
Status: Offline
Points: 1
Post Options Post Options   Thanks (0) Thanks(0)   Quote iurii Quote  Post ReplyReply Direct Link To This Post Topic: OnCallConnected Never Fires
    Posted: Sep 03 2009 at 1:05pm
I dont know who to contact but the OnCallConnected event is never being raised.  Any ideas? Here is what I have so far:

Imports Way2call
Imports Way2call.Driver

Module Module1
    Dim w2cDrv As New CWay2callDriver() ' must be shared in classes

    Sub Main()

        Dim iErr As Integer = 0


        Console.WriteLine("Way2call .NET simple console application" & vbLf)
        Console.WriteLine("Initializing driver ..." & vbLf)

        ' add the event handler. note: it is static.
        'CWay2callDriver.OnNativeDeviceEvent += New CWay2callDriver.DelegateNativeDeviceEvent(CWay2callDriver_OnNativeDeviceEvent)

        'CWay2callDriver.OnCallConnected += New CWay2callDriver.DelegateNoParams(CWay2callDriver_OnCallConnected)

        AddHandler CWay2callDriver.OnNativeDeviceEvent, AddressOf CWay2callDriver_OnNativeDeviceEvent
        AddHandler CWay2callDriver.OnCallConnected, AddressOf OnCallConnected

        AddHandler CWay2callDriver.OnCallProgressSIT, AddressOf OnSitTriggered
        '     AddHandler CWay2callDriver.OnLineCurrentDrop, AddressOf OnLineDrop


        iErr = w2cDrv.InitializeDriver(0)
        'must be called
        If DirectCast(CWay2callDriver.Errors.SUCCESS, Integer) <> iErr Then
            Console.WriteLine("Error opening the Way2call driver ...: " + iErr.ToString())
            Return
        End If

        If 0 = w2cDrv.NumDevices Then
            Console.WriteLine("There are no Hi-Phone devices connected to this PC.")
            Return
        End If


        'assume device #0 exists
        iErr = w2cDrv.Device.Open(0)
        'open the device
        ' handle errors ...
        Console.WriteLine("Enter a number to call:")
        Dim sNumber As String = Console.ReadLine()


        Dim iToneId As CWay2callDriver.CDevice.TONE_MONITOR_IDS = CWay2callDriver.CDevice.TONE_MONITOR_IDS.TONE_ID_00
        w2cDrv.Device.ToneMonitor.Tone(iToneId).Duration = 3000
        w2cDrv.Device.ToneMonitor.Tone(iToneId).Frequency1 = 0
        w2cDrv.Device.ToneMonitor.Tone(iToneId).Frequency2 = 0
        w2cDrv.Device.ToneMonitor.Tone(iToneId).Frequency3 = 0
        w2cDrv.Device.ToneMonitor.Tone(iToneId).Enabled = True
        
        w2cDrv.Device.ToneMonitor.Start()
        
        ' the "w" means 'wait for dial tone'.
        iErr = w2cDrv.Device.[Call]("T," + sNumber, True, True)
        ' handle errors ...

        ' wait key press ...
        Console.WriteLine("Calling " + sNumber + ", Press any key to end ..." & vbLf & "  ")

        Console.ReadKey()

        iErr = w2cDrv.Device.Close(0)
        'close the device
        ' handle errors ...
        iErr = w2cDrv.ShutdownDriver(0)
        'must be last called
        ' handle errors ...
    End Sub

    Sub CWay2callDriver_OnNativeDeviceEvent(ByVal DeviceID As UShort, ByVal [Event] As UInteger, ByVal EventData As UInteger, ByVal EventDataEx As UInteger, ByVal pEventBuffer As Byte())
        'Dim w2cDrv As New CWay2callDriver()
        'print the event's description
        Console.WriteLine("{Event: " + w2cDrv.Device(DeviceID).EventDescription([Event], EventData) + "}")

    End Sub
    'Public Sub OnSitTriggered(ByVal DeviceID As UShort)
    '    Console.WriteLine("SIT Triggered")

    'End Sub


    Public Sub OnSitTriggered(ByVal DeviceID As UShort)
        Console.WriteLine("SIT Triggered")

    End Sub


    Public Sub OnCallConnected(ByVal DeviceID As UShort)
        'Dim w2cDrv As New CWay2callDriver() ' must be shared in classes

        'If 0 <> MyCallConnected Then
        '    Return
        'End If
        'event may be fired mutiple times
        'MyCallConnected = 1

        'mark call connected;
        ' unmute local device
        w2cDrv.Device.AudioControl.LocalDeviceToLine = CWay2callDriver.CDevice.CAudioControl.SIGNAL_SWITCH.UnMute

        ' connect local device to both line and PC audio
        w2cDrv.Device.SwitchingMode = CWay2callDriver.CDevice.SwitchingModes.Line_PcAudio_Phone


        ' Play a 'welcome' wave file message
        w2cDrv.Device.Audio.PlayWaveFile("c:\Welcome.wav", 0, w2cDrv.Device.Info.WaveOutDrvID)

    End Sub

End Module

Back to Top
 Post Reply Post Reply

Forum Jump Forum Permissions View Drop Down



This page was generated in 0.109 seconds.