Is there any library or Activex to use with FW++ for TAPI Drivers?
My Project is to connect to a center and :
a. Make phone calls from my application
b. Receive Incoming Calls (caller id) using TAPI of center.
Is there any library or Activex to use with FW++ for TAPI Drivers?
My Project is to connect to a center and :
a. Make phone calls from my application
b. Receive Incoming Calls (caller id) using TAPI of center.
DLL32 Function PhoneTo(cPhoneNo As LPSTR,cAppName AS LPSTR,cName AS LPSTR,cComment AS LPSTR) AS LONG PASCAL FROM "tapiRequestMakeCall" LIB "tapi32.dll"
PROCEDURE MakePhoneCall(cTelNr,cTelNm,cTelSrt,cTelDos,cPreOK,cTest)
LOCAL TstTel := "0123456789()+"
LOCAL TstNr := 0
DEFAULT(cTelNr ,SPACE(20))
DEFAULT(cTelNm ,"Test telephone")
DEFAULT(cTelDos,"")
DEFAULT(cPreOK,.T.)
DEFAULT(cTest ,.F.)
PRIVATE TelRet := .T.
DEFINE DIALOG KeuDlg NAME "K_TELEPHONE"
REDEFINE GET cTelNr ID 101 OF KeuDlg PICTURE REPLICATE("!",20)
REDEFINE BUTTON ID 901 OF KeuDlg ACTION (TelRet:=.T.,KeuDlg:END())
REDEFINE BUTTON ID 902 OF KeuDlg ACTION (TelRet:=.F.,KeuDlg:END())
ACTIVATE Dialog KeuDlg CENTERED
IF TelRet .AND. !EMPTY(cTelNr)
cTelNr := ALLTRIM(cTelNr)
FOR i=1 TO LEN(cTelNr)
TstNr := AT(SUBSTR(cTelNr,i,1),TstTel)
IF TstNr = 0
cTelNr := LEFT(cTelNr,i-1) + RIGHT(cTelNr,LEN(cTelNr)-i)
i--
ENDIF
NEXT
IF LEFT(cTelNr,1) = "+" ; cTelNr := "00" + RIGHT(cTelNr,LEN(cTelNr)-1) ; ENDIF
ENDIF
IF TelRet
PhoneTo(ALLTRIM(cTelNr),"is called by ",ALLTRIm(cTelNm),"Username")
ENDIF
RETURNRegards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
Thanks for help Michel. I'll try this.
Is there any documentation you know, about caller id?
I have no idea. Sorry.
Regards,
Michel D.
Genk (Belgium)
I use : FiveWin for (x)Harbour v. 25.12 - Harbour 3.2.0 (May 2025) - xHarbour Builder (January 2020) - Bcc773
Hi Michel,
Is there any driver to run this function in computer?
Thanks.
Baxajaun Thanks for links.
Is there any sample I could use with FW?