able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/net/tapi/skywalker/h323/test/fdemo.htm

2021 lines
60 KiB
HTML
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
<!-- This page allow the user to originate a call from a given address and using the selected address type
This sample is also able to accept incoming calls.
What is covered by this sample:
1. Address enumerations and registering on address in order to receive call notifications
2. Call operations: create, connect, answer, disconnect
3. Setting application priority (which application will receive notifications about incoming calls)
4. Processing of TAPI events.
5. QOS usage.
6. Call forwarding setup (minimal)
What is not covered:
This page does not manage the positioning of video windows.
(In order to do this, you can change the sample to use an ActiveX control that is able
to set properties in IVideoWindow. This requires window handle values - HWND - which
are not available in vbscripting).
-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<html>
<head>
</head>
<meta content="text/html; charset=unicode" http-equiv="Content-Type">
<title>Call operations</title>
<SCRIPT LANGUAGE="JavaScript"><!--
var ua = navigator.userAgent;
var an = navigator.appName;
// Is it IE?
bMSIE = (ua.indexOf("MSIE")>=1);
if (! bMSIE)
{
alert("You need to use IE to run this page");
window.close;
}
//-->
</SCRIPT>
<script LANGUAGE="VbScript">
Const CallerName ="name1"
'Constants section
'These constants are copied from tapi3if.idl
Const TAPIMEDIAMODE_AUDIO = &H08&
Const TAPIMEDIAMODE_VIDEO = &H8000&
Const S_MEDIA_AUDIOVIDEO = &H8008&
Const TD_CAPTURE = 0
Const TD_RENDER = 1
Const QSL_NEEDED = 1
Const AS_INSERVICE = 0
Const DC_NORMAL = 0
Const TE_CALLSTATE = 8
Const TE_CALLNOTIFICATION = 4
Const TE_DIGITEVENT = &H00008000&
Const CS_DISCONNECTED = 3
Const CS_IDLE = 0
Const CS_OFFERING = 4
Const CS_CONNECTED = 2
Const CNE_OWNER = 0
Const CIS_CALLERIDNAME = 0
Const CIS_CALLERIDNUMBER = 1
Const CIS_REDIRECTINGIDNAME = 8
Const CIS_REDIRECTINGIDNUMBER = 9
Const CIS_DISPLAYABLEADDRESS = 12
Const CIS_COMMENT = 11
Const CIS_CALLINGPARTYID = 13
Const CIS_CALLEDPARTYFRIENDLYNAME = 10
Const CIL_REASON = 8
Const LINEDIGITMODE_DTMF = 2
'Interface IDs for casting
'Note: you can find the following IID-s in tapi3.idl, tapi3if.idl or rend.idl
Const IID_String_ITMediaSupport = "{B1EFC384-9355-11D0-835C-00AA003CCABD}"
Const IID_String_ITTerminalSupport="{B1EFC385-9355-11D0-835C-00AA003CCABD}"
Const IID_String_ITBasicCallControl = "{B1EFC389-9355-11D0-835C-00AA003CCABD}"
'Const IID_String_ITCallInfo = "{B1EFC390-9355-11d0-835C-00AA003CCABD}"
'New interface
Const IID_String_ITCallInfo = "{350F85D1-1227-11D3-83D4-00C04FB6809F}"
Const IID_String_ITStreamControl= "{EE3BD604-3868-11D2-A045-00C04FB6809F}"
Const IID_String_ITDirectoryObjectConference= "{F1029E5D-CB5B-11D0-8D59-00C04FD91AC0}"
Const IID_String_ITCallStateEvent = "{62F47097-95C9-11d0-835D-00AA003CCABD}"
Const IID_String_ITCallNotificationEvent = "{895801DF-3DD6-11d1-8F30-00C04FB6809F}"
Const IID_String_ITDigitDetectionEvent = "{80D3BFAC-57D9-11d2-A04A-00C04FB6809F}"
' IID of IVideoWindow
' Note: you can find this IID defined in control.h (from your sdk\inc directory),
' which contains the interface to type library QuartzTypeLib for quartz.dll;
' (search for the interface IVideoWindow)
Const IID_String_IVideoWindow = "{56A868B4-0AD4-11CE-B03A-0020AF0BA770}"
' The following CLSID is defined in tapi3.h
'(and it's used for creating a terminal of class "video window terminal")
Const CLSID_String_VideoWindowTerm = "{F7438990-D6EB-11d0-82A6-00AA00B5CA1B}"
'****************************************************************************
'Global variable section
'****************************************************************************
DIM spITAddress
spITAddress = Empty
'Set on True when we are unable to complete the connecting phase, to skip rest of processing
DIM sUnableToComplete
DIM sbNeedToExit
sUnableToComplete = False
sbNeedToExit = False
' If we want to receive incoming calls, we have to register on the corresponding addresses.
'We don't really use the values returned by registration (they are supposed to be used
'for unregistration), because Unregistration is performed automatically when we shutdown the TAPI object
'The variable pRegisteredCallNotification is an array that contains cookies returned by RegisterCallNotifications;
'these would normally be used to call UnregisterNotifications.
'The variable pRegisteredName holds correspondent AddressName
DIM pRegisteredCallNotification(50)
DIM pRegisteredName(50)
DIM iQtaRegistered
iQtaRegistered = 0
'Set by radio button "Select Address Type"
DIM sCurrentAddressType
sCurrentAddressType = -1
' This variable will hold a references to the currently established calls
Const MaxCallNumber = 20
DIM spITCall(20)
DIM spCallState(20)
DIM spCallerCallee(20)
DIM spTerminalState(20)
DIM spDtmfDetected(20)
DIM spCallOnHold(20)
spTerminalsNumber = 0
DIm pVideoWindow1
DIm pVideoWindow2
DIM FwdType
FwdType = 0
</script>
<script ID="clientEventHandlersVBS" LANGUAGE="vbscript">
'Simplest error processing
Sub CheckError(strMsg)
if not Err.number = 0 Then
MsgBox strMsg & ":" & Err.number & ";"&Err.description
sbNeedToExit = True
Err.Clear
End If
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
' Enumerate addresses, register for incoming calls and fill listbox
Sub window_onload
On Error Resume Next
' If TAPI object is not initialized, we can't do anything, so exit.
If sUnableToComplete = True Then
Exit Sub
End If
radioFType.value = ""
'Listen on ALL available addresses
DIM intTmp
intTmp = Find_Address_And_Register()
If sbNeedToExit Then
Exit Sub
End If
If intTmp = 0 Then
MsgBox "Unable to find any valid address. Try to reload page.",0,"Initializing"
Exit Sub
End If
' Select first address option
selAddress.options(0).selected = True
call changeOptionsState()
Call PopulateFwdRules
window.status = "Done."
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
' Find all addresses that have state "in service" and have at least audio capabilities.
' Register the app as "owner" on all these addresses
' Return number of addresses for which we registered...
Function Find_Address_And_Register()
On Error Resume Next
DIM bUsefulAddress
DIM bSupportVideoOrAudio
DIM bSupportVideo
Find_Address_And_Register = 0
For Each pITAddress in TAPIOBJ.Addresses
bUsefulAddress = False
if pITAddress.State = AS_INSERVICE Then
'Check if this address supports Audio or Video
'Obtain ITMediaSupport
DIM pITMediaSupport
Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
IID_String_ITMediaSupport,pITAddress)
'If this address does not support streaming
'(such as the addresses exposed by RemoteSP, data modems, etc,)
'skip it
if not Err.number = 0 Then
Err.Clear
Else
'Check if audio or video are supported
bSupportVideo = pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)
bSupportVideoOrAudio = _
pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_AUDIO) or bSupportVideo
call CheckError("Find_Address_And_Register:ITMediaSupport.QueryMediaType" )
bUsefulAddress = bSupportVideoOrAudio
End If
End If
if bUsefulAddress and pITAddress.AddressName="H323 Line" Then
' This address should be used:
' register the application to receive notifications on this address
iQtaRegistered = iQtaRegistered + 1
Set spITAddress = pITAddress
if bSupportVideo Then
modes = S_MEDIA_AUDIOVIDEO
Else
modes = TAPIMEDIAMODE_AUDIO
End If
'Register as Owner of any incoming call
pRegisteredCallNotification(iQtaRegistered) = TAPIOBJ.RegisterCallNotifications(pITAddress,True,True,modes,0)
pRegisteredName(iQtaRegistered) = pITAddress.AddressName
if not Err.number = 0 Then 'Probably this address does not support incoming calls
iQtaRegistered = iQtaRegistered - 1
Err.Clear
Else
Find_Address_And_Register = Find_Address_And_Register + 1
End If
'Fill address list
DIM oOption
Set oOption = document.createElement("OPTION")
oOption.text = pITAddress.AddressName
oOption.value = pITAddress.AddressName
selAddress.add(oOption)
Set oOption = Nothing
End IF
Next
'This section shows how to override Application Priority:
'after the execution of the following lines, our app will always receive incoming calls
'even if there are other running tapi apps that had registered for receiving calls before our app.
call TAPIOBJ.SetApplicationPriority("IEXPLORE.EXE",TAPIMEDIAMODE_AUDIO,TRUE)
call TAPIOBJ.SetApplicationPriority("IEXPLORE.EXE",TAPIMEDIAMODE_VIDEO,TRUE)
End Function
'******************************************************************
'******************************************************************
'******************************************************************
'fired when user changes selected outgoing address radio button
Sub changeOptionsState
On Error Resume Next
'Find address selected
Selstr = ""
bSupportVideo = false
For i = 0 to selAddress.length - 1
If selAddress.options(i).selected = True Then
selstr = selAddress.options(i).value
Exit For
End If
Next
'Find this address and check if video is supported
For Each pITAddress in TAPIOBJ.Addresses
if pITAddress.AddressName =SelStr Then
'Obtain ITMediaSupport
DIM pITMediaSupport
Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
IID_String_ITMediaSupport,pITAddress)
call CheckError("changeOptionsState:Query ITAddress for ITMediaSupport" )
'Check if video is supported
bSupportVideo = _
pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)
call CheckError("changeOptionsState:ITMediaSupport.QueryMediaType" )
Set pITMediaSupport = Nothing
Exit For
End If
Next
call CheckError("changeOptionsState:After enumerating the Addresses")
checkAOnly.disabled = not bSupportVideo
checkNoOutgoingVideo.disabled = not bSupportVideo
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Check parameters of a call before connecting it
Sub PressConnect
On Error Resume Next
DIM iAddressType
DIM pConnectTo
DIM addressFrom
DIM selStr
' Find new entry in call array
DIM CallNumber
CallNumber = 0
For i = 1 to MaxCallNumber
if IsEmpty(spITCall(i)) Then
CallNumber = i
Exit For
End If
Next
If CallNumber = 0 Then
MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
Exit Sub
End If
If txtAddress.value = "" Then
MsgBox "You have not entered a destination address",0,"connect"
Exit Sub
End If
'Check if type is supplied
if sCurrentAddressType < 0 Then
MsgBox "You have not selected addres type",0,"connect"
Exit Sub
End If
' Address type. This app uses only type = 1 ("Phone") and type = 16 ("ip address")
iAddressType = CInt(sCurrentAddressType)
pConnectTo = txtAddress.value
'Find selected originating address
For i = 0 to selAddress.length - 1
If selAddress.options(i).selected = True Then
addressFrom = selAddress.options(i).value
Exit For
End If
Next
If addressFrom = "" Then
MsgBox "Originating Address is not selected or doesn't exist at all: uable to connect",0,"COnnect"
Exit Sub
End If
Call Connect(CallNumber, pConnectTo,iAddressType,addressFrom,checkAOnly.value="on" or checkAOnly.disabled,checkNoOutgoingVideo.value="on" or checkNoOutgoingVideo.disabled)
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Create Call object, setup terminals, connect call
Sub Connect(CallNumber, pConnectTo,iAddressType,addressFrom,blnAOnly,blnNoOutVideo)
On Error resume Next
sUnableToComplete = False
window.status = "Connecting to " & pConnectTo & "..."
'Create new internal call representation
'Find address selected
DIM pITAddress_Connect
DIM blnFoundAddress
blnFoundAddress = False
DIM pITAddress
For Each pITAddress in TAPIOBJ.Addresses
if pITAddress.AddressName = addressFrom Then
'Obtain ITMediaSupport
DIM pITMediaSupport
Set pITMediaSupport = MAPPER.QueryDispatchInterface(_
IID_String_ITMediaSupport,pITAddress)
call CheckError("connect:Query ITAddress for ITMediaSupport" )
'Check what is supported
bSupportVideo = _
pITMediaSupport.QueryMediaType(TAPIMEDIAMODE_VIDEO)
call CheckError("connect:ITMediaSupport.QueryMediaType" )
blnFoundAddress = True
Set pITAddress_Connect = pITAddress
Exit For
End If
Next
Set pITAddress = Nothing
if not blnFoundAddress Then
MsgBox "Sorry, outgoing address " & addressFrom & "does not exist",0,"Connect"
window.status = "Call to "& pConnectTo & " failed."
Exit Sub
End If
Call UnselectTerminals
Call CheckError("Connect: before CreateCallWindow")
Call CreateCallWindow(pITAddress_Connect,blnAOnly or not bSupportVideo,blnNoOutVideo or not bSupportVideo)
Call CheckError("Connect: after CreateCallWindow")
'Obtain Terminal support
DIM pITTerminalSupport
'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
'IID_String_ITTerminalSupport,pITAddress_Connect)
Set pITTerminalSupport = pITAddress_Connect
call CheckError("connect:Query ITAddress for ITTerminalSuport" )
'Create a Call
DIM MediaTypes
If not bSupportVideo or blnAOnly Then
MediaTypes = TAPIMEDIAMODE_AUDIO
Else
MediaTypes = S_MEDIA_AUDIOVIDEO
End If
Set pCall = pITAddress_Connect.CreateCall(pConnectTo,iAddressType,MediaTypes)
call CheckError("connect:CreateCall" )
window.status = "Configure terminals..."
Call AssignTerminals(CallNumber,pCall,blnAOnly,blnNoOutVideo,True, False)
call CheckError("connect:after AssignTerminals" )
if sUnableToComplete Then
Call DisconnectCall(CallNumber,1)
window.status = "Call to "& pConnectTo & " failed."
Exit Sub
End If
DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _
IID_String_ITCallInfo, pCall)
call CheckError("connect:get CalllInfo from Call" )
'XXXX-XX
pITCallInfo.CallInfoString(CIS_CALLINGPARTYID) = CallerName
call CheckError("connect:Set caller name" )
window.status = "Connecting..."
Call pCall.Connect(false)
' Check for error "invalid address" (see in tapi3err.h TAPI_E_INVALADDRESS=(HRESULT)0x8004000C)
if Err.Number = &H8004000C Then
Err.Clear
Call DisconnectCall(CallNumber,1)
window.status = "Call to "& pConnectTo & " failed: Address is invalid"
Set pCall = Nothing
Else
if not Err.Number = 0 Then
Err.Clear
Call DisconnectCall(CallNumber,1)
window.status = "Call to "& pConnectTo & " failed: error " & Hex(Err.number)
Set pCall = Nothing
Else
Set spITCall(CallNumber) = pCall
spCallState(CallNumber) = "Connecting..."
spCallerCallee(CallNumber) = "To " & pConnectTo
spDtmfDetected(CallNumber) = ""
Call RefreshCallTable
End if
End If
call CheckError("connect:main connect" )
Set pCall = Nothing
End Sub
'
'
' Refreshing Call Table
'
'
Sub RefreshCallTable
On error Resume Next
' Delete all entries
For i = 0 to selectCalls.options.length
selectCalls.remove(0)
Next
For i = 1 to MaxCallNumber
if Not IsEmpty(spITCall(i)) Then
if Not spCallerCallee(i) = "" Then
CallString = spCallerCallee(i) & " " & spCallState(i)
if spCallOnHold(i) Then
CallString = CallString & "(On Hold)"
End If
if spTerminalState(i) Then
CallString = "==>" & CallString
End IF
if Not spDtmfDetected(i) = "" Then
CallString = CallString & " DTMF:" & spDtmfDetected(i)
End If
Set oOption = document.createElement("OPTION")
oOption.text = CallString
oOption.value = i
selectCalls.add(oOption)
End If
End if
Next
End Sub
'*
'* Unselect terminals from the call which has them
'*
'*
Sub UnselectTerminals
On Error Resume Next
'Find call which have terminals selected
ActiveCall = 0
For i = 1 to MaxCallNumber
if spTerminalState(i) = TRUE Then
ActiveCall = i
Exit For
End If
Next
if ActiveCall = 0 Then
Exit Sub
End If
DIM pITStreamControl
'Set pITStreamControl = MAPPER.QueryDispatchInterface(_
'IID_String_ITStreamControl, spITCall(ActiveCall))
Set pITStreamControl = spITCall(ActiveCall)
if Not Err.Number = 0 Then
Err.Clear
Exit Sub
End If
DIM pITStream
DIM lMediaType
DIM lDirection
DIM pITTerminal
Set pVideoWindow1 = Nothing
Set pVideoWindow2 = Nothing
spTerminalsNumber = 0
spTerminalState(ActiveCall) = FALSE
'Unselect all audio terms...
For Each pITStream in pITStreamControl.Streams
pITStream.StopStream
If Not Err.Number = 0 Then ' most likely call is already closed
Err.Clear
Exit Sub
End If
For Each pITTerminal in pITStream.Terminals
pITStream.UnselectTerminal(pITTerminal)
If Not Err.Number = 0 Then ' most likely call is already closed
Err.Clear
End If
Next
Set pITTerminal = Nothing
Next
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' For static terminals: get default static terminal, select it on stream and start the stream
Sub AssignTerminals(CallNumber,pCall, is_no_video, is_no_render,bSetQOS, StartStreams)
On Error Resume Next
' Terminals may already selected somewhere
'Find call which have terminals selected
ActiveCall = 0
For i = 1 to MaxCallNumber
if spTerminalState(i) = TRUE Then
ActiveCall = i
Exit For
End If
Next
if Not ActiveCall = 0 Then
'Exit Sub
End If
DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _
IID_String_ITCallInfo, pCall)
Call CheckError("AssignTerminals:query for pITCallInfo")
DIM pITAddress
Set pITAddress = pITCallInfo.Address
Call CheckError("AssignTerminals:pITCallInfo.Address")
DIM pITTerminalSupport
'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
' IID_String_ITTerminalSupport,pITAddress)
Set pITTerminalSupport = pITAddress
Call CheckError("AssignTerminals:query for pITTerminalSupport")
DIM pITStreamControl
'Set pITStreamControl = MAPPER.QueryDispatchInterface(_
'IID_String_ITStreamControl,pCall)
Set pITStreamControl = pCall
call CheckError("AssignTerminals:Query ITCall for ITStreamControl" )
DIM pITStream
DIM lMediaType
DIM lDirection
'Setup all static terminals: video capture,
' and both audio terminals (microphone and speakers)
For Each pITStream in pITStreamControl.Streams
lMediaType = pITStream.MediaType
lDirection = pITStream.Direction
'Try to find correspondent terminal (if we need one ;))
if not ((is_no_video and lMediaType = TAPIMEDIAMODE_VIDEO) or _
(is_no_render and lMediaType = TAPIMEDIAMODE_VIDEO and lDirection=TD_CAPTURE) ) Then
if (lMediaType = TAPIMEDIAMODE_VIDEO) and (lDirection=TD_RENDER) Then
is_error = false
Else
Set pITTerminal = pITTerminalSupport.GetDefaultStaticTerminal(lMediaType,lDirection)
if not (Err.number = 0) Then 'No such terminal?
is_error = True
Err.Clear
Else
is_error = False
pITStream.SelectTerminal(pITTerminal)
End if
call CheckError("AssignTerminals:SelectTerminal" )
End If
if is_error Then 'Maybe unnecessary
' Maybe join audio only - special case
if (lMediaType = TAPIMEDIAMODE_VIDEO and lDirection=TD_CAPTURE) Then
'MsgBox "Unable to find video capture device: attach video receive only"
Else
if (lMediaType = TAPIMEDIAMODE_AUDIO and lDirection=TD_CAPTURE) Then
'MsgBox "Unable to find audio recording device: attach audio receive only"
Else
MsgBox "Unable to find audio playback device."
Err.Clear
sUnableToComplete = True
Exit Sub
End If
End if
Else 'No errors, start this stream!
'call CheckError("AssignTerminals:StartStream" )
'And now setup specific devices: video windows...
if (lMediaType = TAPIMEDIAMODE_VIDEO ) Then
'for Video Capture we will create a "Preview Window"terminal
'for Video Render we will create a "Video Window" Terminal
if lDirection = 0 Then 'see TD_CAPTURE = 0 in tapi3if.idl
'Preview window
pITStream.SelectTerminal(pVideoWindow2)
call CheckError("AssignTerminals: SelectTerminalStream")
'Show preview window (this will show the video stream sent by our app to the other party)
Dim pIVideoWindow2
Set pIVideoWindow2 = MAPPER.QueryDispatchInterface(IID_String_IVideoWindow, pVideoWindow2)
call CheckError("AssignTerminals: query for IVideoWindow")
pIVideoWindow2.AutoShow = True
'pIVideoWindow2.Visible = TRUE
call CheckError("AssignTerminals: set visibility")
End If
if lDirection = 1 Then 'see TD_RENDER = 1 in tapi3if.idl
pITStream.SelectTerminal(pVideoWindow1)
call CheckError("AssignTerminals: SelectTerminalStream")
'Show window (this will show us the video stream received by our app from the other party)
Dim pIVideoWindow1
Set pIVideoWindow1 = MAPPER.QueryDispatchInterface(IID_String_IVideoWindow, pVideoWindow1)
call CheckError("AssignTerminals: query for IVideoWindow")
pIVideoWindow1.AutoShow = True
'pIVideoWindow1.Visible = TRUE
call CheckError("AssignTerminals: set visibility")
End If
call CheckError("AssignTerminals: SelectTerminalStream")
End If 'Create Preview
End if 'have error
End if 'our Stream
call CheckError("AssignTerminals:GeneralChecking1" )
if StartStreams Then
Call pITStream.StartStream
Err.Clear
End If
Next ' End cycle for ITStreams
spTerminalState(CallNumber) = TRUE
call CheckError("AssignTerminals:Streams cycle problems" )
if bSetQOS Then
'Let's try to setup QoS level for video and audio
if not is_no_video Then
call pCall.SetQOS(TAPIMEDIAMODE_VIDEO,QSL_NEEDED)
call CheckError("AssignTerminals:set QOS_REQUIRED for Video" )
End If
call pCall.SetQOS(TAPIMEDIAMODE_AUDIO,QSL_NEEDED)
call CheckError("AssignTerminals:set QOS_REQUIRED for Audio" )
End IF
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Create two new Video Window terminals
Sub CreateCallWindow(pITAddress, AOnly,NoOutgoingVideo)
On Error Resume Next
'Obtain Terminal support
DIM pITTerminalSupport
'Set pITTerminalSupport = MAPPER.QueryDispatchInterface(_
'IID_String_ITTerminalSupport,pITAddress)
Set pITTerminalSupport = pITAddress
call CheckError("CreateCallWindow:Query ITAddress for ITTerminalSuport" )
if not AOnly Then 'create window for your party
Set pVideoWindow1 = pITTerminalSupport.CreateTerminal(CLSID_String_VideoWindowTerm,TAPIMEDIAMODE_VIDEO,TD_RENDER)
End If
if not AOnly and not NoOutgoingVideo Then
Set pVideoWindow2 = pITTerminalSupport.CreateTerminal(CLSID_String_VideoWindowTerm,TAPIMEDIAMODE_VIDEO,TD_RENDER)
End If 'Create window for preview
call CheckError("CreateCallWindow:GeneralChecking1" )
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Tapi events processing:
' - call state events ("connected", "disconnected")
' - and call notification events (these calls will be in "offering" state)
Sub TAPIOBJ_Event(event_type, tapi_event)
On Error Resume Next
DIM pITCallInfo
DIM pITCall
'MsgBox CStr(event_type)
if event_type = 2 Then
Call PopulateFwdRules
End if
'Check For disconnected call
if event_type = TE_CALLSTATE Then
DIM pITCallStateEvent
Set pITCallStateEvent = MAPPER.QueryDispatchInterface(_
IID_String_ITCallStateEvent,tapi_event)
call CheckError("TAPIOBJ_Event:unable to map" )
iCallState = pITCallStateEvent.State
'MsgBox "Call state" &Cstr(iCallState)
call CheckError("TAPIOBJ_Event:get CallState" )
Set pITCallInfo = pITCallStateEvent.Call
call CheckError("TAPIOBJ_Event:get CallInfo" )
Set pITCall = MAPPER.QueryDispatchInterface( _
IID_String_ITBasicCallControl, pITCallInfo)
call CheckError("TAPIOBJ_Event:get Call from CallInfo" )
if iCallState= CS_DISCONNECTED or iCallState= CS_IDLE Then
cause = pITCallStateEvent.Cause
strinnerHTML = ""
Select Case cause
Case 1 ' CEC_DISCONNECT_NORMAL
' Normal disconnect
Case 2 ' CEC_DISCONNECT_BUSY
strinnerHTML = "Your Party is busy.Try Later."
Case 3 ' CEC_DISCONNECT_BADADDRESS
strinnerHTML = "Address is invalid"
case 4 ' CEC_DISCONNECT_NOANSWER
strinnerHTML = "No answer from your party."
case 0 'CEC_NONE
strinnerHTML = "No answer from your party."
Case Else
strinnerHTML = "Your call is cancelled, rejected or failed"
End Select
window.status = "Done."
'Find call entry
ActiveCall = 0
For i = 1 to MaxCallNumber
if spITCall(i) Is pITCall Then
ActiveCall = i
Exit For
End If
Next
if ActiveCall = 0 Then
'Bogus call : no such call
Exit Sub
End If
if strinnerHTML= "" Then
window.status = "Disconnected"
Else
window.status = strinnerHTML
End if
spCallState(ActiveCall) = window.status
Call UnselectTerminals
Call RefreshCallTable
End If 'Call is disconnected
if iCallState = CS_CONNECTED Then 'Call is connected
window.status = "Call is connected."
'Find call entry
ActiveCall = 0
For i = 1 to MaxCallNumber
if spITCall(i) Is pITCall Then
ActiveCall = i
Exit For
End If
Next
if ActiveCall = 0 Then
'Bogus call : no such call
Exit Sub
End If
spCallState(ActiveCall) = "Connected"
Call RefreshCallTable
' Set digit detection
spITCall(ActiveCall).DetectDigits LINEDIGITMODE_DTMF
call CheckError("connect:Detect digits" )
End If 'Call is connected
End If ' event: call state
'Check only for incoming calls
if event_type = TE_CALLNOTIFICATION Then ' We have an incoming call (an "offering" call)
DIM pITCallNotificationEvent
Set pITCallNotificationEvent = MAPPER.QueryDispatchInterface(_
IID_String_ITCallNotificationEvent,tapi_event)
Call CheckError("TAPIOBJ_Event:query for pITDirectoryObjectUser")
CallOwnership = pITCallNotificationEvent.Event
Set pITCallInfo = pITCallNotificationEvent.Call
Call CheckError("TAPIOBJ_Event:get pITCallInfo")
if not blnShowOnlyOnce and pITCallInfo.CallState = CS_OFFERING and not ( CallOwnership = CNE_OWNER) Then
MsgBox "Unable to accept incoming calls: is other instance of this app running?",0,"Info"
blnShowOnlyOnce = True
Exit Sub
End IF
if CallOwnership = CNE_OWNER Then 'We are the owner!
'Create new call entry
' Find new entry in call array
DIM CallNumber
CallNumber = 0
For i = 1 to MaxCallNumber
if IsEmpty(spITCall(i)) Then
CallNumber = i
Exit For
End If
Next
If CallNumber = 0 Then
MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
Exit Sub
End If
if pITCallInfo.CallState = CS_OFFERING Then 'Offering
sCalleeName = pITCallInfo.CallInfoString(CIS_CALLERIDNAME)
if not Err.number = 0 then ' Caller ID name is not supported
sCalleeName = "Unknown"
Err.Clear
End if
sCallerNumber = pITCallInfo.CallInfoString(CIS_CALLERIDNUMBER)
if not Err.number = 0 then ' Caller ID number is not supported
sCallerNumber = ""
Err.Clear
Else
sCallerNumber = " {" & sCallerNumber & "}"
End If
sCalleeName = sCalleeName & sCallerNumber
sRName2 = pITCallInfo.CallInfoString(CIS_REDIRECTINGIDNAME)
if not Err.number = 0 then
sRName2 = ""
Err.Clear
End If
sRNumber = pITCallInfo.CallInfoString(CIS_REDIRECTINGIDNUMBER)
if not Err.number = 0 then ' Caller ID number is not supported
sRNumber = ""
Err.Clear
Else
sRNumber = " {" & sRNumber & "}"
End If
sRName2 = sRName2 & sRNumber
if not sRName2 = "" Then
' Trying to get forwarding reason
dueTo = ""
reason = pITCallInfo.CallInfoLong( CIL_REASON)
if not Err.number = 0 then ' non che
Err.Clear
Else
'tapi.h:#define LINECALLREASON_FWDBUSY 0x00000002
'tapi.h:#define LINECALLREASON_FWDNOANSWER 0x00000004
'tapi.h:#define LINECALLREASON_FWDUNCOND 0x00000008
if reason = 2 Then
dueTo = " since original caller was busy"
Else
if reason = 4 Then
dueTo = " since original caller does not answer"
End If
End If
End if
sRName2 = " ( Forwarded from " & sRName2 & dueTo &" )"
End if
DIM pITCallOffer
Set pITCallOffer = MAPPER.QueryDispatchInterface( _
IID_String_ITBasicCallControl, pITCallInfo)
Call CheckError("TAPIOBJ_Event:query for pITCall")
Set spITCall(CallNumber) = pITCallOffer
spCallState(CallNumber) = "Offering..."
spCallerCallee(CallNumber) = "Incoming " & sCalleeName &" " & sRName2
spTerminalState(CallNumber) = FALSE
spDtmfDetected(CallNumber) = ""
Call RefreshCallTable
if AutoAnswer.value ="on" Then
Call AcceptIncomingCall(CallNumber,pITCallOffer, pITCallInfo)
End If
End If 'Call is offering
End If 'We are owner
End If 'Call Notification has arrived
'DTMF detection
if event_type = TE_DIGITEVENT Then
DIM pITDigitDetectionEvent
Set pITDigitDetectionEvent = MAPPER.QueryDispatchInterface(_
IID_String_ITDigitDetectionEvent,tapi_event)
Call CheckError("TAPIOBJ_Event:query for pITDigitDetectionEvent")
digit = pITDigitDetectionEvent.Digit
Set pITCallInfo = pITDigitDetectionEvent.Call
call CheckError("TAPIOBJ_Event:get CallInfo" )
Set pITCall = MAPPER.QueryDispatchInterface( _
IID_String_ITBasicCallControl, pITCallInfo)
call CheckError("TAPIOBJ_Event:get Call from CallInfo" )
'Find call entry
ActiveCall = 0
For i = 1 to MaxCallNumber
if spITCall(i) Is pITCall Then
ActiveCall = i
Exit For
End If
Next
if ActiveCall = 0 Then
'Bogus call : no such call
Exit Sub
End If
spDtmfDetected(ActiveCall) = spDtmfDetected(ActiveCall) & Chr(digit)
Call RefreshCallTable
End if
End Sub
'*
'*
'*
'*
Sub AnswerCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _
IID_String_ITCallInfo,spITCall(ActiveCall))
Call CheckError("Get CallInfo from Call in AnswerCall")
Call AcceptIncomingCall(ActiveCall,spITCall(ActiveCall), pITCallInfo)
Call RefreshCallTable
End If
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Sub for incoming calls processing
Sub AcceptIncomingCall(CallNumber,pITCallIncoming,pITCallInfoIncoming)
On Error Resume Next
'Get address
sUnableToComplete = False
DIM pITAddress
Set pITAddress = pITCallInfoIncoming.Address
Call CheckError("AcceptIncomingCall:pITCallInfo.Address")
sname1 = pITCallInfoIncoming.CallerIDName
if not Err.number = 0 Then
sname1 = "Unknown"
Err.Clear
End If
Call CheckError("AcceptIncomingCall:sFriendltName")
Call UnselectTerminals
'sAddressName = pITAddress.AddressName
Call CheckError("AcceptIncomingCall:AddressName")
Call CreateCallWindow(pITAddress,False,False)
Call CheckError("AcceptIncomingCall: after CreateCallWindow")
window.status = "Configure terminals."
Call AssignTerminals(CallNumber,pITCallIncoming,False,False,False, False)
call CheckError("AcceptIncomingCall:after AssignTerminals" )
if sUnableToComplete or sbNeedToExit Then
window.status = ""
pITCallIncoming.Disconnect 6 'rejected
Exit Sub
End If
window.status = "Answering..."
Call pITCallIncoming.Answer()
window.status = "Connected."
call CheckError("AcceptIncomingCall:main connect" )
window.status = "Done."
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Disconnect current call
Sub DisconnectCall(CallNumber,callDisc)
On Error resume Next
if not IsEmpty(spITCall(CallNumber)) Then
if not callDisc = 8 and not callDisc = 0 Then
' We need some kind of message pump here. The following call to MsgBox does exactly this:
MsgBox "A call is disconnected",0,"Disconnect"
End If
Set pVideoWindow1 = Nothing
Set pVideoWindow2 = Nothing
window.status = "You are disconnected"
if callDisc=0 Then
spITCall(CallNumber).Disconnect(DC_NORMAL)
End If
spITCallTransferred(ActiveCall) = Empty
End If
Call RefreshCallTable
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Disconnect call if we have one and shutdown TAPI object on exit from page
Sub window_onunload
On Error Resume Next
Call DisconnectCall(0)
TAPIOBJ.Shutdown
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Used by radio button: address type
Sub change_type
sCurrentAddressType = CInt(window.event.srcElement.value )
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
'small function to change value of checkboxes in a more appropriate
' manner.
Sub togglechk()
'Toggle state of checkbox
If (window.event.srcElement.value = "off") Then
window.event.srcElement.value ="on"
Else
window.event.srcElement.value ="off"
End IF
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
Sub PressCreateRule
buttFCreate.disabled = True
editDestination.value = ""
editCaller.value = ""
FwdInfo.style.visibility = "visible"
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
' Used by radio button: forward type
Sub changeF_type
On Error resume Next
FwdType = CInt(window.event.srcElement.value )
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
Sub FRuleCancel
On Error resume Next
buttFCreate.disabled = False
FwdInfo.style.visibility = "hidden"
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
Sub FRuleCreate
On Error resume Next
if FwdType = 0 Then
MsgBox "Forwarding type is not selected"
Exit Sub
End if
'Find address selected
DIM pITAddress_Connect
Set pITAddress_Connect = spITAddress
call CheckError("Before create" )
Set pCall = pITAddress_Connect.CreateCall("",1,S_MEDIA_AUDIOVIDEO)
call CheckError("CreateCall" )
Set pForwarding = pITAddress_Connect.CreateForwardInfoObject
call CheckError("CreateForwardInfoObject" )
pForwarding.NumRingsNoAnswer = 2
call CheckError("NumRingsNoAnswer" )
if editCaller.value = "" Then
if FwdType = 1 Then
FwdT = 1
elseif FwdType = 2 Then
FwdT = 16
elseif FwdType = 3 Then
FwdT = 256
else
FwdT = 4096
end if
else
if FwdType = 1 Then
FwdT = 8
elseif FwdType = 2 Then
FwdT = 128
elseif FwdType = 3 Then
FwdT = 2048
else
FwdT = 32768
end if
end if
pForwarding.SetForwardType FwdT, editDestination.value, editCaller.value
call CheckError("An error occured while preparing forward information" )
pITAddress_Connect.Forward pForwarding, pCall
call CheckError("An error occured while setting forward information" )
Call FRuleCancel
Call PopulateFwdRules
End Sub
'********************************************************************
'********************************************************************
'********************************************************************
'********************************************************************
Sub PopulateFwdRules
On Error resume Next
' clear select
'Remove all from list
'For i = 0 to selectRules.options.length
' selectRules.remove(0)
'Next
'get forward info
Set CurrentFwd = spITAddress.CurrentForwardInfo
call CheckError("CurrentForwardInfo" )
'now lets find all about it...
FwdT = 1
fRule.innerHTML = ""
For i = 1 to 18
s1 =""
s2 =""
s2 = CurrentFwd.ForwardTypeCaller(FwdT)
call CheckError("GetForwardType" )
s1 = CurrentFwd.ForwardTypeDestination(FwdT)
call CheckError("GetForwardType1" )
if Not (s1 ="") Then
if FwdT = 1 or FwdT = 8 Then
s4 = "always"
elseif FwdT = 16 or FwdT = 128 Then
s4 = "when we are busy"
elseif FwdT = 256 or FwdT = 2048 Then
s4 = "on no answer"
else
s4 = "on no answer or busy"
end if
if Not (Asc(s1) = 63) Then
s5 = "from "& s1 & " "
else
s5 = " "
end if
s3 = "Forward calls "& s5 & s4 & " to "& s2
'Set oOption = document.createElement("OPTION")
'oOption.text = s3
'oOption.value = s3
'selectRules.add(oOption)
fRule.innerHTML = fRule.innerHTML & s3 & "<BR>"
End if
FwdT = FwdT * 2
Next
if fRule.innerHTML = "" Then
fRule.innerHTML = "No rules are active"
End if
End Sub
'
''
''
''
'
'********************************************************************
Function check_call
On Error Resume Next
check_call = True
if selectCalls.value = "" or IsEmpty(selectCalls.value) Then
MsgBox "You need to select call first",0,"Operations"
check_call= False
End if
End Function
'
''
''
''
Sub DeleteCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
Set spITCall(ActiveCall) = Nothing
spITCall(ActiveCall) = Empty
spCallerCallee(ActiveCall) = ""
Call RefreshCallTable
End If
End Sub
'
'
'
'
'
Sub DisconnectThisCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
Call DisconnectCall(ActiveCall, 0)
Call RefreshCallTable
End If
End Sub
'
'
'
'
'
Sub HoldCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
if ISEmpty(spCallOnHold(ActiveCall)) Or spCallOnHold(ActiveCall) = FALSE Then
spCallOnHold(ActiveCall) = TRUE
Else
spCallOnHold(ActiveCall) = FALSE
End If
spITCall(ActiveCall).Hold(spCallOnHold(ActiveCall))
Call CheckError("HoldCall: ITBAsicCallControl.Hold")
Call RefreshCallTable
End If
End Sub
'
'
'
'
'
Sub BlindTransferCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
sDestinationAddress= InputBox("Enter destination for call transfer", "Blind Transfer")
spITCall(ActiveCall).BlindTransfer(sDestinationAddress)
spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(BTRNSF:"&sDestinationAddress& ")"
CheckError("Call BlindTransfer")
End If
End Sub
'
'
'
'
'
Sub RedirectCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
sDestinationAddress= InputBox("Enter new destination for call", "Call Redirection")
spITCall(ActiveCall).BlindTransfer(sDestinationAddress)
spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(Blind TRSFR:"&sDestinationAddress& ")"
CheckError("Call BlindTransfer")
End If
End Sub
'
'
'
'
'
'
Sub SelectTerminals
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
Call UnselectTerminals
DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _
IID_String_ITCallInfo, spITCall(ActiveCall))
Set pITAddress = pITCallInfo.Address
call CheckError("connect:get CalllInfo from Call" )
Call CreateCallWindow(pITAddress,False,False)
Call CheckError("SelectTerminals: after CreateCallWindow")
Call AssignTerminals(ActiveCall,spITCall(ActiveCall),False,False,False, True)
Call RefreshCallTable
End If
End Sub
'
'
'
'
'
Sub TransferCall
'Not yet fully implemented, workaroud for now..
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
sDestinationAddress= InputBox("Enter destination for call transfer", "Transfer")
spCallerCallee(ActiveCall) = spCallerCallee(ActiveCall) & "(TRNSFR:"&sDestinationAddress& ")"
DIM pITCallInfo
Set pITCallInfo = MAPPER.QueryDispatchInterface( _
IID_String_ITCallInfo, spITCall(ActiveCall))
Set pITAddress = pITCallInfo.Address
Set pCall = pITAddress.CreateCall(sDestinationAddress,16, S_MEDIA_AUDIOVIDEO)
CheckError("Call Transfer: Create Call")
Set Call1= spITCall(ActiveCall)
'Unselect Terminals from previous call
'if Not spCallOnHold(ActiveCall) Then
' Call1.Hold(TRUE)
' CheckError("Call Transfer: Hold Call")
' spCallOnHold(ActiveCall) = TRUE
'End If
Call UnselectTerminals
'Set spITCallTransferred(ActiveCall) = pCall
'do not make Call UnselectTerminals
' Find new entry in call array
DIM CallNumber
CallNumber = 0
For i = 1 to MaxCallNumber
if IsEmpty(spITCall(i)) Then
CallNumber = i
Exit For
End If
Next
If CallNumber = 0 Then
MsgBox "Maximum number of calls reached. Disconnect call first",0,"connect"
Exit Sub
End If
Set spITCall(CallNumber) = pCall
spCallState(CallNumber) = "Initiating transfer..."
spCallerCallee(CallNumber) = "To " & pConnectTo
spDtmfDetected(CallNumber) = ""
'Select Terminals
Call CreateCallWindow(pITAddress,False,False)
Call CheckError("Call Transfer: after CreateCallWindow")
window.status = "Configure terminals."
Call AssignTerminals(CallNumber,pCall,False,False,False,False)
call CheckError("Call Transfer:after AssignTerminals" )
Call1.Transfer pCall , FALSE
Call CheckError("CreateTransfer: Transfer")
End If
Call RefreshCallTable
End Sub
Sub FinishTransferCall
On Error Resume Next
if check_call() Then
ActiveCall = selectCalls.value
Set Call1= spITCall(ActiveCall)
'if IsEmpty(spITCallTransferred(ActiveCall)) Then
' MsgBox "Wrong call to finish transfer"
' Exit Sub
' End If
Call1.Finish 0
Call CheckError("FinishTransferCall: Finish")
spITCallTransferred(ActiveCall) = Empty
End If
End Sub
'
'
'
'
DIM sKeypadCall
Sub SendDTMF
if check_call() Then
ActiveCall = selectCalls.value
sKeypadCall = ActiveCall
divKeypad.style.visibility = "visible"
End If
End Sub
Sub CancelDtmf
divKeypad.style.visibility = "hidden"
End Sub
'******************************************************************
'******************************************************************
'******************************************************************
Sub DoClick
On Error Resume Next
window.event.cancelBubble = True
'1. Determine element that is clicked
Set sCurrentlyClickedButton = window.event.srcElement
'2. Change background to blue
sCurrentlyClickedButton.style.background = "blue"
'Send DTMF code
spITCall(sKeypadCall).GenerateDigits sCurrentlyClickedButton.value,2 'DTMF mode
Call CheckError("DoClick:pITLegacyCallMediaControl.GenerateDigits")
sCurrentlyClickedButton.style.background = "gray"
End Sub
</script>
<div id="AllElementsNonSimple" style="position:absolute;top:5px" >
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 0px;width:400px;background:blue;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Dialing center
</p>
<div id="UserSelectionSection" style="position:absolute;Width:300px">
<p style="HEIGHT: 20px; background:#000080;POSITION: absolute; TOP: 20px;width:200px;LEFT:20px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address to call
</p>
<p style="HEIGHT: 20px; POSITION: absolute; background:#000080;TOP: 75px;width:200px;LEFT:20px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address type
</p>
<input id="txtAddress" style="HEIGHT: 30px; POSITION: absolute; TOP: 40px;LEFT:20px;FONT-SIZE:16px;COLOR:black;WIdth:200px">
<div id="divRadioGroup" style="BORDER-BOTTOM: black 2px solid; BORDER-LEFT: black 2px solid; BORDER-RIGHT: black 2px solid; BORDER-TOP: black 2px solid; HEIGHT: 80px; LEFT: 20px; POSITION: absolute; TOP: 100px; WIDTH: 200px">
<font style="COLOR: black; FONT-SIZE: 12px;font-style:oblique">
<input id="radioAddressType" name="radioAddressType" onclick="change_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:10px" type="radio" value="16" title="IP Address">
<input id="radioAddressType" name="radioAddressType" onclick="change_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 40px; LEFT:10px" type="radio" value="1" title="Phone Number">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:40px">
IP Address
</p>
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 40px;LEFT:40px">
Phone Number
</p>
</font>
</div>
</div>
<div id="Separator3" style="position:absolute;BORDER-BOTTOM: blue 2px solid; BORDER-LEFT: blue 2px solid; BORDER-RIGHT: blue 2px solid; BORDER-TOP: blue 2px solid; HEIGHT: 305px; LEFT:405px; POSITION: absolute; TOP: 0px; WIDTH: 0px">
</div>
<div id="PropertiesSelectionSection" style="LEFT:0px;ALIGN:CENTER;position:absolute;top:190px;Width:400px">
<p style="HEIGHT: 10px; POSITION: absolute; TOP: 0px;background:#808080;width:100%;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Originating address and call properties
</p>
<p style="HEIGHT: 20px; POSITION: absolute;background:#000080; TOP: 20px;width:200px;LEFT:0px;FONT-SIZE:16px;COLOR:white;TEXT-ALIGN:center">
Address
</p>
<select id="selAddress" name="selAddress" onchange="changeOptionsState()" style="position:absolute;width:200px;Left:0px;FONT-SIZE:16px;COLOR:black;top:40px">
</select>
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 20px;width:150px;LEFT:200px;FONT-SIZE:16px;COLOR:black;TEXT-ALIGN:center">
Setup audio only
</p>
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 40px;width:150px;LEFT:200px;FONT-SIZE:16px;COLOR:black;TEXT-ALIGN:center">
Setup no video-out
</p>
<input type="checkbox" id="checkAOnly" name="checkAROnly" value="off" onclick="togglechk()" style="HEIGHT: 20px; LEFT: 350px; POSITION: absolute; TOP: 20px; WIDTH: 20px" title="Connect Audio Only">
<input type="checkbox" id="checkNoOutgoingVideo" value="off" onclick="togglechk()" style="HEIGHT: 20px; LEFT: 350px; POSITION: absolute; TOP: 40px; WIDTH: 20px" title="Do not send outgoing video">
</div>
</div>
<INPUT type=button id="buttConnect" style="cursor:hand;LEFt:40px; HEIGHT: 30px; POSITION: absolute; WIDTH: 300px; top:270px" onclick="PressConnect()" value="Create new call" title="Create new call">
<!--p id=ConnANN style="HEIGHT: 20px; POSITION: absolute; TOP: 305px;width:100%;background:blue;LEFT:3px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
</p-->
<hr id=secHr1243 size=1 ALIGN=RIGHT style="color:blue;position:absolute;Top:310px;Left:0px;width:100%">
<div style="HEIGHT: 150px; POSITION: absolute; TOP: 315px;width:100%;LEFT:10px;FONT-SIZE:18px;COLOR:black">
<p style="POSITION: absolute; background:blue; TOP: 10px;width:400px;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Forwarding information
</p>
<P id=FRule style="FONT-SIZE: 16px;color:blue;z-index:10; HEIGHT: 100px; LEFT: 20px; POSITION: absolute; TOP: 35px; WIDTH: 350px;BORDER-BOTTOM: blue 1px solid; BORDER-LEFT: blue 1px solid; BORDER-RIGHT: blue 1px solid; BORDER-TOP: blue 1px solid">
</P>
<INPUT type=button id="buttFCreate" style="cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 350px; top:140px" onclick="PressCreateRule()" value="Create New Forward rule" title="Create New Forward rule">
<!--INPUT type=button id="buttFClear" style="visibility:hidden;cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 200px; top:100px" onclick="PressClearForward()" value="Clear Forwarding" title="Clear Forwarding"-->
<!--hr id=secHr1 size=1 ALIGN=RIGHT style="color:blue;position:absolute;Top:135px;Left:0px;width:300px"-->
<!--p style="POSITION: absolute; TOP: 140px;width:100%;LEFT:50px;FONT-SIZE:18px;COLOR:black">
Current forward rules
</p-->
<!--SELECT size=2 id=selectRules name=selectRules
style="FONT-SIZE: 12px;z-index:10; HEIGHT: 150px; LEFT: 20px; POSITION: absolute; TOP: 160px; WIDTH: 200px">
</SELECT-->
<!--INPUT type=button style="cursor:hand;LEFt:30px; HEIGHT: 20px; POSITION: absolute; WIDTH: 180px; top:320px" onclick="PopulateFwdRules()" value="refresh" title="Refresh Rules"-->
<hr id=secHr1 size=2 ALIGN=RIGHT style="color:blue;position:absolute;Top:180px;Left:0px;width:405px">
<div id="Separator3" style="position:absolute;BORDER-BOTTOM: blue 2px solid; BORDER-LEFT: blue 2px solid; BORDER-RIGHT: blue 2px solid; BORDER-TOP: blue 2px solid; HEIGHT: 250px; LEFT:405px; POSITION: absolute; TOP: -10px; WIDTH: 0px">
</div>
<p style="POSITION: absolute; background:blue; TOP: 190px;width:400px;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center">
Application features
</p>
<input disabled type="checkbox" id="AutoAnswer" name="AutoAnswer" value="off" onclick="togglechk()" style="HEIGHT: 20px; LEFT: 140px; POSITION: absolute; TOP: 220px; WIDTH: 20px" title="Auto Answer">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 220px;LEFT:20px">
Auto Answer
</p>
<!--p style="POSITION: absolute; TOP: 250px;width:100%;LEFT:50px;FONT-SIZE:18px;COLOR:black">
DTMF digits detected
</p>
<P id=DTMFD style="FONT-SIZE: 16px;color:blue;z-index:10; HEIGHT: 100px; LEFT: 20px; POSITION: absolute; TOP: 280px; WIDTH: 200px">
</P-->
<div id=TransfInfo style="visibility:hidden;POSITION: absolute; TOP: 0px;width:350;LEFT:420px;FONT-SIZE:22px;COLOR:black;background-color:grey">
<p style="POSITION: absolute; TOP: 10px;width:350px;LEFT:20px;FONT-SIZE:22px;COLOR:white;background:blue">
Call Transfer
</p>
<p id=transp style="POSITION: absolute; TOP: 50px;width:350px;LEFT:20px;FONT-SIZE:22px;COLOR:black">
</p>
<INPUT type=button style="cursor:hand;LEFt:10px; HEIGHT: 30px; POSITION: absolute; WIDTH: 150px; top:200px" onclick="CreateTransfer()" value="Make Transfer" title="Make Transfer">
<INPUT type=button style="cursor:hand;LEFt:180px; HEIGHT: 30px; POSITION: absolute; WIDTH: 150px; top:200px" onclick="CancelTransfer()" value="Cancel Transfer" title="Cancel Transfer">
</div>
<div id=FwdInfo style="visibility:hidden;POSITION: absolute; TOP: 0px;width:350;LEFT:420px;FONT-SIZE:22px;COLOR:black;background-color:grey">
<p style="POSITION: absolute; TOP: 10px;width:100%;LEFT:20px;FONT-SIZE:22px;COLOR:black">
New Forward Rule
</p>
<p style="POSITION: absolute; TOP: 50px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
Forward to
</p>
<INPUT id="editDestination" style="LEFt:20px; HEIGHT: 25px; POSITION: absolute; WIDTH: 120px; top:70px" >
<p style="POSITION: absolute; TOP: 100px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
When
</p>
<div style="HEIGHT: 200px; LEFT: 20px; POSITION: absolute; TOP: 110px; WIDTH: 300px">
<font style="COLOR: black; FONT-SIZE: 12px;font-style:oblique">
<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:10px" type="radio" value="1" title="Unconditional forward">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 10px;LEFT:40px">
Always
</p>
<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 30px;LEFT:10px" type="radio" value="2" title="Forward when we are busy">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 30px;LEFT:30px">
Forward when we are busy
</p>
<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 50px;LEFT:10px" type="radio" value="3" title="Forward on no answer">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 50px;LEFT:30px">
Forward on no answer
</p>
<input id="radioFType" name="radioFType" onclick="changeF_type()" style="HEIGHT: 20px; POSITION: absolute; TOP: 70px;LEFT:10px" type="radio" value="4" title="Forward on no answer or busy">
<p style="HEIGHT: 20px; POSITION: absolute; TOP: 70px;LEFT:30px">
Forward on no answer or busy
</p>
</font>
</div>
<p style="POSITION: absolute; TOP: 200px;width:100%;LEFT:20px;FONT-SIZE:18px;COLOR:black">
Forward only this caller:
</p>
<INPUT id="editCaller" style="LEFt:20px; HEIGHT: 25px; POSITION: absolute; WIDTH: 120px; top:220px" >
<INPUT type=button id="buttFRule" style="cursor:hand;LEFt:20px; HEIGHT: 30px; POSITION: absolute; WIDTH: 100px; top:250px" onclick="FRuleCreate()" value="Create" title="Create Rule">
<INPUT type=button id="buttFRule" style="cursor:hand;LEFt:140px; HEIGHT: 30px; POSITION: absolute; WIDTH: 100px; top:250px" onclick="FRuleCancel()" value="Cancel" title="Cancel Rule Creation">
</div>
</div>
<div style="position:absolute;top:0px;left:410px">
<p style="POSITION: absolute; TOP: 5px;width:580px;background:blue;LEFT:0px;FONT-SIZE:18px;COLOR:white;TEXT-ALIGN:center;LEFT:20px;FONT-SIZE:18px;COLOR:white">
Call Table
</p>
<SELECT size=2 id=selectCalls name=selectCalls
style="FONT-SIZE: 10px;z-index:10; HEIGHT: 262px; LEFT: 20px; POSITION: absolute; TOP: 40px; WIDTH: 380px">
</SELECT>
<INPUT type=button id="buttAnswer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:35px" onclick="AnswerCall()" value="Answer Call" title="Answer Call">
<INPUT type=button id="buttRedirect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:60px" onclick="RedirectCall()" value="Redirect Call" title="Redirect Call">
<INPUT type=button id="buttBlindTransfer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:85px" onclick="BlindTransferCall()" value="Blind Transfer" title="Blind Transfer">
<INPUT type=button id="buttTransfer" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:110px" onclick="TransferCall()" value="Start Transfer" title="StartTransfer">
<INPUT type=button id="buttDisconnect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:135px" onclick="FinishTransferCall()" value="Finish Transfer" title="Finish Transfer">
<INPUT type=button id="buttDisconnect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:160px" onclick="DisconnectThisCall()" value="Disconnect" title="Disconnect">
<INPUT type=button id="buttHold" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:185px" onclick="HoldCall()" value="Hold/UnHold" title="Hold/UnHold">
<INPUT type=button id="buttUnselect" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:210px" onclick="SelectTerminals()" value="SelectTerminals" title="SelectTerminals">
<INPUT type=button id="buttDelete" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:235px" onclick="DeleteCall()" value="Delete Call" title="Delete Call">
<INPUT type=button id="buttDTMF" style="cursor:hand;LEFt:405px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:260px" onclick="SendDTMF()" value="Send DTMF" title="Send DTMF">
</div>
<div id=divKeypad style="visibility:hidden;HEIGHT: 200px; LEFT: 460px; POSITION: absolute; TOP: 305px; WIDTH: 150px">
<div style="BORDER-BOTTOM: black 2px solid; BORDER-LEFT: black 2px solid;
BORDER-RIGHT: black 2px solid; BORDER-TOP: black 2px solid;
HEIGHT: 180px; LEFT: 0px; POSITION: absolute; TOP: 20px; WIDTH: 150px;background:#000080;">
<INPUT id=butt1 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:20px;width:30px"
value="1">
<INPUT id=butt2 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:60px;width:30px"
value="2">
<INPUT id=butt3 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:10px;left:100px;width:30px"
value="3">
<INPUT id=butt4 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:20px;width:30px"
value="4">
<INPUT id=butt5 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:60px;width:30px"
value="5">
<INPUT id=butt6 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:50px;left:100px;width:30px"
value="6">
<INPUT id=butt7 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:20px;width:30px"
value="7">
<INPUT id=butt8 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:60px;width:30px"
value="8">
<INPUT id=butt9 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:90px;left:100px;width:30px"
value="9">
<INPUT id=buttA onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:20px;width:30px"
value="*">
<INPUT id=butt0 onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:60px;width:30px"
value="0">
<INPUT id=buttD onclick="DoClick()" type=button style="color:white;background:gray;position:absolute;height:30px;top:130px;left:100px;width:30px"
value="#">
<INPUT type=button style="cursor:hand;LEFt:0px; HEIGHT: 25px; POSITION: absolute; WIDTH: 150px; top:200px" onclick="CancelDTMF()" value="Cancel" title="Cancel">
</div>
<!-- Listed objects : TAPI(tapi3.idl), DispatchMapper(tapi3.idl) -->
<object classid="clsid:21D6D48E-A88B-11D0-83DD-00AA003CCABD" id="TAPIOBJ"></object>
<object classid="clsid:E9225296-C759-11d1-A02B-00C04FB6809F" id="MAPPER"></object>
<script LANGUAGE="vbscript">
' Be shure that you call TAPIOBJ.Initialize before window_onload, otherwise you'll
' never receive events from tapi...
On Error Resume Next
window.status = "Initialization phase started..."
call TAPIOBJ.Initialize
sUnableToComplete = False
TAPIOBJ.EventFilter = &H1FFFF&
if Not Err.number = 0 Then
MsgBox "Unable to perform Tapi3 initialization",0,"Init"
sUnableToComplete = True
End If
</script>
</body></html>
Reference in a new issue Copy permalink