📄 ch26.htm
字号:
structdata <font FACE="ZAPFDINGBATS">Â</font>As LINEADDRESSCAPS, ByVal ExtraData As
String)<br>
Declare Sub LineCallInfoFunc Lib "pstapidll32" (ByVal nMode As Long, structdata
As <font FACE="ZAPFDINGBATS">Â</font>LINECALLINFO, ByVal ExtraData As String)<br>
Declare Sub LineCallStatusFunc Lib "pstapidll32" (ByVal nMode As Long,
structdata <font FACE="ZAPFDINGBATS">Â</font>As LINECALLSTATUS, ByVal ExtraData As
String)<br>
Declare Sub LineCallListFunc Lib "pstapidll32" (ByVal nMode As Long, structdata
As <font FACE="ZAPFDINGBATS">Â</font>LINECALLLIST, ByVal ExtraData As String)<br>
Declare Sub LineDevCapsFunc Lib "pstapidll32" (ByVal nMode As Long, structdata
As <font FACE="ZAPFDINGBATS">Â</font>LINEDEVCAPS, ByVal ExtraData As String)<br>
Declare Sub VarStringFunc Lib "pstapidll32" (ByVal nMode As Long, structdata As <font
FACE="ZAPFDINGBATS">Â</font>VARSTRING, ByVal ExtraData As String) <br>
Declare Sub LineDevStatusFunc Lib "pstapidll32" (ByVal nMode As Long, structdata
As <font FACE="ZAPFDINGBATS">Â</font>LINEDEVSTATUS, ByVal ExtraData As String)<br>
Declare Sub LineTranslateCapsFunc Lib "pstapidll32" (ByVal nMode As Long, <font
FACE="ZAPFDINGBATS">Â</font>structdata As LINETRANSLATECAPS, ByVal ExtraData As
String)<br>
Declare Sub LineMonitorToneFunc Lib "pstapidll32" (ByVal nMode As Long,
structdata <font FACE="ZAPFDINGBATS">Â</font>As LINEMONITORTONE)<br>
Declare Sub LineExtensionIDFunc Lib "pstapidll32" (ByVal nMode As Long,
structdata <font FACE="ZAPFDINGBATS">Â</font>As LINEEXTENSIONID)<br>
Declare Sub LineDialParmsFunc Lib "pstapidll32" (ByVal nMode As Long, structdata
As <font FACE="ZAPFDINGBATS">Â</font>LINEDIALPARAMS)<br>
Declare Sub LineMediaControlDigitFunc Lib "pstapidll32" (ByVal nMode As Long, <font
FACE="ZAPFDINGBATS">Â</font>structdata As LINEMEDIACONTROLDIGIT) <br>
Declare Sub LineTranslateOutputFunc Lib "pstapidll32" (ByVal nMode As Long, <font
FACE="ZAPFDINGBATS">Â</font>structdata As LINETRANSLATEOUTPUT, ByVal ExtraData As
String)<br>
Declare Sub LineAddressStatusFunc Lib "pstapidll32" (ByVal nMode As Long, <font
FACE="ZAPFDINGBATS">Â</font>structdata As LINEADDRESSSTATUS, ByVal ExtraData As
String)<br>
<br>
'<br>
' constants for read/write of params<br>
'<br>
Global Const TAPI_WRITE = 0<br>
Global Const TAPI_READ = 1</font></tt> </p>
</blockquote>
<hr>
<p>You'll notice that the global constants for <tt><font FACE="Courier">TAPI_WRITE</font></tt>
and <tt><font FACE="Courier">TAPI_READ</font></tt> appear at the end of the DLL
declarations. These are used for the <tt><font FACE="Courier">nMode</font></tt> parameter
of the DLL calls. </p>
<p>After the DLL declares, you'll see a list of TAPI error message values that could be
returned. Listing 26.5 shows the error values that appear in the <tt><font FACE="Courier">TAPILINE.BAS</font></tt>
module. </p>
<hr>
<blockquote>
<b><p>Listing 26.5. The TAPI error message values.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>'<br>
' ************************************************<br>
' general TAPI constants<br>
' ************************************************<br>
'<br>
Global Const TAPI_REPLY = &H400& + 99&<br>
<br>
Global Const TAPIERR_CONNECTED = 0&<br>
Global Const TAPIERR_DROPPED = -1&<br>
Global Const TAPIERR_NOREQUESTRECIPIENT = -2&<br>
Global Const TAPIERR_REQUESTQUEUEFULL = -3&<br>
Global Const TAPIERR_INVALDESTADDRESS = -4&<br>
Global Const TAPIERR_INVALWINDOWHANDLE = -5&<br>
Global Const TAPIERR_INVALDEVICECLASS = -6&<br>
Global Const TAPIERR_INVALDEVICEID = -7&<br>
Global Const TAPIERR_DEVICECLASSUNAVAIL = -8&<br>
Global Const TAPIERR_DEVICEIDUNAVAIL = -9&<br>
Global Const TAPIERR_DEVICEINUSE = -10&<br>
Global Const TAPIERR_DESTBUSY = -11&<br>
Global Const TAPIERR_DESTNOANSWER = -12&<br>
Global Const TAPIERR_DESTUNAVAIL = -13&<br>
Global Const TAPIERR_UNKNOWNWINHANDLE = -14&<br>
Global Const TAPIERR_UNKNOWNREQUESTID = -15&<br>
Global Const TAPIERR_REQUESTFAILED = -16&<br>
Global Const TAPIERR_REQUESTCAncELLED = -17&<br>
Global Const TAPIERR_INVALPOINTER = -18&<br>
Global Const TAPIMAXDESTADDRESSSIZE = 80&<br>
Global Const TAPIMAXAPPNAMESIZE = 40&<br>
Global Const TAPIMAXCALLEDPARTYSIZE = 40&<br>
Global Const TAPIMAXCOMMENTSIZE = 80&<br>
Global Const TAPIMAXDEVICECLASSSIZE = 40&<br>
Global Const TAPIMAXDEVICEIDSIZE = 40&</font></tt> </p>
</blockquote>
<hr>
<p>Next, there is the list of callback message values. These will be used to check the <tt><font
FACE="Courier">MessageID</font></tt> values returned in the <tt><font FACE="Courier">TapiCallBack</font></tt>
event of the <tt><font FACE="Courier">TAPILINE</font></tt> control. Listing 26.6 shows the
list of 14 possible messages. </p>
<hr>
<blockquote>
<b><p>Listing 26.6. The <tt><font FACE="Courier">TAPICallBack</font></tt> message Ids.<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>'<br>
' Line callback messages<br>
'<br>
Global Const LINE_ADDRESSSTATE = 0&<br>
Global Const LINE_CALLINFO = 1&<br>
Global Const LINE_CALLSTATE = 2&<br>
Global Const LINE_CLOSE = 3&<br>
Global Const LINE_DEVSPECIFIC = 4&<br>
Global Const LINE_DEVSPECIFICFEATURE = 5&<br>
Global Const LINE_GATHERDIGITS = 6&<br>
Global Const LINE_GENERATE = 7&<br>
Global Const LINE_LINEDEVSTATE = 8&<br>
Global Const LINE_MONITORDIGITS = 9&<br>
Global Const LINE_MONITORMEDIA = 10&<br>
Global Const LINE_MONITORTONE = 11&<br>
Global Const LINE_REPLY = 12&<br>
Global Const LINE_REQUEST = 13&</font></tt> </p>
</blockquote>
<hr>
<h3><a NAME="TheLineStructuresandConstants">The Line Structures and Constants</a></h3>
<p>There are numerous constants and declarations needed to support all the TAPI line
device functions. There are too many to include here, but one is shown in Listing 26.7 to
give you an example. </p>
<hr>
<blockquote>
<b><p>Listing 26.7. An example line constant and type declaration. <br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Global Const LINEADDRCAPFLAGS_FWDNUMRINGS = &H1&<br>
Global Const LINEADDRCAPFLAGS_PICKUPGROUPID = &H2&<br>
Global Const LINEADDRCAPFLAGS_SECURE = &H4&<br>
Global Const LINEADDRCAPFLAGS_BLOCKIDDEFAULT = &H8&<br>
Global Const LINEADDRCAPFLAGS_BLOCKIDOVERRIDE = &H10& <br>
Global Const LINEADDRCAPFLAGS_DIALED = &H20&<br>
Global Const LINEADDRCAPFLAGS_ORIGOFFHOOK = &H40&<br>
Global Const LINEADDRCAPFLAGS_DESTOFFHOOK = &H80&<br>
Global Const LINEADDRCAPFLAGS_FWDCONSULT = &H100&<br>
Global Const LINEADDRCAPFLAGS_SETUpcONFNULL = &H200&<br>
Global Const LINEADDRCAPFLAGS_AUTORECONNECT = &H400&<br>
Global Const LINEADDRCAPFLAGS_COMPLETIONID = &H800&<br>
Global Const LINEADDRCAPFLAGS_TRANSFERHELD = &H1000&<br>
Global Const LINEADDRCAPFLAGS_TRANSFERMAKE = &H2000&<br>
Global Const LINEADDRCAPFLAGS_CONFEREncEHELD = &H4000& <br>
Global Const LINEADDRCAPFLAGS_CONFEREncEMAKE = &H8000& <br>
Global Const LINEADDRCAPFLAGS_PARTIALDIAL = &H10000<br>
Global Const LINEADDRCAPFLAGS_FWDSTATUSVALID = &H20000<br>
Global Const LINEADDRCAPFLAGS_FWDINTEXTADDR = &H40000<br>
Global Const LINEADDRCAPFLAGS_FWDBUSYNAADDR = &H80000<br>
Global Const LINEADDRCAPFLAGS_AccEPTTOALERT = &H100000<br>
Global Const LINEADDRCAPFLAGS_CONFDROP = &H200000<br>
Global Const LINEADDRCAPFLAGS_PICKUpcALLWAIT = &H400000<br>
<br>
Type LINEADDRESSCAPS<br>
dwTotalSize As Long<br>
dwNeededSize As Long<br>
dwUsedSize As Long<br>
<br>
dwLineDeviceID As Long<br>
<br>
dwAddressSize As Long<br>
dwAddressOffset As Long<br>
<br>
dwDevSpecificSize As Long<br>
dwDevSpecificOffset As Long<br>
<br>
dwAddressSharing As Long<br>
dwAddressStates As Long<br>
dwCallInfoStates As Long<br>
dwCallerIDFlags As Long<br>
dwCalledIDFlags As Long<br>
dwConnectedIDFlags As Long<br>
dwRedirectionIDFlags As Long<br>
dwRedirectingIDFlags As Long<br>
dwCallStates As Long<br>
dwDialToneModes As Long<br>
dwBusyModes As Long<br>
dwSpecialInfo As Long<br>
dwDisconnectModes As Long<br>
<br>
dwMaxNumActiveCalls As Long<br>
dwMaxNumOnHoldCalls As Long<br>
dwMaxNumOnHoldPendingCalls As Long<br>
dwMaxNumConference As Long<br>
dwMaxNumTransConf As Long<br>
<br>
dwAddrCapFlags As Long<br>
dwCallFeatures As Long<br>
dwRemoveFromConfCaps As Long<br>
dwRemoveFromConfState As Long<br>
dwTransferModes As Long<br>
dwParkModes As Long<br>
<br>
dwForwardModes As Long<br>
dwMaxForwardEntries As Long<br>
dwMaxSpecificEntries As Long<br>
dwMinFwdNumRings As Long<br>
dwMaxFwdNumRings As Long<br>
<br>
dwMaxCallCompletions As Long<br>
dwCallCompletionConds As Long<br>
dwCallCompletionModes As Long<br>
dwNumCompletionMessages As Long<br>
dwCompletionMsgTextEntrySize As Long<br>
dwCompletionMsgTextSize As Long<br>
dwCompletionMsgTextOffset As Long<br>
End Type<br>
Global Const LINEADDRESSCAPS_FIXEDSIZE = 176<br>
<br>
Type LINEADDRESSCAPS_STR<br>
Mem As String * LINEADDRESSCAPS_FIXEDSIZE <br>
End Type</font></tt> </p>
</blockquote>
<hr>
<p>You'll notice a set of constants that appear before the type declaration. These can be
used to set various TAPI parameters within the data structure. Some declarations are
return values that can be read once TAPI has set or modified the data within the
structure. The <tt><font FACE="Courier">TAPILINE.BAS</font></tt> module contains many of
these sets of constants and data structure declarations. The <tt><font FACE="Courier">VBTAPI</font></tt>
folder also contains a similar module for phone device declarations. Although the <tt><font
FACE="Courier">TAPILINE</font></tt> control currently only supports line devices, a future
version may provide support for phone devices. </p>
<p>For now, you can load the <tt><font FACE="Courier">TAPILINE.BAS</font></tt> module into
your Visual Basic programs that use the <tt><font FACE="Courier">TAPILINE.OCX</font></tt>
control. </p>
<h2><a NAME="TheTAPILineFunctionModule"><font SIZE="5" COLOR="#FF0000">The </font><tt><font
SIZE="5" COLOR="#FF0000" FACE="Courier">TAPILine</font></tt><font SIZE="5" COLOR="#FF0000">
Function Module</font></a></h2>
<p>The <tt><font FACE="Courier">TAPICALL.BAS</font></tt> module contains several routines
needed to support TAPI calls using <tt><font FACE="Courier">TAPILINE.OCX</font></tt> and
the <tt><font FACE="Courier">PSTAPIDLL</font></tt> file. Again, typing them all in is
boring. Instead, this section reviews several of the more important example routines. You
can load the <tt><font FACE="Courier">TAPICALL.BAS</font></tt> module into your Visual
Basic projects and use these routines without having to re-enter all the code. </p>
<h3><a NAME="TheTAPICallBackHandlerFunction">The <tt><font SIZE="4" FACE="Courier">TAPICallBackHandler</font></tt><font
SIZE="4"> Function</font></a></h3>
<p>The most important routine in the <tt><font FACE="Courier">TAPICALL.BAS</font></tt>
module is the <tt><font FACE="Courier">TAPICallBackHandler</font></tt> function. This
routine takes the parameters returned in the <tt><font FACE="Courier">TAPICallBack</font></tt>
event of the <tt><font FACE="Courier">TAPILINE.OCX</font></tt> and dispatches messages
based on the return values. Listing 26.8 shows the code for the <tt><font FACE="Courier">TAPICallBackHandler</font></tt>.
</p>
<hr>
<blockquote>
<b><p>Listing 26.8. Code for the <tt><font FACE="Courier">TAPICallBackHandler</font></tt>
function.<br>
<br>
</b></p>
</blockquote>
<blockquote>
<tt><font FACE="Courier"><p>Public Function TapiCallBackHandler(hDevice As Long, dwMessage
As Long, dwInstance As Long, dwParam1 As Long, dwParam2 As Long, dwParam3 As Long) As
String<br>
'<br>
' handle messages from TAPI control<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -