TAPI Vista Business

[jprescott]

has anyone developed any code using TAPI and IP phones and experienced difficulties in using the code on Vista Business machines?

the following works on xp machines but on vista it falls over at the register events - there is an issue with registercallnotifications. Seen this problem on over 5 vista business laptops but yet it works on over 200 xp machines.


define variable lv-cAdd as character init "enter telephone no" no-undo.
DEFINE VARIABLE lc-Tapi AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE lc-TapiCall AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE lc-TapiAddress AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE lc-TapiCollAddress AS COM-HANDLE NO-UNDO.
DEFINE VARIABLE lv-string AS CHAR NO-UNDO.
DEF VAR lc-CrtAddress AS COM-HANDLE NO-UNDO.
DEF VAR lc-MediaSupport AS COM-HANDLE NO-UNDO.
DEF VAR lc-AddressCapabilities AS COM-HANDLE NO-UNDO.
DEF VAR lv-selected AS INTEGER NO-UNDO.

/**** 1. initialise ****/
CREATE "Tapi.Tapi" lc-Tapi.
lc-Tapi:Initialize().
lc-TapiCollAddress = lc-Tapi:Addresses.

/**** 2. select address 8 for audio ****/
DO lv-i = 1 TO lc-TapiCollAddress:COUNT:
lc-CrtAddress = lc-TapiColladdress:ITEM(lv-i).
lc-MediaSupport = lc-CrtAddress.

lv-ok = lc-MediaSupport:QueryMediaType(8). /* 8 for audio phone */
IF lv-ok THEN
lc-TapiAddress = lc-TapiCollAddress:ITEM(lv-i).
lc-CrtAddress = ?.
lc-MediaSupport = ?.
END.

/**** 3. register events ****/
DEF VAR glRegistration AS CHAR NO-UNDO.

glRegistration = lc-Tapi:RegisterCallNotifications(lc-TapiAddress,
TRUE,
TRUE,
8,
1).
/**** 4. Select Terminal ****/
DEF VAR lc-objCrtStream AS COM-HANDLE NO-UNDO.
DEF VAR lc-objcall AS COM-HANDLE NO-UNDO.

DEF VAR lv-dialableaddress AS CHAR NO-UNDO.

lv-dialableaddress = lc-TapiAddressialableAddress.
lc-objcall = lc-TapiAddress:CreateCall(lv-cAdd,1,8).
lc-ObjCall:CONNECT(TRUE).