Cisco Cisco Computer Telephony Integration Option 9.0 Guide Du Développeur

Chapter 4 Building Your Application

Enabling Silent Monitor in your Application

4-68

Cisco ICM Software CTI OS Developer’s Guide Release 6.0(0)

m_SMManager.StartSilentMonitorRequest(m_Args, m_nSMSessionKey)

End Sub

Private Sub m_session_OnSilentMonitorStatusReportEvent(By Val

pIArguments As CTIOSCLIENTLib.IArguments)

Dim strAgent As String

Dim nMode As Integer

nMode pIArguments.GetValueInt(“StatusCode)

If nMode = eSMStatusMonitorStarted Then strAgent =

pIArguments.GetValueString(“MonitoredUniqueObjectID”)

MsgBox “Silent Monitor Status”,,

“Started Monitoring Agent: ” & strAgent

Else

MsgBox “Silent Monitor Status”,,

“Request Failed with code = ” & nMode

End If

End Sub

Private Sub tmrScreening_Timer()

‘After listening the conversation for 30 sec, drop monitoring session

‘Assemble arguments for stop request

‘Agent to monitor

m_Args.AddItem "SMSessionKey", m_nSMSessionKey

‘Request silent monitor session to stop

m_SMManager.StopSilentMonitorRequest(m_Args, m_nSMSessionKey)

End Sub

Monitored Client Code Sample

Private Sub m_session_OnSilentMonitorStartRequestedEvent(By Val

pIArguments As CTIOSCLIENTLib.IArguments)

Dim strRequestInfo As String

strRequestInfo = pIArguments.DumpArgs

MsgBox “Request to Start Silent Monitor Received”,, strRequestInfo

End Sub

Private Sub m_session_OnSilentMonitorStopRequestedEvent(By Val

pIArguments As CTIOSCLIENTLib.IArguments, bDoDefaultProcessing)

Dim strRequestInfo As String