开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 通讯/手机编程 > TAPI编程 > 查看源码
TSPI.pas
资源名称：TAPI.zip　[点击查看]
上传用户：smiteryang
上传日期：2015-03-11
资源大小：87k
文件大小：60k
源码类别：

TAPI编程

开发平台：

Delphi

TSPI.pas：源码内容
  1. {******************************************************************}
  2. {                                                                  }
  3. {       Borland Delphi Runtime Library                             }
  4. {       Telephony SPI interface unit                               }
  5. {                                                                  }
  6. { Portions created by Microsoft are                                }
  7. { Copyright (C) 1995-1999 Microsoft Corporation.                   }
  8. { All Rights Reserved.                                             }
  9. {                                                                  }
  10. { The original file is: tspi.h, released  March 1999.              }
  11. { The original Pascal code is: TSPI.pas, released 28 Dec 1999.     }
  12. { The initial developer of the Pascal code is Marcel van Brakel    }
  13. { (brakelm@bart.nl).                                               }
  14. {     }
  15. { Portions created by Marcel van Brakel are    }
  16. { Copyright (C) 1999-2000 Marcel van Brakel.       }
  17. {                                                                  }
  18. { Contributor(s): Alan C. Moore (ACMDOC@aol.com)                   }
  19. {                 Rudy Velthuis (rvelthuis@gmx.de)                 }
  20. {                                                                  }
  21. { Obtained through:                                                }
  22. { Joint Endeavour of Delphi Innovators (Project JEDI)              }
  23. {                                                                  }
  24. { You may retrieve the latest version of this file at the Project  }
  25. { JEDI home page, located at http://delphi-jedi.org                }
  26. {                                                                  }
  27. { The contents of this file are used with permission, subject to   }
  28. { the Mozilla Public License Version 1.1 (the "License"); you may  }
  29. { not use this file except in compliance with the License. You may }
  30. { obtain a copy of the License at                                  }
  31. { http://www.mozilla.org/NPL/NPL-1_1Final.html                     }
  32. {                                                                  }
  33. { Software distributed under the License is distributed on an      }
  34. { "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or   }
  35. { implied. See the License for the specific language governing     }
  36. { rights and limitations under the License.                        }
  37. {                                                                  }
  38. {******************************************************************}
  40. unit TSPI;
  42. {$WEAKPACKAGEUNIT}
  44. interface
  46. {$HPPEMIT '#include <windows.h>'}
  48. {$HPPEMIT '#include "tapi.h"'}
  50. {$HPPEMIT '#if WIN32'}
  51. {$HPPEMIT '#if TAPI_CURRENT_VERSION < 0x00020000'}
  52. {$HPPEMIT '#error Building a 32bit 1.3 or 1.4 service provider isn't supported'}
  53. {$HPPEMIT '#endif'}
  54. {$HPPEMIT '#endif'}
  56. uses
  57.   Windows, Tapi;
  59. // The  Telephony  API  is jointly copyrighted by Intel and Microsoft.  You are
  60. // granted  a royalty free worldwide, unlimited license to make copies, and use
  61. // the API/SPI for making applications/drivers  that  interface  with  the
  62. // specification provided that this paragraph and the Intel/Microsoft copyright
  63. // statement is maintained as is in the text and source code files.
  65. // Copyright (c) 1992-1998  Microsoft Corporation
  66. // Portions copyright 1992, 1993 Intel/Microsoft, all rights reserved.
  68. {$INCLUDE TAPI.INC}
  70. {$IFDEF WIN32}
  71. {$IFNDEF TAPI20}
  72. #error Building a 32bit 1.3 or 1.4 service provider is not supported.
  73. {$ENDIF}
  74. {$ENDIF}
  76. // tspi.h  is  only  of  use  in  conjunction  with tapi.h.  Very few types are
  77. // defined  in  tspi.h.   Most  types of procedure formal parameters are simply
  78. // passed through from corresponding procedures in tapi.h.  A working knowledge
  79. // of the TAPI interface is required for an understanding of this interface.
  81. type
  82.   PHDRVCALL = ^HDRVCALL;
  83.   HDRVCALL__ = packed record
  84.     unused: Longint;
  85.   end;
  86.   {$EXTERNALSYM HDRVCALL__}
  87.   HDRVCALL = HDRVCALL__;
  88.   {$EXTERNALSYM HDRVCALL}
  90.   PHDRVLLINE= ^HDRVLINE;
  91.   HDRVLINE__ = packed record
  92.     unused: Longint;
  93.   end;
  94.   {$EXTERNALSYM HDRVLINE__}
  95.   HDRVLINE = HDRVLINE__;
  96.   {$EXTERNALSYM HDRVLINE}
  98.   PHDRVPHONE = ^HDRVPHONE;
  99.   HDRVPHONE__ = packed record
  100.     unused: Longint;
  101.   end;
  102.   {$EXTERNALSYM HDRVPHONE__}
  103.   HDRVPHONE = HDRVPHONE__;
  104.   {$EXTERNALSYM HDRVPHONE}
  106.   PHDRVDIALOGINSTANCE = ^HDRVDIALOGINSTANCE;
  107.   HDRVDIALOGINSTANCE__ = packed record
  108.     unused: Longint;
  109.   end;
  110.   {$EXTERNALSYM HDRVDIALOGINSTANCE__}
  111.   HDRVDIALOGINSTANCE = HDRVDIALOGINSTANCE__;
  112.   {$EXTERNALSYM HDRVDIALOGINSTANCE}
  114.   PHDRVMSPLINE = ^HDRVMSPLINE;
  115.   HDRVMSPLINE__ = packed record
  116.     unused: Longint;
  117.   end;
  118.   {$EXTERNALSYM HDRVMSPLINE__}
  119.   HDRVMSPLINE = HDRVMSPLINE__;
  120.   {$EXTERNALSYM HDRVMSPLINE}
  122.   PHTAPICALL = ^HTAPICALL;
  123.   HTAPICALL__ = packed record
  124.     unused: Longint;
  125.   end;
  126.   {$EXTERNALSYM HTAPICALL__}
  127.   HTAPICALL = HTAPICALL__;
  128.   {$EXTERNALSYM HTAPICALL}
  130.   PHTAPILINE = ^HTAPILINE;
  131.   HTAPILINE__ = packed record
  132.     unused: Longint;
  133.   end;
  134.   {$EXTERNALSYM HTAPILINE__}
  135.   HTAPILINE = HTAPILINE__;
  136.   {$EXTERNALSYM HTAPILINE}
  138.   PHTAPIPHONE = ^HTAPIPHONE;
  139.   HTAPIPHONE__ = packed record
  140.     unused: Longint;
  141.   end;
  142.   {$EXTERNALSYM HTAPIPHONE__}
  143.   HTAPIPHONE = HTAPIPHONE__;
  144.   {$EXTERNALSYM HTAPIPHONE}
  146.   PHTAPIDIALOGINSTANCE = ^HTAPIDIALOGINSTANCE;
  147.   HTAPIDIALOGINSTANCE__ = packed record
  148.     unused: Longint;
  149.   end;
  150.   {$EXTERNALSYM HTAPIDIALOGINSTANCE__}
  151.   HTAPIDIALOGINSTANCE = HTAPIDIALOGINSTANCE__;
  152.   {$EXTERNALSYM HTAPIDIALOGINSTANCE}
  154.   PHTAPIMSPLINE = ^HTAPIMSPLINE;
  155.   HTAPIMSPLINE__ = packed record
  156.     unused: Longint;
  157.   end;
  158.   {$EXTERNALSYM HTAPIMSPLINE__}
  159.   HTAPIMSPLINE = HTAPIMSPLINE__;
  160.   {$EXTERNALSYM HTAPIMSPLINE}
  162.   PHPROVIDER = ^HPROVIDER;
  163.   HPROVIDER__ = packed record
  164.     unused: Longint;
  165.   end;
  166.   {$EXTERNALSYM HPROVIDER__}
  167.   HPROVIDER = HPROVIDER__;
  168.   {$EXTERNALSYM HPROVIDER}
  170.   TDrvRequestID = DWORD;
  171.   DRV_REQUESTID = DWORD;
  172.   {$EXTERNALSYM DRV_REQUESTID}
  174.   ASYNC_COMPLETION = procedure(dwRequestID: TDrvRequestID;
  175.     lResult: Longint); stdcall;
  176.   {$EXTERNALSYM ASYNC_COMPLETION}
  177.   TASyncCompletion = ASYNC_COMPLETION;
  179.   LINEEVENT = procedure(htLine: HTAPILINE; htCall: HTAPICALL; dwMsg, dwParam1,
  180.     dwParam2, dwParam3: DWORD_PTR) stdcall;
  181.   {$EXTERNALSYM LINEEVENT}
  182.   TLineEvent = LINEEVENT;
  184.   PHONEEVENT = procedure(htPhone: HTAPIPHONE; dwMsg: DWORD; dwParam1, dwParam2,
  185.     dwParam3: DWORD_PTR) stdcall;
  186.   {$EXTERNALSYM PHONEEVENT}
  187.   TPhoneEvent = PHONEEVENT;
  189.   TUISPIDLLCALLBACK = function(dwObjectID, dwObjectType: DWORD;
  190.     lpParams: Pointer; dwSize: DWORD): Longint stdcall;
  191.   {$EXTERNALSYM TUISPIDLLCALLBACK}
  192.   TTUISpiDllCallback = TUISPIDLLCALLBACK;
  194. {$IFDEF TAPI20}
  195.   PTUISpiCreateDialogInstanceParams = ^TTUISpiCreateDialogInstanceParams;
  196.   tuispicreatedialoginstanceparams_tag = packed record
  197.     dwRequestID: TDrvRequestID;
  198.     hdDlgInst: HDRVDIALOGINSTANCE;
  199.     htDlgInst: HTAPIDIALOGINSTANCE;
  200.     lpszUIDLLName: LPCWSTR;
  201.     lpParams: Pointer;
  202.     dwSize: DWORD;
  203.   end;
  204.   {$EXTERNALSYM tuispicreatedialoginstanceparams_tag}
  205.   TTUISpiCreateDialogInstanceParams = tuispicreatedialoginstanceparams_tag;
  206.   TUISPICREATEDIALOGINSTANCEPARAMS = tuispicreatedialoginstanceparams_tag;
  207.   {$EXTERNALSYM TUISPICREATEDIALOGINSTANCEPARAMS}
  208. {$ENDIF}
  210. {$IFDEF TAPI30}
  211. const
  212.   LINEQOSSTRUCT_KEY = DWORD(1280398155); // DWORD('LQSK')
  213.   {$EXTERNALSYM LINEQOSSTRUCT_KEY}
  215. type
  216.   PLineQosServiceLevel = ^TLineQosServiceLevel;
  217.   LINEQOSSERVICELEVEL_tag = packed record
  218.     dwMediaMode: DWORD;
  219.     dwQOSServiceLevel: DWORD;
  220.   end;
  221.   {$EXTERNALSYM LINEQOSSERVICELEVEL_tag}
  222.   TLineQosServiceLevel = LINEQOSSERVICELEVEL_tag;
  224.   PLineCallQosInfo = ^TLineCallQosInfo;
  225.   LINECALLQOSINFO_tag = packed record
  226.     dwKey: DWORD;
  227.     dwTotalSize: DWORD;
  228.     dwQOSRequestType: DWORD;
  229.     case Longint of
  230.     0: (SetQosServiceLevel: packed record
  231.           dwNumServiceLevelEntries: DWORD;
  232.           LineQOSServiceLevel: array[0..0] of TLineQosServiceLevel;
  233.         end;);
  234.   end;
  235.   {$EXTERNALSYM LINECALLQOSINFO_tag}
  236.   TLineCallQosInfo = LINECALLQOSINFO_tag;
  238. // {831CE2D6-83B5-11d1-BB5C-00C04FB6809F}
  239. // EXTERN_C const CLSID TAPIPROTOCOL_PSTN;
  241. // {831CE2D7-83B5-11d1-BB5C-00C04FB6809F}
  242. // EXTERN_C const CLSID TAPIPROTOCOL_H323;
  244. // {831CE2D8-83B5-11d1-BB5C-00C04FB6809F}
  245. // EXTERN_C const CLSID TAPIPROTOCOL_Multicast;
  246. {$ENDIF}
  248. const
  249.   TSPI_MESSAGE_BASE = 500; // Lowest-numbered TSPI-specific message ID number
  250.   {$EXTERNALSYM TSPI_MESSAGE_BASE}
  252.   LINE_NEWCALL                = TSPI_MESSAGE_BASE + 0;
  253.   {$EXTERNALSYM LINE_NEWCALL}
  254.   LINE_CALLDEVSPECIFIC        = TSPI_MESSAGE_BASE + 1;
  255.   {$EXTERNALSYM LINE_CALLDEVSPECIFIC}
  256.   LINE_CALLDEVSPECIFICFEATURE = TSPI_MESSAGE_BASE + 2;
  257.   {$EXTERNALSYM LINE_CALLDEVSPECIFICFEATURE}
  258. {$IFDEF TAPI20}
  259.   LINE_CREATEDIALOGINSTANCE   = TSPI_MESSAGE_BASE + 3;          // TSPI v2.0
  260.   {$EXTERNALSYM LINE_CREATEDIALOGINSTANCE}
  261.   LINE_SENDDIALOGINSTANCEDATA = TSPI_MESSAGE_BASE + 4;          // TSPI v2.0
  262.   {$EXTERNALSYM LINE_SENDDIALOGINSTANCEDATA}
  263. {$ENDIF}
  264. {$IFDEF TAPI30}
  265.   LINE_SENDMSPDATA            = TSPI_MESSAGE_BASE + 5;          // TSPI v3.0
  266.   {$EXTERNALSYM LINE_SENDMSPDATA}
  267.   LINE_QOSINFO                = TSPI_MESSAGE_BASE + 6;          // TSPI v3.0
  268.   {$EXTERNALSYM LINE_QOSINFO}
  269. {$ENDIF}
  271. {$IFDEF TAPI20}
  272.   LINETSPIOPTION_NONREENTRANT = $00000001;                      // TSPI v2.0
  273.   {$EXTERNALSYM LINETSPIOPTION_NONREENTRANT}
  274. {$ENDIF}
  276. {$IFDEF TAPI20}
  277.   TUISPIDLL_OBJECT_LINEID         = 1;                          // TSPI v2.0
  278.   {$EXTERNALSYM TUISPIDLL_OBJECT_LINEID}
  279.   TUISPIDLL_OBJECT_PHONEID        = 2;                          // TSPI v2.0
  280.   {$EXTERNALSYM TUISPIDLL_OBJECT_PHONEID}
  281.   TUISPIDLL_OBJECT_PROVIDERID     = 3;                          // TSPI v2.0
  282.   {$EXTERNALSYM TUISPIDLL_OBJECT_PROVIDERID}
  283.   TUISPIDLL_OBJECT_DIALOGINSTANCE = 4;                          // TSPI v2.0
  284.   {$EXTERNALSYM TUISPIDLL_OBJECT_DIALOGINSTANCE}
  285. {$ENDIF}
  287. {$IFDEF TAPI30}
  288.   PRIVATEOBJECT_NONE              = $00000001;                  // TSPI v3.0
  289.   {$EXTERNALSYM PRIVATEOBJECT_NONE}
  290.   PRIVATEOBJECT_CALLID            = $00000002;                  // TSPI v3.0
  291.   {$EXTERNALSYM PRIVATEOBJECT_CALLID}
  292.   PRIVATEOBJECT_LINE              = $00000003;                  // TSPI v3.0
  293.   {$EXTERNALSYM PRIVATEOBJECT_LINE}
  294.   PRIVATEOBJECT_CALL              = $00000004;                  // TSPI v3.0
  295.   {$EXTERNALSYM PRIVATEOBJECT_CALL}
  296.   PRIVATEOBJECT_PHONE             = $00000005;                  // TSPI v3.0
  297.   {$EXTERNALSYM PRIVATEOBJECT_PHONE}
  298.   PRIVATEOBJECT_ADDRESS           = $00000006;                  // TSPI v3.0
  299.   {$EXTERNALSYM PRIVATEOBJECT_ADDRESS}
  301.   LINEQOSREQUESTTYPE_SERVICELEVEL = $00000001;                  // TSPI v3.0
  302.   {$EXTERNALSYM LINEQOSREQUESTTYPE_SERVICELEVEL}
  304.   LINEQOSSERVICELEVEL_NEEDED      = $00000001;                  // TSPI v3.0
  305.   {$EXTERNALSYM LINEQOSSERVICELEVEL_NEEDED}
  306.   LINEQOSSERVICELEVEL_IFAVAILABLE = $00000002;                  // TSPI v3.0
  307.   {$EXTERNALSYM LINEQOSSERVICELEVEL_IFAVAILABLE}
  308.   LINEQOSSERVICELEVEL_BESTEFFORT  = $00000003;                  // TSPI v3.0
  309.   {$EXTERNALSYM LINEQOSSERVICELEVEL_BESTEFFORT}
  311.   LINEEQOSINFO_NOQOS              = $00000001;                  // TSPI v3.0
  312.   {$EXTERNALSYM LINEEQOSINFO_NOQOS}
  313.   LINEEQOSINFO_ADMISSIONFAILURE   = $00000002;                  // TSPI v3.0
  314.   {$EXTERNALSYM LINEEQOSINFO_ADMISSIONFAILURE}
  315.   LINEEQOSINFO_POLICYFAILURE      = $00000003;                  // TSPI v3.0
  316.   {$EXTERNALSYM LINEEQOSINFO_POLICYFAILURE}
  317.   LINEEQOSINFO_GENERICERROR       = $00000004;                  // TSPI v3.0
  318.   {$EXTERNALSYM LINEEQOSINFO_GENERICERROR}
  319. {$ENDIF}
  321. //
  322. // The following function prototypes pertain
  323. // to a service provider's core module
  324. //
  326. function TSPI_lineAccept(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  327.   lpsUserUserInfo: LPCSTR; dwSize: DWORD): Longint; stdcall;
  328. {$EXTERNALSYM TSPI_lineAccept}
  330. function TSPI_lineAddToConference(dwRequestID: TDrvRequestID;
  331.     hdConfCall, hdConsultCall: HDRVCALL): Longint; stdcall;
  332. {$EXTERNALSYM TSPI_lineAddToConference}
  334. function TSPI_lineAnswer(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  335.     lpsUserUserInfo: LPCSTR; dwSize: DWORD): Longint; stdcall;
  336. {$EXTERNALSYM TSPI_lineAnswer}
  338. {$IFDEF TAPI20}
  339. function TSPI_lineBlindTransfer(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  340.   lpszDestAddress: LPCWSTR; dwCountryCode: DWORD): Longint; stdcall;
  341. {$EXTERNALSYM TSPI_lineBlindTransfer}
  342. {$ELSE}
  343. function TSPI_lineBlindTransfer(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  344.   lpszDestAddress: LPCSTR; dwCountryCode: DWORD): Longint; stdcall;
  345. {$EXTERNALSYM TSPI_lineBlindTransfer}
  346. {$ENDIF}
  348. function TSPI_lineClose(hdLine: HDRVLINE): Longint; stdcall;
  349. {$EXTERNALSYM TSPI_lineClose}
  351. function TSPI_lineCloseCall(hdCall: HDRVCALL): Longint; stdcall;
  352. {$EXTERNALSYM TSPI_lineCloseCall}
  354. function TSPI_lineCompleteCall(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  355.   var dwCompletionID: DWORD;
  356.   dwCompletionMode, dwMessageID: DWORD): Longint; stdcall;
  357. {$EXTERNALSYM TSPI_lineCompleteCall}
  359. function TSPI_lineCompleteTransfer(dwRequestID: TDrvRequestID; hdCall,
  360.   hdConsultCall: HDRVCALL; htConfCall: HTAPICALL; lphdConfCall: PHDRVCALL;
  361.   dwTransferMode: DWORD): Longint; stdcall;
  362. {$EXTERNALSYM TSPI_lineCompleteTransfer}
  364. function TSPI_lineConditionalMediaDetection(hdLine: HDRVLINE; dwMediaModes: DWORD;
  365.   lcpCallParams: PLineCallParams): Longint; stdcall;
  366. {$EXTERNALSYM TSPI_lineConditionalMediaDetection}
  368. function TSPI_lineDevSpecific(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  369.   dwAddressID: DWORD; hdCall: HDRVCALL; lpParams: Pointer;
  370.   dwSize: DWORD): Longint; stdcall;
  371. {$EXTERNALSYM TSPI_lineDevSpecific}
  373. function TSPI_lineDevSpecificFeature(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  374.   dwFeature: DWORD; lpParams: Pointer; dwSize: DWORD): Longint; stdcall;
  375. {$EXTERNALSYM TSPI_lineDevSpecificFeature}
  377. {$IFDEF TAPI20}
  378. function TSPI_lineDial(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  379.   lpszDestAddress: LPCWSTR; dwCountryCode: DWORD): Longint; stdcall;
  380. {$EXTERNALSYM TSPI_lineDial}
  381. {$ELSE}
  382. function TSPI_lineDial(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  383.   lpszDestAddress: LPCSTR; dwCountryCode: DWORD): Longint; stdcall;
  384. {$ENDIF}
  386. function TSPI_lineDrop(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  387.   lpsUserUserInfo: LPCSTR; dwSize: DWORD): Longint; stdcall;
  388. {$EXTERNALSYM TSPI_lineDrop}
  390. function TSPI_lineDropOnClose(hdCall: HDRVCALL): Longint; stdcall; // TSPI v1.4
  391. {$EXTERNALSYM TSPI_lineDropOnClose}
  393. function TSPI_lineDropNoOwner(hdCall: HDRVCALL): LongInt; stdcall; //TSPI v1.4
  394. {$EXTERNALSYM TSPI_lineDropNoOwner}
  396. function TSPI_lineForward(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  397.   bAllAddresses, dwAddressID: DWORD; lflForwardList: PLineForwardList;
  398.   dwNumRingsNoAnswer: DWORD; htConsultCall: HTAPICALL; var hdConsultCall: HDRVCALL;
  399.   lcpCallParams: PLineCallParams): Longint; stdcall;
  400. {$EXTERNALSYM TSPI_lineForward}
  402. {$IFDEF TAPI20}
  403. function TSPI_lineGatherDigits(hdCall: HDRVCALL; dwEndToEndID, dwDigitModes: DWORD;
  404.   lpsDigits: LPWSTR; dwNumDigits: DWORD; lpszTerminationDigits: LPCWSTR;
  405.   dwFirstDigitTimeout, dwInterDigitTimeout: DWORD): Longint; stdcall;
  406. {$EXTERNALSYM TSPI_lineGatherDigits}
  407. {$ELSE}
  408. function TSPI_lineGatherDigits(hdCall: HDRVCALL; dwEndToEndID, dwDigitModes: DWORD;
  409.   lpsDigits: LPSTR; dwNumDigits: DWORD; lpszTerminationDigits: LPCSTR;
  410.   dwFirstDigitTimeout, dwInterDigitTimeout: DWORD): Longint; stdcall;
  411. {$EXTERNALSYM TSPI_lineGatherDigits}
  412. {$ENDIF}
  414. {$IFDEF TAPI20}
  415. function TSPI_lineGenerateDigits(hdCall: HDRVCALL; dwEndToEndID, dwDigitMode: DWORD;
  416.   lpszDigits: LPCWSTR; dwDuration: DWORD): Longint; stdcall;
  417. {$EXTERNALSYM TSPI_lineGenerateDigits}
  418. {$ELSE}
  419. function TSPI_lineGenerateDigits(hdCall: HDRVCALL; dwEndToEndID, dwDigitMode: DWORD;
  420.   lpszDigits: LPCSTR; dwDuration: DWORD): Longint; stdcall;
  421. {$EXTERNALSYM TSPI_lineGenerateDigits}
  422. {$ENDIF}
  424. function TSPI_lineGenerateTone(hdCall: HDRVCALL; dwEndToEndID, dwToneMode,
  425.   dwDuration, dwNumTones: DWORD; lgtTones: PLineGenerateTone): Longint; stdcall;
  426. {$EXTERNALSYM TSPI_lineGenerateTone}
  428. function TSPI_lineGetAddressCaps(dwDeviceID, dwAddressID, dwTSPIVersion,
  429.   dwExtVersion: DWORD; lpAddressCaps: PLineAddressCaps): Longint; stdcall;
  430. {$EXTERNALSYM TSPI_lineGetAddressCaps}
  432. {$IFDEF TAPI20}
  433. function TSPI_lineGetAddressID(hdLine: HDRVLINE; var dwAddressID: DWORD;
  434.   dwAddressMode: DWORD; lpsAddress: LPCWSTR; dwSize: DWORD): Longint; stdcall;
  435. {$EXTERNALSYM TSPI_lineGetAddressID}
  436. {$ELSE}
  437. function TSPI_lineGetAddressID(hdLine: HDRVLINE; var dwAddressID: DWORD;
  438.   dwAddressMode: DWORD; lpsAddress: LPCSTR; dwSize: DWORD): Longint; stdcall;
  439. {$EXTERNALSYM TSPI_lineGetAddressID}
  440. {$ENDIF}
  442. function TSPI_lineGetAddressStatus(hdLine: HDRVLINE; dwAddressID: DWORD;
  443.   lasAddressStatus: PLineAddressStatus): Longint; stdcall;
  444. {$EXTERNALSYM TSPI_lineGetAddressStatus}
  446. function TSPI_lineGetCallAddressID(hdCall: HDRVCALL;
  447.   var dwAddressID: DWORD): Longint; stdcall;
  448. {$EXTERNALSYM TSPI_lineGetCallAddressID}
  450. {$IFDEF TAPI30}
  451. function TSPI_lineGetCallHubTracking(hdLine: HDRVLINE;
  452.   pTrackingInfo: PLineCallHubTrackingInfo): Longint; stdcall; // TSPI v3.0
  453. {$EXTERNALSYM TSPI_lineGetCallHubTracking}
  454. {$ENDIF}
  456. {$IFDEF TAPI30}
  457. function TSPI_lineGetCallIDs(hdCall: HDRVCALL; lpdwAddressID, lpdwCallID,
  458.   lpdwRelatedCallID: LPDWORD): Longint; stdcall; // TSPI v3.0
  459. {$EXTERNALSYM TSPI_lineGetCallIDs}
  460. {$ENDIF}
  462. function TSPI_lineGetCallInfo(hdCall: HDRVCALL;
  463.   lciCallInfo: PLineCallInfo): Longint; stdcall;
  464. {$EXTERNALSYM TSPI_lineGetCallInfo}
  466. function TSPI_lineGetCallStatus(hdCall: HDRVCALL;
  467.   lcsCallStatus: PLineCallStatus): Longint; stdcall;
  468. {$EXTERNALSYM TSPI_lineGetCallStatus}
  470. function TSPI_lineGetDevCaps(dwDeviceID, dwTSPIVersion, dwExtVersion: DWORD;
  471.   lpLineDevCaps: PLineDevCaps): Longint; stdcall;
  472. {$EXTERNALSYM TSPI_lineGetDevCaps}
  474. {$IFDEF TAPI20}
  475. function TSPI_lineGetDevConfig(dwDeviceID: DWORD; lpDeviceConfig: PVarString;
  476.   lpszDeviceClass: LPCWSTR): Longint; stdcall;
  477. {$EXTERNALSYM TSPI_lineGetDevConfig}
  478. {$ELSE}
  479. function TSPI_lineGetDevConfig(dwDeviceID: DWORD; lpDeviceConfig: PVarString;
  480.   lpszDeviceClass: LPCSTR): Longint; stdcall;
  481. {$EXTERNALSYM TSPI_lineGetDevConfig}
  482. {$ENDIF}
  484. function TSPI_lineGetExtensionID(dwDeviceID, dwTSPIVersion: DWORD;
  485.   var lpExtensionID: TLineExtensionID): Longint; stdcall;
  486. {$EXTERNALSYM TSPI_lineGetExtensionID}
  488. {$IFDEF TAPI20}
  489. function TSPI_lineGetIcon(dwDeviceID: DWORD; lpszDeviceClass: LPCWSTR;
  490.   var hIcon: HIcon): Longint; stdcall;
  491. {$EXTERNALSYM TSPI_lineGetIcon}
  492. {$ELSE}
  493. function TSPI_lineGetIcon(dwDeviceID: DWORD; lpszDeviceClass: LPCSTR;
  494.   var hIcon: HIcon): Longint; stdcall;
  495. {$EXTERNALSYM TSPI_lineGetIcon}
  496. {$ENDIF}
  498. {$IFDEF TAPI20}
  499. function TSPI_lineGetID(hdLine: HDRVLINE; dwAddressID: DWORD; hdCall: HDRVCALL;
  500.   dwSelect: DWORD; lpDeviceID: PVarString; lpszDeviceClass: LPCWSTR;
  501.   hTargetProcess: THandle): Longint; stdcall;
  502. {$EXTERNALSYM TSPI_lineGetID}
  503. {$ELSE}
  504. function TSPI_lineGetID(hdLine: HDRVLINE; dwAddressID: DWORD; hdCall: HDRVCALL;
  505.   dwSelect: DWORD; lpDeviceID: PVarString; lpszDeviceClass: LPCSTR;
  506.   hTargetProcess: THandle): Longint; stdcall;
  507. {$EXTERNALSYM TSPI_lineGetID}
  508. {$ENDIF}
  510. function TSPI_lineGetLineDevStatus(hdLine: HDRVLINE;
  511.   ldsLineDevStatus: PLineDevStatus): Longint; stdcall;
  512. {$EXTERNALSYM TSPI_lineGetLineDevStatus}
  514. function TSPI_lineGetNumAddressIDs(hdLine: HDRVLINE;
  515.   var dwNumAddressIDs: DWORD): Longint; stdcall;
  516. {$EXTERNALSYM TSPI_lineGetNumAddressIDs}
  518. function TSPI_lineHold(dwRequestID: TDrvRequestID;
  519.   hdCall: HDRVCALL): Longint; stdcall;
  520. {$EXTERNALSYM TSPI_lineHold}
  522. {$IFDEF TAPI20}
  523. function TSPI_lineMakeCall(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  524.   htCall: HTAPICALL; lphdCall: PHDRVCALL; lpszDestAddress: LPCWSTR;
  525.   dwCountryCode: DWORD; lpcCallParams: PLineCallParams): Longint; stdcall;
  526. {$EXTERNALSYM TSPI_lineMakeCall}
  527. {$ELSE}
  528. function TSPI_lineMakeCall(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  529.   htCall: HTAPICALL; lphdCall: PHDRVCALL; lpszDestAddress: LPCSTR;
  530.   dwCountryCode: DWORD; lpcCallParams: PLineCallParams): Longint; stdcall;
  531. {$EXTERNALSYM TSPI_lineMakeCall}
  532. {$ENDIF}
  534. function TSPI_lineMonitorDigits(hdCall: HDRVCALL;
  535.   dwDigitModes: DWORD): Longint; stdcall;
  536. {$EXTERNALSYM TSPI_lineMonitorDigits}
  538. function TSPI_lineMonitorMedia(hdCall: HDRVCALL;
  539.   dwMediaModes: DWORD): Longint; stdcall;
  540. {$EXTERNALSYM TSPI_lineMonitorMedia}
  542. function TSPI_lineMonitorTones(hdCall: HDRVCALL; dwToneListID: DWORD;
  543.   lmtToneList: PLineMonitorTone; dwNumEntries: DWORD): Longint; stdcall;
  544. {$EXTERNALSYM TSPI_lineMonitorTones}
  546. function TSPI_lineNegotiateExtVersion(dwDeviceID, dwTSPIVersion, dwLowVersion,
  547.   dwHighVersion: DWORD; var dwExtVersion: DWORD): Longint; stdcall;
  548. {$EXTERNALSYM TSPI_lineNegotiateExtVersion}
  550. function TSPI_lineNegotiateTSPIVersion(dwDeviceID, dwLowVersion,
  551.   dwHighVersion: DWORD; var dwTSPIVersion: DWORD): Longint; stdcall;
  552. {$EXTERNALSYM TSPI_lineNegotiateTSPIVersion}
  554. function TSPI_lineOpen(dwDeviceID: DWORD; htLine: HTAPILINE; var hdLine: HDRVLINE;
  555.   dwTSPIVersion: DWORD; lpfnEventProc: TLineEvent): Longint; stdcall;
  556. {$EXTERNALSYM TSPI_lineOpen}
  558. {$IFDEF TAPI20}
  559. function TSPI_linePark(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  560.   dwParkMode: DWORD; lpszDirAddress: LPCWSTR;
  561.   lpNonDirAddress: PVarString): Longint; stdcall;
  562. {$EXTERNALSYM TSPI_linePark}
  563. {$ELSE}
  564. function TSPI_linePark(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  565.   dwParkMode: DWORD; lpszDirAddress: LPCSTR;
  566.   lpNonDirAddress: PVarString): Longint; stdcall;
  567. {$EXTERNALSYM TSPI_linePark}
  568. {$ENDIF}
  570. {$IFDEF TAPI20}
  571. function TSPI_linePickup(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  572.   dwAddressID: DWORD; htCall: HTAPICALL; var hdCall: HDRVCALL;
  573.   lpszDestAddress, lpszGroupID: LPCWSTR): Longint; stdcall;
  574. {$EXTERNALSYM TSPI_linePickup}
  575. {$ELSE}
  576. function TSPI_linePickup(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  577.   dwAddressID: DWORD; htCall: HTAPICALL; var hdCall: HDRVCALL;
  578.   lpszDestAddress, lpszGroupID: LPCSTR): Longint; stdcall;
  579. {$EXTERNALSYM TSPI_linePickup}
  580. {$ENDIF}
  582. function TSPI_linePrepareAddToConference(dwRequestID: TDrvRequestID;
  583.   hdConfCall: HDRVCALL; htConsultCall: HTAPICALL; lphdConsultCall: PHDRVCALL;
  584.   lpcCallParams: PLineCallParams): Longint; stdcall;
  585. {$EXTERNALSYM TSPI_linePrepareAddToConference}
  587. {$IFDEF TAPI20}
  588. function TSPI_lineRedirect(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  589.   lpszDestAddress: LPCWSTR; dwCountryCode: DWORD): Longint; stdcall;
  590. {$EXTERNALSYM TSPI_lineRedirect}
  591. {$ELSE}
  592. function TSPI_lineRedirect(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  593.   lpszDestAddress: LPCSTR; dwCountryCode: DWORD): Longint; stdcall;
  594. {$EXTERNALSYM TSPI_lineRedirect}
  595. {$ENDIF}
  597. function TSPI_lineReleaseUserUserInfo(dwRequestID: TDrvRequestID;
  598.   hdCall: HDRVCALL): Longint; stdcall; //TSPI v1.4
  599. {$EXTERNALSYM TSPI_lineReleaseUserUserInfo}
  601. function TSPI_lineRemoveFromConference(dwRequestID: TDrvRequestID;
  602.   hdCall: HDRVCALL): Longint; stdcall;
  603. {$EXTERNALSYM TSPI_lineRemoveFromConference}
  605. function TSPI_lineSecureCall(dwRequestID: TDrvRequestID;
  606.   hdCall: HDRVCALL): Longint; stdcall;
  607. {$EXTERNALSYM TSPI_lineSecureCall}
  609. function TSPI_lineSelectExtVersion(hdLine: HDRVLINE;
  610.   dwExtVersion: DWORD): Longint; stdcall;
  611. {$EXTERNALSYM TSPI_lineSelectExtVersion}
  613. function TSPI_lineSendUserUserInfo(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  614.   lpsUserUserInfo: LPCSTR; dwSize: DWORD): Longint; stdcall;
  615. {$EXTERNALSYM TSPI_lineSendUserUserInfo}
  617. function TSPI_lineSetAppSpecific(hdCall: HDRVCALL;
  618.   dwAppSpecific: DWORD): Longint; stdcall;
  619. {$EXTERNALSYM TSPI_lineSetAppSpecific}
  621. {$IFDEF TAPI20}
  622. function TSPI_lineSetCallData(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  623.   lpCallData: Pointer; dwSize: DWORD): Longint; stdcall;
  624. {$EXTERNALSYM TSPI_lineSetCallData}
  625. {$ENDIF}
  627. {$IFDEF TAPI30}
  628. function TSPI_lineSetCallHubTracking(hdLine: HDRVLINE;
  629.   lpTrackingInfo: PLineCallHubTrackingInfo): Longint; stdcall; // TSPI v3.0
  630. {$EXTERNALSYM TSPI_lineSetCallHubTracking}
  631. {$ENDIF}
  633. function TSPI_lineSetCallParams(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  634.   dwBearerMode, dwMinRate, dwMaxRate: DWORD;
  635.   ldpDialParams: PLineDialParams): Longint; stdcall;
  636. {$EXTERNALSYM TSPI_lineSetCallParams}
  638. {$IFDEF TAPI20}
  639. function TSPI_lineSetCallQualityOfService(dwRequestID: TDrvRequestID;
  640.   hdCall: HDRVCALL; lpSendingFlowspec: Pointer; dwSendingFlowspecSize: DWORD;
  641.   lpReceivingFlowspec: Pointer; dwReceivingFlowspecSize: DWORD): Longint; stdcall;
  642.   // TSPI v2.0
  643. {$EXTERNALSYM TSPI_lineSetCallQualityOfService}
  645. function TSPI_lineSetCallTreatment(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  646.   dwTreatment: DWORD): Longint; stdcall; // TSPI v2.0
  647. {$EXTERNALSYM TSPI_lineSetCallTreatment}
  648. {$ENDIF}
  650. function TSPI_lineSetCurrentLocation(dwLocation: DWORD): Longint; stdcall; // TSPI v1.4
  651. {$EXTERNALSYM TSPI_lineSetCurrentLocation}
  653. function TSPI_lineSetDefaultMediaDetection(hdLine: HDRVLINE;
  654.   wMediaModes: DWORD): Longint; stdcall;
  655. {$EXTERNALSYM TSPI_lineSetDefaultMediaDetection}
  657. {$IFDEF TAPI20}
  658. function TSPI_lineSetDevConfig(dwDeviceID: DWORD; lpDeviceConfig: Pointer;
  659.   dwSize: DWORD; lpszDeviceClass: LPCWSTR): Longint; stdcall;
  660. {$EXTERNALSYM TSPI_lineSetDevConfig}
  661. {$ELSE}
  662. function TSPI_lineSetDevConfig(dwDeviceID: DWORD; lpDeviceConfig: Pointer;
  663.   dwSize: DWORD; lpszDeviceClass: LPCSTR): Longint; stdcall;
  664. {$EXTERNALSYM TSPI_lineSetDevConfig}
  665. {$ENDIF}
  667. {$IFDEF TAPI20}
  668. function TSPI_lineSetLineDevStatus(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  669.   dwStatusToChange, fStatus: DWORD): Longint; stdcall; // TSPI v2.0
  670. {$EXTERNALSYM TSPI_lineSetLineDevStatus}
  671. {$ENDIF}
  673. function TSPI_lineSetMediaControl(hdLine: HDRVLINE; dwAddressID: DWORD;
  674.   hdCall: HDRVCALL; dwSelect: DWORD; lmcdDigitList: PLineMediaControlDigit;
  675.   dwDigitNumEntries: DWORD; lmcmMediaList: PLineMediaControlMedia;
  676.   dwMediaNumEntries: DWORD; lmctToneList: PLineMediaControlTone;
  677.   dwToneNumEntries: DWORD; lmccsCallStateList: PLineMediaControlCallState;
  678.   dwCallStateNumEntries: DWORD): Longint; stdcall;
  679. {$EXTERNALSYM TSPI_lineSetMediaControl}
  681. function TSPI_lineSetMediaMode(hdCall: HDRVCALL;
  682.   dwMediaMode: DWORD): Longint; stdcall;
  683. {$EXTERNALSYM TSPI_lineSetMediaMode}
  685. function TSPI_lineSetStatusMessages(hdLine: HDRVLINE; dwLineStates,
  686.   dwAddressStates: DWORD): Longint; stdcall;
  687. {$EXTERNALSYM TSPI_lineSetStatusMessages}
  689. function TSPI_lineSetTerminal(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  690.   dwAddressID: DWORD; hdCall: HDRVCALL; dwSelect, dwTerminalModes, dwTerminalID,
  691.   bEnable: DWORD): Longint; stdcall;
  692. {$EXTERNALSYM TSPI_lineSetTerminal}
  694. function TSPI_lineSetupConference(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  695.   hdLine: HDRVLINE; htConfCall: HTAPICALL; lphdConfCall: PHDRVCALL;
  696.   htConsultCall: HTAPICALL; lphdConsultCall: PHDRVCALL; dwNumParties: DWORD;
  697.   lcpCallParams: PLineCallParams): Longint; stdcall;
  698. {$EXTERNALSYM TSPI_lineSetupConference}
  700. function TSPI_lineSetupTransfer(dwRequestID: TDrvRequestID; hdCall: HDRVCALL;
  701.   htConsultCall: HTAPICALL; lphdConsultCall: PHDRVCALL;
  702.   lcpCallParams: PLineCallParams): Longint; stdcall;
  703. {$EXTERNALSYM TSPI_lineSetupTransfer}
  705. function TSPI_lineSwapHold(dwRequestID: TDrvRequestID; hdActiveCall,
  706.   hdHeldCall: HDRVCALL): Longint; stdcall;
  707. {$EXTERNALSYM TSPI_lineSwapHold}
  709. function TSPI_lineUncompleteCall(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  710.   dwCompletionID: DWORD): Longint; stdcall;
  711. {$EXTERNALSYM TSPI_lineUncompleteCall}
  713. function TSPI_lineUnhold(dwRequestID: TDrvRequestID;
  714.   hdCall: HDRVCALL): Longint; stdcall;
  715. {$EXTERNALSYM TSPI_lineUnhold}
  717. {$IFDEF TAPI20}
  718. function TSPI_lineUnpark(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  719.   dwAddressID: DWORD; htCall: HTAPICALL; lphdCall: PHDRVCALL;
  720.   lpszDestAddress: LPCWSTR): Longint; stdcall;
  721. {$EXTERNALSYM TSPI_lineUnpark}
  722. {$ELSE}
  723. function TSPI_lineUnpark(dwRequestID: TDrvRequestID; hdLine: HDRVLINE;
  724.   dwAddressID: DWORD; htCall: HTAPICALL; lphdCall: PHDRVCALL;
  725.   lpszDestAddress: LPCSTR): Longint; stdcall;
  726. {$EXTERNALSYM TSPI_lineUnpark}
  727. {$ENDIF}
  729. function TSPI_phoneClose(hdPhone: HDRVPHONE): Longint; stdcall;
  730. {$EXTERNALSYM TSPI_phoneClose}
  732. function TSPI_phoneDevSpecific(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  733.   lpParams: Pointer; dwSize: DWORD): Longint; stdcall;
  734. {$EXTERNALSYM TSPI_phoneDevSpecific}
  736. function TSPI_phoneGetButtonInfo(hdPhone: HDRVPHONE; dwButtonLampID: DWORD;
  737.   pbiButtonInfo: PPhoneButtonInfo): Longint; stdcall;
  738. {$EXTERNALSYM TSPI_phoneGetButtonInfo}
  740. function TSPI_phoneGetData(hdPhone: HDRVPHONE; dwDataID: DWORD; lpData: Pointer;
  741.   dwSize: DWORD): Longint; stdcall;
  742. {$EXTERNALSYM TSPI_phoneGetData}
  744. function TSPI_phoneGetDevCaps(dwDeviceID, dwTSPIVersion, dwExtVersion: DWORD;
  745.   pcPhoneCaps: PPhoneCaps): Longint; stdcall;
  746. {$EXTERNALSYM TSPI_phoneGetDevCaps}
  748. function TSPI_phoneGetDisplay(hdPhone: HDRVPHONE;
  749.   lpDisplay: PVarString): Longint; stdcall;
  750. {$EXTERNALSYM TSPI_phoneGetDisplay}
  752. function TSPI_phoneGetExtensionID(dwDeviceID, dwTSPIVersion: DWORD;
  753.   var lpExtensionID: TPhoneExtensionID): Longint; stdcall;
  754. {$EXTERNALSYM TSPI_phoneGetExtensionID}
  756. function TSPI_phoneGetGain(hdPhone: HDRVPHONE; dwHookSwitchDev: DWORD;
  757.   var dwGain: DWORD): Longint; stdcall;
  758. {$EXTERNALSYM TSPI_phoneGetGain}
  760. function TSPI_phoneGetHookSwitch(hdPhone: HDRVPHONE;
  761.   var dwHookSwitchDevs: DWORD): Longint; stdcall;
  762. {$EXTERNALSYM TSPI_phoneGetHookSwitch}
  764. {$IFDEF TAPI20}
  765. function TSPI_phoneGetIcon(dwDeviceID: DWORD; lpszDeviceClass: LPCWSTR;
  766.   var hIcon: HICON): Longint; stdcall;
  767. {$EXTERNALSYM TSPI_phoneGetIcon}
  768. {$ELSE}
  769. function TSPI_phoneGetIcon(dwDeviceID: DWORD; lpszDeviceClass: LPCSTR;
  770.   var hIcon: HICON): Longint; stdcall;
  771. {$EXTERNALSYM TSPI_phoneGetIcon}
  772. {$ENDIF}
  774. {$IFDEF TAPI20}
  775. function TSPI_phoneGetID(hdPhone: HDRVPHONE; lpDeviceID: PVarString;
  776.   lpszDeviceClass: LPCWSTR; hTargetProcess: THandle): Longint; stdcall; {// TSPI v2.0}
  777. {$EXTERNALSYM TSPI_phoneGetID}
  778. {$ELSE}
  779. function TSPI_phoneGetID(hdPhone: HDRVPHONE; lpDeviceID: PVarString;
  780.   lpszDeviceClass: LPCSTR; hTargetProcess: THandle): Longint; stdcall; {// TSPI v2.0}
  781. {$EXTERNALSYM TSPI_phoneGetID}
  782. {$ENDIF}
  784. function TSPI_phoneGetLamp(hdPhone: HDRVPHONE; dwButtonLampID: DWORD;
  785.   var dwLampMode: DWORD): Longint; stdcall;
  786. {$EXTERNALSYM TSPI_phoneGetLamp}
  788. function TSPI_phoneGetRing(hdPhone: HDRVPHONE; var dwRingMode,
  789.   dwVolume: DWORD): Longint; stdcall;
  790. {$EXTERNALSYM TSPI_phoneGetRing}
  792. function TSPI_phoneGetStatus(hdPhone: HDRVPHONE;
  793.   psPhoneStatus: PPhoneStatus): Longint; stdcall;
  794. {$EXTERNALSYM TSPI_phoneGetStatus}
  796. function TSPI_phoneGetVolume(hdPhone: HDRVPHONE; dwHookSwitchDev: DWORD;
  797.   var dwVolume: DWORD): Longint; stdcall;
  798. {$EXTERNALSYM TSPI_phoneGetVolume}
  800. function TSPI_phoneNegotiateExtVersion(dwDeviceID, dwTSPIVersion, dwLowVersion,
  801.   dwHighVersion: DWORD; var dwExtVersion: DWORD): Longint; stdcall;
  802. {$EXTERNALSYM TSPI_phoneNegotiateExtVersion}
  804. function TSPI_phoneNegotiateTSPIVersion(dwDeviceID, dwLowVersion,
  805.   dwHighVersion: DWORD; var dwTSPIVersion: DWORD): Longint; stdcall;
  806. {$EXTERNALSYM TSPI_phoneNegotiateTSPIVersion}
  808. function TSPI_phoneOpen(dwDeviceID: DWORD; htPhone: HTAPIPHONE;
  809.   var hdPhone: HDRVPHONE; dwTSPIVersion: DWORD;
  810.   lpfnEventProc: TPhoneEvent): Longint; stdcall;
  811. {$EXTERNALSYM TSPI_phoneOpen}
  813. function TSPI_phoneSelectExtVersion(hdPhone: HDRVPHONE;
  814.   dwExtVersion: DWORD): Longint; stdcall;
  815. {$EXTERNALSYM TSPI_phoneSelectExtVersion}
  817. function TSPI_phoneSetButtonInfo(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  818.   dwButtonLampID: DWORD; pbiButtonInfo: PPhoneButtonInfo): Longint; stdcall;
  819. {$EXTERNALSYM TSPI_phoneSetButtonInfo}
  821. function TSPI_phoneSetData(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  822.   dwDataID: DWORD; lpData: Pointer; dwSize: DWORD): Longint; stdcall;
  823. {$EXTERNALSYM TSPI_phoneSetData}
  825. {$IFDEF TAPI20}
  826. function TSPI_phoneSetDisplay(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  827.   dwRow, dwColumn: DWORD; lpsDisplay: LPCWSTR; dwSize: DWORD): Longint; stdcall;
  828. {$EXTERNALSYM TSPI_phoneSetDisplay}
  829. {$ELSE}
  830. function TSPI_phoneSetDisplay(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  831.   dwRow, dwColumn: DWORD; lpsDisplay: LPCSTR; dwSize: DWORD): Longint; stdcall;
  832. {$EXTERNALSYM TSPI_phoneSetDisplay}
  833. {$ENDIF}
  835. function TSPI_phoneSetGain(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  836.   dwHookSwitchDev, dwGain: DWORD): Longint; stdcall;
  837. {$EXTERNALSYM TSPI_phoneSetGain}
  839. function TSPI_phoneSetHookSwitch(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  840.   dwHookSwitchDevs, dwHookSwitchMode: DWORD): Longint; stdcall;
  841. {$EXTERNALSYM TSPI_phoneSetHookSwitch}
  843. function TSPI_phoneSetLamp(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  844.   dwButtonLampID, dwLampMode: DWORD): Longint; stdcall;
  845. {$EXTERNALSYM TSPI_phoneSetLamp}
  847. function TSPI_phoneSetRing(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  848.   dwRingMode, dwVolume: DWORD): Longint; stdcall;
  849. {$EXTERNALSYM TSPI_phoneSetRing}
  851. function TSPI_phoneSetStatusMessages(hdPhone: HDRVPHONE; dwPhoneStates,
  852.   dwButtonModes, dwButtonStates: DWORD): Longint; stdcall;
  853. {$EXTERNALSYM TSPI_phoneSetStatusMessages}
  855. function TSPI_phoneSetVolume(dwRequestID: TDrvRequestID; hdPhone: HDRVPHONE;
  856.   dwHookSwitchDev, dwVolume: DWORD): Longint; stdcall;
  857. {$EXTERNALSYM TSPI_phoneSetVolume}
  859. function TSPI_providerConfig(hwndOwner: HWND;
  860.   dwPermanentProviderID: DWORD): Longint; stdcall;
  861. {$EXTERNALSYM TSPI_providerConfig}
  863. function TSPI_providerCreateLineDevice(dwTempID,
  864.   dwDeviceID: DWORD): Longint; stdcall; // TSPI v1.4
  865. {$EXTERNALSYM TSPI_providerCreateLineDevice}
  867. function TSPI_providerCreatePhoneDevice(dwTempID,
  868.   dwDeviceID: DWORD): Longint; stdcall; // TSPI v1.4
  869. {$EXTERNALSYM TSPI_providerCreatePhoneDevice}
  871. function TSPI_providerEnumDevices(dwPermanentProviderID: DWORD; lpdwNumLines,
  872.   lpdwNumPhones: LPDWORD; hProvider: HPROVIDER; lpfnLineCreateProc: TLineEvent;
  873.   lpfnPhoneCreateProc: TPhoneEvent): Longint; stdcall; // TSPI v1.4
  874. {$EXTERNALSYM TSPI_providerEnumDevices}
  876. {$IFDEF TAPI20}
  877. function TSPI_providerFreeDialogInstance(hdDlgInst: HDRVDIALOGINSTANCE): Longint; stdcall; // TSPI v2.0
  878. {$EXTERNALSYM TSPI_providerFreeDialogInstance}
  880. function TSPI_providerGenericDialogData(dwObjectID, dwObjectType: DWORD;
  881.   lpParams: Pointer; dwSize: DWORD): Longint; stdcall; // TSPI v2.0
  882. {$EXTERNALSYM TSPI_providerGenericDialogData}
  883. {$ENDIF}
  885. function TSPI_providerInit(dwTSPIVersion, dwPermanentProviderID,
  886.   dwLineDeviceIDBase, dwPhoneDeviceIDBase, dwNumLines, dwNumPhones: DWORD;
  887. {$IFDEF TAPI20}
  888.   lpfnCompletionProc: TASyncCompletion; var lpdwTSPIOptions: DWORD): Longint; stdcall;
  889. {$ELSE}
  890.   lpfnCompletionProc: TASyncCompletion): Longint;  stdcall;
  891. {$ENDIF}
  892. {$EXTERNALSYM TSPI_providerInit}
  894. function TSPI_providerInstall(hwndOwner: HWND;
  895.   dwPermanentProviderID: DWORD): Longint; stdcall;
  896. {$EXTERNALSYM TSPI_providerInstall}
  898. function TSPI_providerRemove(hwndOwner: HWND;
  899.   dwPermanentProviderID: DWORD): Longint; stdcall;
  900. {$EXTERNALSYM TSPI_providerRemove}
  902. {$IFDEF TAPI20}
  903. function TSPI_providerShutdown(dwTSPIVersion,
  904.   dwPermanentProviderID: DWORD): Longint; stdcall; // TSPI v2.0
  905. {$ELSE}
  906. function TSPI_providerShutdown(dwTSPIVersion: DWORD): Longint; stdcall; // TSPI v2.0
  907. {$ENDIF}
  908. {$EXTERNALSYM TSPI_providerShutdown}
  910. {$IFDEF TAPI20}
  911. function TSPI_providerUIIdentify(lpszUIDLLName: LPWSTR): Longint; stdcall; // TSPI v2.0
  912. {$EXTERNALSYM TSPI_providerUIIdentify}
  913. {$ENDIF}
  915. {$IFDEF TAPI30}
  916. function TSPI_lineMSPIdentify(dwDeviceID: DWORD; pCLSID: PGUID): Longint; stdcall;
  917. {$EXTERNALSYM TSPI_lineMSPIdentify}
  919. function TSPI_lineCloseMSPInstance(hdMSPLine: HDRVMSPLINE): Longint; stdcall;
  920. {$EXTERNALSYM TSPI_lineCloseMSPInstance}
  922. function TSPI_lineReceiveMSPData(hdLine: HDRVLINE; hdCall: HDRVCALL;
  923.   hdMSPLine: HDRVMSPLINE; pBuffer: Pointer; dwSize: DWORD): Longint; stdcall;
  924. {$EXTERNALSYM TSPI_lineReceiveMSPData}
  925. {$ENDIF}
  927. {$IFDEF TAPI20}
  928. //
  929. // The following function prototypes pertain
  930. // to a service provider's UI module
  931. //
  933. function TUISPI_lineConfigDialog(lpfnUIDLLCallback: TTUISpiDllCallback;
  934.   dwDeviceID: DWORD; hwndOwner: HWND;
  935.   lpszDeviceClass: LPCWSTR): Longint; stdcall; // TSPI v2.0
  936. {$EXTERNALSYM TUISPI_lineConfigDialog}
  938. function TUISPI_lineConfigDialogEdit(lpfnUIDLLCallback: TTUISpiDllCallback;
  939.   dwDeviceID: DWORD; hwndOwner: HWND; lpszDeviceClass: LPCWSTR;
  940.   lpDeviceConfigIn: Pointer; dwSize: DWORD;
  941.   lpDeviceConfigOut: PVarString): Longint; stdcall; // TSPI v2.0
  942. {$EXTERNALSYM TUISPI_lineConfigDialogEdit}
  944. function TUISPI_phoneConfigDialog(lpfnUIDLLCallback: TUISpiDllCallback;
  945.   dwDeviceID: DWORD; hwndOwner: HWND;
  946.   lpszDeviceClass: LPCWSTR): Longint; stdcall; // TSPI v2.0
  947. {$EXTERNALSYM TUISPI_phoneConfigDialog}
  949. function TUISPI_providerConfig(lpfnUIDLLCallback:  TUISpiDllCallback;
  950.   hwndOwner: HWND; dwPermanentProviderID: DWORD): Longint; stdcall; // TSPI v2.0
  951. {$EXTERNALSYM TUISPI_providerConfig}
  953. function TUISPI_providerGenericDialog(lpfnUIDLLCallback: TUISpiDllCallback;
  954.   htDlgInst: HTapiDialogInstance; lpParams: Pointer; dwSize: DWORD;
  955.   hEvent: THandle): Longint;  stdcall; // TSPI v2.0
  956. {$EXTERNALSYM TUISPI_providerGenericDialog}
  958. function TUISPI_providerGenericDialogData(htDlgInst: HTapiDialogInstance;
  959.   lpParams: Pointer; dwSize: DWORD): Longint; stdcall; // TSPI v2.0
  960. {$EXTERNALSYM TUISPI_providerGenericDialogData}
  962. function TUISPI_providerInstall(lpfnUIDLLCallback: TUISpiDllCallback;
  963.   hwndOwner: HWND;
  964.   dwPermanentProviderID: DWORD): Longint; stdcall; // TSPI v2.0
  965. {$EXTERNALSYM TUISPI_providerInstall}
  967. function TUISPI_providerRemove(lpfnUIDLLCallback: TUISpiDllCallback;
  968.   hwndOwner: HWND; dwPermanentProviderID: DWORD): Longint; stdcall; // TSPI v2.0
  969. {$EXTERNALSYM TUISPI_providerRemove}
  970. {$ELSE}
  971. //
  972. // The following were obsoleted by the above (but are needed to build 1.4 SPs)
  973. //
  975. function TSPI_lineConfigDialog(dwDeviceID: DWORD; hwndOwner: HWND;
  976.   lpszDeviceClass: LPCSTR): Longint; stdcall;
  977. {$EXTERNALSYM TSPI_lineConfigDialog}
  979. function TSPI_lineConfigDialogEdit(dwDeviceID: DWORD; hwndOwner: HWND;
  980.   lpszDeviceClass: LPCSTR; const lpDeviceConfigIn: Pointer; dwSize: DWORD;
  981.   lpDeviceConfigOut: PVarString): Longint; stdcall;
  982. {$EXTERNALSYM TSPI_lineConfigDialogEdit}
  984. function TSPI_phoneConfigDialog(dwDeviceID: DWORD; hwndOwner: HWND;
  985.   lpszDeviceClass: LPCSTR): Longint; stdcall;
  986. {$EXTERNALSYM TSPI_phoneConfigDialog}
  987. {$ENDIF}
  989. {$IFNDEF TAPI20}
  990. //
  991. // The following macros are the ordinal numbers of the exported tspi functions
  992. //
  994. const
  995.   TSPI_PROC_BASE = 500;
  996.   {$EXTERNALSYM TSPI_PROC_BASE}
  998.   TSPI_LINEACCEPT                    = (TSPI_PROC_BASE + 0);
  999.   {$EXTERNALSYM TSPI_LINEACCEPT}
  1000.   TSPI_LINEADDTOCONFERENCE           = (TSPI_PROC_BASE + 1);
  1001.   {$EXTERNALSYM TSPI_LINEADDTOCONFERENCE}
  1002.   TSPI_LINEANSWER                    = (TSPI_PROC_BASE + 2);
  1003.   {$EXTERNALSYM TSPI_LINEANSWER}
  1004.   TSPI_LINEBLINDTRANSFER             = (TSPI_PROC_BASE + 3);
  1005.   {$EXTERNALSYM TSPI_LINEBLINDTRANSFER}
  1006.   TSPI_LINECLOSE                     = (TSPI_PROC_BASE + 4);
  1007.   {$EXTERNALSYM TSPI_LINECLOSE}
  1008.   TSPI_LINECLOSECALL                 = (TSPI_PROC_BASE + 5);
  1009.   {$EXTERNALSYM TSPI_LINECLOSECALL}
  1010.   TSPI_LINECOMPLETECALL              = (TSPI_PROC_BASE + 6);
  1011.   {$EXTERNALSYM TSPI_LINECOMPLETECALL}
  1012.   TSPI_LINECOMPLETETRANSFER          = (TSPI_PROC_BASE + 7);
  1013.   {$EXTERNALSYM TSPI_LINECOMPLETETRANSFER}
  1014.   TSPI_LINECONDITIONALMEDIADETECTION = (TSPI_PROC_BASE + 8);
  1015.   {$EXTERNALSYM TSPI_LINECONDITIONALMEDIADETECTION}
  1016.   TSPI_LINECONFIGDIALOG              = (TSPI_PROC_BASE + 9);
  1017.   {$EXTERNALSYM TSPI_LINECONFIGDIALOG}
  1018.   TSPI_LINEDEVSPECIFIC               = (TSPI_PROC_BASE + 10);
  1019.   {$EXTERNALSYM TSPI_LINEDEVSPECIFIC}
  1020.   TSPI_LINEDEVSPECIFICFEATURE        = (TSPI_PROC_BASE + 11);
  1021.   {$EXTERNALSYM TSPI_LINEDEVSPECIFICFEATURE}
  1022.   TSPI_LINEDIAL                      = (TSPI_PROC_BASE + 12);
  1023.   {$EXTERNALSYM TSPI_LINEDIAL}
  1024.   TSPI_LINEDROP                      = (TSPI_PROC_BASE + 13);
  1025.   {$EXTERNALSYM TSPI_LINEDROP}
  1026.   TSPI_LINEFORWARD                   = (TSPI_PROC_BASE + 14);
  1027.   {$EXTERNALSYM TSPI_LINEFORWARD}
  1028.   TSPI_LINEGATHERDIGITS              = (TSPI_PROC_BASE + 15);
  1029.   {$EXTERNALSYM TSPI_LINEGATHERDIGITS}
  1030.   TSPI_LINEGENERATEDIGITS            = (TSPI_PROC_BASE + 16);
  1031.   {$EXTERNALSYM TSPI_LINEGENERATEDIGITS}
  1032.   TSPI_LINEGENERATETONE              = (TSPI_PROC_BASE + 17);
  1033.   {$EXTERNALSYM TSPI_LINEGENERATETONE}
  1034.   TSPI_LINEGETADDRESSCAPS            = (TSPI_PROC_BASE + 18);
  1035.   {$EXTERNALSYM TSPI_LINEGETADDRESSCAPS}
  1036.   TSPI_LINEGETADDRESSID              = (TSPI_PROC_BASE + 19);
  1037.   {$EXTERNALSYM TSPI_LINEGETADDRESSID}
  1038.   TSPI_LINEGETADDRESSSTATUS          = (TSPI_PROC_BASE + 20);
  1039.   {$EXTERNALSYM TSPI_LINEGETADDRESSSTATUS}
  1040.   TSPI_LINEGETCALLADDRESSID          = (TSPI_PROC_BASE + 21);
  1041.   {$EXTERNALSYM TSPI_LINEGETCALLADDRESSID}
  1042.   TSPI_LINEGETCALLINFO               = (TSPI_PROC_BASE + 22);
  1043.   {$EXTERNALSYM TSPI_LINEGETCALLINFO}
  1044.   TSPI_LINEGETCALLSTATUS             = (TSPI_PROC_BASE + 23);
  1045.   {$EXTERNALSYM TSPI_LINEGETCALLSTATUS}
  1046.   TSPI_LINEGETDEVCAPS                = (TSPI_PROC_BASE + 24);
  1047.   {$EXTERNALSYM TSPI_LINEGETDEVCAPS}
  1048.   TSPI_LINEGETDEVCONFIG              = (TSPI_PROC_BASE + 25);
  1049.   {$EXTERNALSYM TSPI_LINEGETDEVCONFIG}
  1050.   TSPI_LINEGETEXTENSIONID            = (TSPI_PROC_BASE + 26);
  1051.   {$EXTERNALSYM TSPI_LINEGETEXTENSIONID}
  1052.   TSPI_LINEGETICON                   = (TSPI_PROC_BASE + 27);
  1053.   {$EXTERNALSYM TSPI_LINEGETICON}
  1054.   TSPI_LINEGETID                     = (TSPI_PROC_BASE + 28);
  1055.   {$EXTERNALSYM TSPI_LINEGETID}
  1056.   TSPI_LINEGETLINEDEVSTATUS          = (TSPI_PROC_BASE + 29);
  1057.   {$EXTERNALSYM TSPI_LINEGETLINEDEVSTATUS}
  1058.   TSPI_LINEGETNUMADDRESSIDS          = (TSPI_PROC_BASE + 30);
  1059.   {$EXTERNALSYM TSPI_LINEGETNUMADDRESSIDS}
  1060.   TSPI_LINEHOLD                      = (TSPI_PROC_BASE + 31);
  1061.   {$EXTERNALSYM TSPI_LINEHOLD}
  1062.   TSPI_LINEMAKECALL                  = (TSPI_PROC_BASE + 32);
  1063.   {$EXTERNALSYM TSPI_LINEMAKECALL}
  1064.   TSPI_LINEMONITORDIGITS             = (TSPI_PROC_BASE + 33);
  1065.   {$EXTERNALSYM TSPI_LINEMONITORDIGITS}
  1066.   TSPI_LINEMONITORMEDIA              = (TSPI_PROC_BASE + 34);
  1067.   {$EXTERNALSYM TSPI_LINEMONITORMEDIA}
  1068.   TSPI_LINEMONITORTONES              = (TSPI_PROC_BASE + 35);
  1069.   {$EXTERNALSYM TSPI_LINEMONITORTONES}
  1070.   TSPI_LINENEGOTIATEEXTVERSION       = (TSPI_PROC_BASE + 36);
  1071.   {$EXTERNALSYM TSPI_LINENEGOTIATEEXTVERSION}
  1072.   TSPI_LINENEGOTIATETSPIVERSION      = (TSPI_PROC_BASE + 37);
  1073.   {$EXTERNALSYM TSPI_LINENEGOTIATETSPIVERSION}
  1074.   TSPI_LINEOPEN                      = (TSPI_PROC_BASE + 38);
  1075.   {$EXTERNALSYM TSPI_LINEOPEN}
  1076.   TSPI_LINEPARK                      = (TSPI_PROC_BASE + 39);
  1077.   {$EXTERNALSYM TSPI_LINEPARK}
  1078.   TSPI_LINEPICKUP                    = (TSPI_PROC_BASE + 40);
  1079.   {$EXTERNALSYM TSPI_LINEPICKUP}
  1080.   TSPI_LINEPREPAREADDTOCONFERENCE    = (TSPI_PROC_BASE + 41);
  1081.   {$EXTERNALSYM TSPI_LINEPREPAREADDTOCONFERENCE}
  1082.   TSPI_LINEREDIRECT                  = (TSPI_PROC_BASE + 42);
  1083.   {$EXTERNALSYM TSPI_LINEREDIRECT}
  1084.   TSPI_LINEREMOVEFROMCONFERENCE      = (TSPI_PROC_BASE + 43);
  1085.   {$EXTERNALSYM TSPI_LINEREMOVEFROMCONFERENCE}
  1086.   TSPI_LINESECURECALL                = (TSPI_PROC_BASE + 44);
  1087.   {$EXTERNALSYM TSPI_LINESECURECALL}
  1088.   TSPI_LINESELECTEXTVERSION          = (TSPI_PROC_BASE + 45);
  1089.   {$EXTERNALSYM TSPI_LINESELECTEXTVERSION}
  1090.   TSPI_LINESENDUSERUSERINFO          = (TSPI_PROC_BASE + 46);
  1091.   {$EXTERNALSYM TSPI_LINESENDUSERUSERINFO}
  1092.   TSPI_LINESETAPPSPECIFIC            = (TSPI_PROC_BASE + 47);
  1093.   {$EXTERNALSYM TSPI_LINESETAPPSPECIFIC}
  1094.   TSPI_LINESETCALLPARAMS             = (TSPI_PROC_BASE + 48);
  1095.   {$EXTERNALSYM TSPI_LINESETCALLPARAMS}
  1096.   TSPI_LINESETDEFAULTMEDIADETECTION  = (TSPI_PROC_BASE + 49);
  1097.   {$EXTERNALSYM TSPI_LINESETDEFAULTMEDIADETECTION}
  1098.   TSPI_LINESETDEVCONFIG              = (TSPI_PROC_BASE + 50);
  1099.   {$EXTERNALSYM TSPI_LINESETDEVCONFIG}
  1100.   TSPI_LINESETMEDIACONTROL           = (TSPI_PROC_BASE + 51);
  1101.   {$EXTERNALSYM TSPI_LINESETMEDIACONTROL}
  1102.   TSPI_LINESETMEDIAMODE              = (TSPI_PROC_BASE + 52);
  1103.   {$EXTERNALSYM TSPI_LINESETMEDIAMODE}
  1104.   TSPI_LINESETSTATUSMESSAGES         = (TSPI_PROC_BASE + 53);
  1105.   {$EXTERNALSYM TSPI_LINESETSTATUSMESSAGES}
  1106.   TSPI_LINESETTERMINAL               = (TSPI_PROC_BASE + 54);
  1107.   {$EXTERNALSYM TSPI_LINESETTERMINAL}
  1108.   TSPI_LINESETUPCONFERENCE           = (TSPI_PROC_BASE + 55);
  1109.   {$EXTERNALSYM TSPI_LINESETUPCONFERENCE}
  1110.   TSPI_LINESETUPTRANSFER             = (TSPI_PROC_BASE + 56);
  1111.   {$EXTERNALSYM TSPI_LINESETUPTRANSFER}
  1112.   TSPI_LINESWAPHOLD                  = (TSPI_PROC_BASE + 57);
  1113.   {$EXTERNALSYM TSPI_LINESWAPHOLD}
  1114.   TSPI_LINEUNCOMPLETECALL            = (TSPI_PROC_BASE + 58);
  1115.   {$EXTERNALSYM TSPI_LINEUNCOMPLETECALL}
  1116.   TSPI_LINEUNHOLD                    = (TSPI_PROC_BASE + 59);
  1117.   {$EXTERNALSYM TSPI_LINEUNHOLD}
  1118.   TSPI_LINEUNPARK                    = (TSPI_PROC_BASE + 60);
  1119.   {$EXTERNALSYM TSPI_LINEUNPARK}
  1120.   TSPI_PHONECLOSE                    = (TSPI_PROC_BASE + 61);
  1121.   {$EXTERNALSYM TSPI_PHONECLOSE}
  1122.   TSPI_PHONECONFIGDIALOG             = (TSPI_PROC_BASE + 62);
  1123.   {$EXTERNALSYM TSPI_PHONECONFIGDIALOG}
  1124.   TSPI_PHONEDEVSPECIFIC              = (TSPI_PROC_BASE + 63);
  1125.   {$EXTERNALSYM TSPI_PHONEDEVSPECIFIC}
  1126.   TSPI_PHONEGETBUTTONINFO            = (TSPI_PROC_BASE + 64);
  1127.   {$EXTERNALSYM TSPI_PHONEGETBUTTONINFO}
  1128.   TSPI_PHONEGETDATA                  = (TSPI_PROC_BASE + 65);
  1129.   {$EXTERNALSYM TSPI_PHONEGETDATA}
  1130.   TSPI_PHONEGETDEVCAPS               = (TSPI_PROC_BASE + 66);
  1131.   {$EXTERNALSYM TSPI_PHONEGETDEVCAPS}
  1132.   TSPI_PHONEGETDISPLAY               = (TSPI_PROC_BASE + 67);
  1133.   {$EXTERNALSYM TSPI_PHONEGETDISPLAY}
  1134.   TSPI_PHONEGETEXTENSIONID           = (TSPI_PROC_BASE + 68);
  1135.   {$EXTERNALSYM TSPI_PHONEGETEXTENSIONID}
  1136.   TSPI_PHONEGETGAIN                  = (TSPI_PROC_BASE + 69);
  1137.   {$EXTERNALSYM TSPI_PHONEGETGAIN}
  1138.   TSPI_PHONEGETHOOKSWITCH            = (TSPI_PROC_BASE + 70);
  1139.   {$EXTERNALSYM TSPI_PHONEGETHOOKSWITCH}
  1140.   TSPI_PHONEGETICON                  = (TSPI_PROC_BASE + 71);
  1141.   {$EXTERNALSYM TSPI_PHONEGETICON}
  1142.   TSPI_PHONEGETID                    = (TSPI_PROC_BASE + 72);
  1143.   {$EXTERNALSYM TSPI_PHONEGETID}
  1144.   TSPI_PHONEGETLAMP                  = (TSPI_PROC_BASE + 73);
  1145.   {$EXTERNALSYM TSPI_PHONEGETLAMP}
  1146.   TSPI_PHONEGETRING                  = (TSPI_PROC_BASE + 74);
  1147.   {$EXTERNALSYM TSPI_PHONEGETRING}
  1148.   TSPI_PHONEGETSTATUS                = (TSPI_PROC_BASE + 75);
  1149.   {$EXTERNALSYM TSPI_PHONEGETSTATUS}
  1150.   TSPI_PHONEGETVOLUME                = (TSPI_PROC_BASE + 76);
  1151.   {$EXTERNALSYM TSPI_PHONEGETVOLUME}
  1152.   TSPI_PHONENEGOTIATEEXTVERSION      = (TSPI_PROC_BASE + 77);
  1153.   {$EXTERNALSYM TSPI_PHONENEGOTIATEEXTVERSION}
  1154.   TSPI_PHONENEGOTIATETSPIVERSION     = (TSPI_PROC_BASE + 78);
  1155.   {$EXTERNALSYM TSPI_PHONENEGOTIATETSPIVERSION}
  1156.   TSPI_PHONEOPEN                     = (TSPI_PROC_BASE + 79);
  1157.   {$EXTERNALSYM TSPI_PHONEOPEN}
  1158.   TSPI_PHONESELECTEXTVERSION         = (TSPI_PROC_BASE + 80);
  1159.   {$EXTERNALSYM TSPI_PHONESELECTEXTVERSION}
  1160.   TSPI_PHONESETBUTTONINFO            = (TSPI_PROC_BASE + 81);
  1161.   {$EXTERNALSYM TSPI_PHONESETBUTTONINFO}
  1162.   TSPI_PHONESETDATA                  = (TSPI_PROC_BASE + 82);
  1163.   {$EXTERNALSYM TSPI_PHONESETDATA}
  1164.   TSPI_PHONESETDISPLAY               = (TSPI_PROC_BASE + 83);
  1165.   {$EXTERNALSYM TSPI_PHONESETDISPLAY}
  1166.   TSPI_PHONESETGAIN                  = (TSPI_PROC_BASE + 84);
  1167.   {$EXTERNALSYM TSPI_PHONESETGAIN}
  1168.   TSPI_PHONESETHOOKSWITCH            = (TSPI_PROC_BASE + 85);
  1169.   {$EXTERNALSYM TSPI_PHONESETHOOKSWITCH}
  1170.   TSPI_PHONESETLAMP                  = (TSPI_PROC_BASE + 86);
  1171.   {$EXTERNALSYM TSPI_PHONESETLAMP}
  1172.   TSPI_PHONESETRING                  = (TSPI_PROC_BASE + 87);
  1173.   {$EXTERNALSYM TSPI_PHONESETRING}
  1174.   TSPI_PHONESETSTATUSMESSAGES        = (TSPI_PROC_BASE + 88);
  1175.   {$EXTERNALSYM TSPI_PHONESETSTATUSMESSAGES}
  1176.   TSPI_PHONESETVOLUME                = (TSPI_PROC_BASE + 89);
  1177.   {$EXTERNALSYM TSPI_PHONESETVOLUME}
  1178.   TSPI_PROVIDERCONFIG                = (TSPI_PROC_BASE + 90);
  1179.   {$EXTERNALSYM TSPI_PROVIDERCONFIG}
  1180.   TSPI_PROVIDERINIT                  = (TSPI_PROC_BASE + 91);
  1181.   {$EXTERNALSYM TSPI_PROVIDERINIT}
  1182.   TSPI_PROVIDERINSTALL               = (TSPI_PROC_BASE + 92);
  1183.   {$EXTERNALSYM TSPI_PROVIDERINSTALL}
  1184.   TSPI_PROVIDERREMOVE                = (TSPI_PROC_BASE + 93);
  1185.   {$EXTERNALSYM TSPI_PROVIDERREMOVE}
  1186.   TSPI_PROVIDERSHUTDOWN              = (TSPI_PROC_BASE + 94);
  1187.   {$EXTERNALSYM TSPI_PROVIDERSHUTDOWN}
  1189.   TSPI_PROVIDERENUMDEVICES           = (TSPI_PROC_BASE + 95); // TSPI v1.4
  1190.   {$EXTERNALSYM TSPI_PROVIDERENUMDEVICES}
  1191.   TSPI_LINEDROPONCLOSE               = (TSPI_PROC_BASE + 96); // TSPI v1.4
  1192.   {$EXTERNALSYM TSPI_LINEDROPONCLOSE}
  1193.   TSPI_LINEDROPNOOWNER               = (TSPI_PROC_BASE + 97); // TSPI v1.4
  1194.   {$EXTERNALSYM TSPI_LINEDROPNOOWNER}
  1195.   TSPI_PROVIDERCREATELINEDEVICE      = (TSPI_PROC_BASE + 98); // TSPI v1.4
  1196.   {$EXTERNALSYM TSPI_PROVIDERCREATELINEDEVICE}
  1197.   TSPI_PROVIDERCREATEPHONEDEVICE     = (TSPI_PROC_BASE + 99); // TSPI v1.4
  1198.   {$EXTERNALSYM TSPI_PROVIDERCREATEPHONEDEVICE}
  1199.   TSPI_LINESETCURRENTLOCATION        = (TSPI_PROC_BASE + 100); // TSPI v1.4
  1200.   {$EXTERNALSYM TSPI_LINESETCURRENTLOCATION}
  1201.   TSPI_LINECONFIGDIALOGEDIT          = (TSPI_PROC_BASE + 101); // TSPI v1.4
  1202.   {$EXTERNALSYM TSPI_LINECONFIGDIALOGEDIT}
  1203.   TSPI_LINERELEASEUSERUSERINFO       = (TSPI_PROC_BASE + 102); // TSPI v1.4
  1204.   {$EXTERNALSYM TSPI_LINERELEASEUSERUSERINFO}
  1206.   TSPI_LINEGETCALLID                 = (TSPI_PROC_BASE + 103); // TSPI v3.0
  1207.   {$EXTERNALSYM TSPI_LINEGETCALLID}
  1208.   TSPI_LINEGETCALLHUBTRACKING        = (TSPI_PROC_BASE + 104); // TSPI v3.0
  1209.   {$EXTERNALSYM TSPI_LINEGETCALLHUBTRACKING}
  1210.   TSPI_LINESETCALLHUBTRACKING        = (TSPI_PROC_BASE + 105); // TSPI v3.0
  1211.   {$EXTERNALSYM TSPI_LINESETCALLHUBTRACKING}
  1212.   TSPI_LINERECEIVEMSPDATA            = (TSPI_PROC_BASE + 106); // TSPI v3.0
  1213.   {$EXTERNALSYM TSPI_LINERECEIVEMSPDATA}
  1214.   TSPI_LINEMSPIDENTIFY               = (TSPI_PROC_BASE + 107); // TSPI v3.0
  1215.   {$EXTERNALSYM TSPI_LINEMSPIDENTIFY}
  1216.   TSPI_LINECREATEMSPINSTANCE         = (TSPI_PROC_BASE + 108); // TSPI v3.0
  1217.   {$EXTERNALSYM TSPI_LINECREATEMSPINSTANCE}
  1218.   TSPI_LINECLOSEMSPINSTANCE          = (TSPI_PROC_BASE + 109); // TSPI v3.0
  1219.   {$EXTERNALSYM TSPI_LINECLOSEMSPINSTANCE}
  1220. {$ENDIF}
  1222. implementation
  1225. const
  1226.   TSpiDll = 'tspi.dll';
  1228. function TSPI_lineAccept; external TSpiDll name 'TSPI_lineAccept';
  1229. function TSPI_lineAddToConference; external TSpiDll name 'TSPI_lineAddToConference';
  1230. function TSPI_lineAnswer; external TSpiDll name 'TSPI_lineAnswer';
  1231. function TSPI_lineBlindTransfer; external TSpiDll name 'TSPI_lineBlindTransfer';
  1232. function TSPI_lineClose; external TSpiDll name 'TSPI_lineClose';
  1233. function TSPI_lineCloseCall; external TSpiDll name 'TSPI_lineCloseCall';
  1234. function TSPI_lineCompleteCall; external TSpiDll name 'TSPI_lineCompleteCall';
  1235. function TSPI_lineCompleteTransfer; external TSpiDll name 'TSPI_lineCompleteTransfer';
  1236. function TSPI_lineConditionalMediaDetection; external TSpiDll name 'TSPI_lineConditionalMediaDetection';
  1237. function TSPI_lineDevSpecific; external TSpiDll name 'TSPI_lineDevSpecific';
  1238. function TSPI_lineDevSpecificFeature; external TSpiDll name 'TSPI_lineDevSpecificFeature';
  1239. function TSPI_lineDial; external TSpiDll name 'TSPI_lineDial';
  1240. function TSPI_lineDrop; external TSpiDll name 'TSPI_lineDrop';
  1241. function TSPI_lineDropOnClose; external TSpiDll name 'TSPI_lineDropOnClose';
  1242. function TSPI_lineDropNoOwner; external TSpiDll name 'TSPI_lineDropNoOwner';
  1243. function TSPI_lineForward; external TSpiDll name 'TSPI_lineForward';
  1244. function TSPI_lineGatherDigits; external TSpiDll name 'TSPI_lineGatherDigits';
  1245. function TSPI_lineGenerateDigits; external TSpiDll name 'TSPI_lineGenerateDigits';
  1246. function TSPI_lineGenerateTone; external TSpiDll name 'TSPI_lineGenerateTone';
  1247. function TSPI_lineGetAddressCaps; external TSpiDll name 'TSPI_lineGetAddressCaps';
  1248. function TSPI_lineGetAddressID; external TSpiDll name 'TSPI_lineGetAddressID';
  1249. function TSPI_lineGetAddressStatus; external TSpiDll name 'TSPI_lineGetAddressStatus';
  1250. function TSPI_lineGetCallAddressID; external TSpiDll name 'TSPI_lineGetCallAddressID';
  1251. {$IFDEF TAPI30}
  1252. function TSPI_lineGetCallHubTracking; external TspiDll name 'TSPI_lineGetCallHubTracking';
  1253. function TSPI_lineGetCallIDs; external TspiDll name 'TSPI_lineGetCallIDs';
  1254. {$ENDIF}
  1255. function TSPI_lineGetCallInfo; external TSpiDll name 'TSPI_lineGetCallInfo';
  1256. function TSPI_lineGetCallStatus; external TSpiDll name 'TSPI_lineGetCallStatus';
  1257. function TSPI_lineGetDevCaps; external TSpiDll name 'TSPI_lineGetDevCaps';
  1258. function TSPI_lineGetDevConfig; external TSpiDll name 'TSPI_lineGetDevConfig';
  1259. function TSPI_lineGetExtensionID; external TSpiDll name 'TSPI_lineGetExtensionID';
  1260. function TSPI_lineGetIcon; external TSpiDll name 'TSPI_lineGetIcon';
  1261. function TSPI_lineGetID; external TSpiDll name 'TSPI_lineGetID';
  1262. function TSPI_lineGetLineDevStatus; external TSpiDll name 'TSPI_lineGetLineDevStatus';
  1263. function TSPI_lineGetNumAddressIDs; external TSpiDll name 'TSPI_lineGetNumAddressIDs';
  1264. function TSPI_lineHold; external TSpiDll name 'TSPI_lineHold';
  1265. function TSPI_lineMakeCall; external TSpiDll name 'TSPI_lineMakeCall';
  1266. function TSPI_lineMonitorDigits; external TSpiDll name 'TSPI_lineMonitorDigits';
  1267. function TSPI_lineMonitorMedia; external TSpiDll name 'TSPI_lineMonitorMedia';
  1268. function TSPI_lineMonitorTones; external TSpiDll name 'TSPI_lineMonitorTones';
  1269. function TSPI_lineNegotiateExtVersion; external TSpiDll name 'TSPI_lineNegotiateExtVersion';
  1270. function TSPI_lineNegotiateTSPIVersion; external TSpiDll name 'TSPI_lineNegotiateTSPIVersion';
  1271. function TSPI_lineOpen; external TSpiDll name 'TSPI_lineOpen';
  1272. function TSPI_linePark; external TSpiDll name 'TSPI_linePark';
  1273. function TSPI_linePickup; external TSpiDll name 'TSPI_linePickup';
  1274. function TSPI_linePrepareAddToConference; external TSpiDll name 'TSPI_linePrepareAddToConference';
  1275. function TSPI_lineRedirect; external TSpiDll name 'TSPI_lineRedirect';
  1276. function TSPI_lineReleaseUserUserInfo; external TSpiDll name 'TSPI_lineReleaseUserUserInfo';
  1277. function TSPI_lineRemoveFromConference; external TSpiDll name 'TSPI_lineRemoveFromConference';
  1278. function TSPI_lineSecureCall; external TSpiDll name 'TSPI_lineSecureCall';
  1279. function TSPI_lineSelectExtVersion; external TSpiDll name 'TSPI_lineSelectExtVersion';
  1280. function TSPI_lineSendUserUserInfo; external TSpiDll name 'TSPI_lineSendUserUserInfo';
  1281. function TSPI_lineSetAppSpecific; external TSpiDll name 'TSPI_lineSetAppSpecific';
  1282. function TSPI_lineSetCallParams; external TSpiDll name 'TSPI_lineSetCallParams';
  1283. function TSPI_lineSetCurrentLocation; external TSpiDll name 'TSPI_lineSetCurrentLocation';
  1284. function TSPI_lineSetDefaultMediaDetection; external TSpiDll name 'TSPI_lineSetDefaultMediaDetection';
  1285. function TSPI_lineSetDevConfig; external TSpiDll name 'TSPI_lineSetDevConfig';
  1286. function TSPI_lineSetMediaControl; external TSpiDll name 'TSPI_lineSetMediaControl';
  1287. function TSPI_lineSetMediaMode; external TSpiDll name 'TSPI_lineSetMediaMode';
  1288. function TSPI_lineSetStatusMessages; external TSpiDll name 'TSPI_lineSetStatusMessages';
  1289. function TSPI_lineSetTerminal; external TSpiDll name 'TSPI_lineSetTerminal';
  1290. function TSPI_lineSetupConference; external TSpiDll name 'TSPI_lineSetupConference';
  1291. function TSPI_lineSetupTransfer; external TSpiDll name 'TSPI_lineSetupTransfer';
  1292. function TSPI_lineSwapHold; external TSpiDll name 'TSPI_lineSwapHold';
  1293. function TSPI_lineUncompleteCall; external TSpiDll name 'TSPI_lineUncompleteCall';
  1294. function TSPI_lineUnhold; external TSpiDll name 'TSPI_lineUnhold';
  1295. function TSPI_lineUnpark; external TSpiDll name 'TSPI_lineUnpark';
  1297. function TSPI_phoneClose; external TSpiDll name 'TSPI_phoneClose';
  1298. function TSPI_phoneDevSpecific; external TSpiDll name 'TSPI_phoneDevSpecific';
  1299. function TSPI_phoneGetButtonInfo; external TSpiDll name 'TSPI_phoneGetButtonInfo';
  1300. function TSPI_phoneGetData; external TSpiDll name 'TSPI_phoneGetData';
  1301. function TSPI_phoneGetDevCaps; external TSpiDll name 'TSPI_phoneGetDevCaps';
  1302. function TSPI_phoneGetDisplay; external TSpiDll name 'TSPI_phoneGetDisplay';
  1303. function TSPI_phoneGetExtensionID; external TSpiDll name 'TSPI_phoneGetExtensionID';
  1304. function TSPI_phoneGetGain; external TSpiDll name 'TSPI_phoneGetGain';
  1305. function TSPI_phoneGetHookSwitch; external TSpiDll name 'TSPI_phoneGetHookSwitch';
  1306. function TSPI_phoneGetIcon; external TSpiDll name 'TSPI_phoneGetIcon';
  1307. function TSPI_phoneGetID; external TSpiDll name 'TSPI_phoneGetID';
  1308. function TSPI_phoneGetLamp; external TSpiDll name 'TSPI_phoneGetLamp';
  1309. function TSPI_phoneGetRing; external TSpiDll name 'TSPI_phoneGetRing';
  1310. function TSPI_phoneGetStatus; external TSpiDll name 'TSPI_phoneGetStatus';
  1311. function TSPI_phoneGetVolume; external TSpiDll name 'TSPI_phoneGetVolume';
  1312. function TSPI_phoneNegotiateExtVersion; external TSpiDll name 'TSPI_phoneNegotiateExtVersion';
  1313. function TSPI_phoneNegotiateTSPIVersion; external TSpiDll name 'TSPI_phoneNegotiateTSPIVersion';
  1314. function TSPI_phoneOpen; external TSpiDll name 'TSPI_phoneOpen';
  1315. function TSPI_phoneSelectExtVersion; external TSpiDll name 'TSPI_phoneSelectExtVersion';
  1316. function TSPI_phoneSetButtonInfo; external TSpiDll name 'TSPI_phoneSetButtonInfo';
  1317. function TSPI_phoneSetData; external TSpiDll name 'TSPI_phoneSetData';
  1318. function TSPI_phoneSetDisplay; external TSpiDll name 'TSPI_phoneSetDisplay';
  1319. function TSPI_phoneSetGain; external TSpiDll name 'TSPI_phoneSetGain';
  1320. function TSPI_phoneSetHookSwitch; external TSpiDll name 'TSPI_phoneSetHookSwitch';
  1321. function TSPI_phoneSetLamp; external TSpiDll name 'TSPI_phoneSetLamp';
  1322. function TSPI_phoneSetRing; external TSpiDll name 'TSPI_phoneSetRing';
  1323. function TSPI_phoneSetStatusMessages; external TSpiDll name 'TSPI_phoneSetStatusMessages';
  1324. function TSPI_phoneSetVolume; external TSpiDll name 'TSPI_phoneSetVolume';
  1325. function TSPI_providerConfig; external TSpiDll name 'TSPI_providerConfig';
  1327. function TSPI_providerCreateLineDevice; external TSpiDll name 'TSPI_providerCreateLineDevice';
  1328. function TSPI_providerCreatePhoneDevice; external TSpiDll name 'TSPI_providerCreatePhoneDevice';
  1329. function TSPI_providerEnumDevices; external TSpiDll name 'TSPI_providerEnumDevices';
  1330. function TSPI_providerInit; external TSpiDll name 'TSPI_providerInit';
  1331. function TSPI_providerInstall; external TSpiDll name 'TSPI_providerInstall';
  1332. function TSPI_providerRemove; external TSpiDll name 'TSPI_providerRemove';
  1333. function TSPI_providerShutdown; external TSpiDll name 'TSPI_providerShutdown';
  1335. {$IFDEF TAPI20}
  1336. function TSPI_lineSetCallData; external TSpiDll name 'TSPI_lineSetCallData';
  1337. {$ENDIF}
  1338. {$IFDEF TAPI30}
  1339. function TSPI_lineSetCallHubTracking; external TspiDll name 'TSPI_lineSetCallHubTracking';
  1340. {$ENDIF}
  1341. {$IFDEF TAPI20}
  1342. function TSPI_lineSetCallQualityOfService; external TSpiDll name 'TSPI_lineSetCallQualityOfService';
  1343. function TSPI_lineSetCallTreatment; external TSpiDll name 'TSPI_lineSetCallTreatment';
  1344. function TSPI_lineSetLineDevStatus; external TSpiDll name 'TSPI_lineSetLineDevStatus';
  1345. {$ENDIF}
  1347. {$IFDEF TAPI20}
  1348. function TSPI_providerFreeDialogInstance; external TSpiDll name 'TSPI_providerFreeDialogInstance';
  1349. function TSPI_providerGenericDialogData; external TSpiDll name 'TSPI_providerGenericDialogData';
  1350. function TSPI_providerUIIdentify; external TSpiDll name 'TSPI_providerUIIdentify';
  1351. {$ENDIF}
  1352. {$IFDEF TAPI30}
  1353. function TSPI_lineMSPIdentify; external TspiDll name 'TSPI_lineMSPIdentify';
  1354. function TSPI_lineCloseMSPInstance; external TspiDll name 'TSPI_lineCloseMSPInstance';
  1355. function TSPI_lineReceiveMSPData; external TspiDll name 'TSPI_lineReceiveMSPData';
  1356. {$ENDIF}
  1358. {$IFDEF TAPI20}
  1359. function TUISPI_lineConfigDialog; external TSpiDll name 'TUISPI_lineConfigDialog';
  1360. function TUISPI_lineConfigDialogEdit; external TSpiDll name 'TUISPI_lineConfigDialogEdit';
  1361. function TUISPI_phoneConfigDialog; external TSpiDll name 'TUISPI_phoneConfigDialog';
  1362. function TUISPI_providerConfig; external TSpiDll name 'TUISPI_providerConfig';
  1363. function TUISPI_providerGenericDialog; external TSpiDll name 'TUISPI_providerGenericDialog';
  1364. function TUISPI_providerGenericDialogData; external TSpiDll name 'TUISPI_providerGenericDialogData';
  1365. function TUISPI_providerInstall; external TSpiDll name 'TUISPI_providerInstall';
  1366. function TUISPI_providerRemove; external TSpiDll name 'TUISPI_providerRemove';
  1367. {$ELSE}
  1368. function TUISPI_lineConfigDialog; external TSpiDll name 'TUISPI_lineConfigDialog';
  1369. function TUISPI_lineConfigDialogEdit; external TSpiDll name 'TUISPI_lineConfigDialogEdit';
  1370. function TUISPI_phoneConfigDialog; external TSpiDll name 'TUISPI_phoneConfigDialog';
  1371. {$ENDIF}
  1373. end.