TAPI Driver

Post Reply
JimTheo
Posts: 15
Joined: Thu Sep 21, 2006 5:01 pm

TAPI Driver

Post by JimTheo »

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.
User avatar
driessen
Posts: 1239
Joined: Mon Oct 10, 2005 11:26 am
Location: Genk, Belgium

Re: TAPI Driver

Post by driessen »

I don't know in FW++ but this is the function to make a phonecall I use in FWH

Code: Select all

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

RETURN
Good luck.
Regards,

Michel D.
Genk (Belgium)
_____________________________________________________________________________________________
I use : FiveWin for (x)Harbour v. 21.01 - Harbour 3.2.0 (October 2020) - xHarbour Builder (January 2020) - Bcc7
JimTheo
Posts: 15
Joined: Thu Sep 21, 2006 5:01 pm

Re: TAPI Driver

Post by JimTheo »

Thanks for help Michel. I'll try this.
Is there any documentation you know, about caller id?
User avatar
driessen
Posts: 1239
Joined: Mon Oct 10, 2005 11:26 am
Location: Genk, Belgium

Re: TAPI Driver

Post by driessen »

I have no idea. Sorry.
Regards,

Michel D.
Genk (Belgium)
_____________________________________________________________________________________________
I use : FiveWin for (x)Harbour v. 21.01 - Harbour 3.2.0 (October 2020) - xHarbour Builder (January 2020) - Bcc7
Horizon
Posts: 997
Joined: Fri May 23, 2008 1:33 pm

Re: TAPI Driver

Post by Horizon »

Hi Michel,

Is there any driver to run this function in computer?

Thanks.
Regards,

Hakan ONEMLI

Harbour & VS 2019 & FWH 20.12
User avatar
Baxajaun
Posts: 853
Joined: Wed Oct 19, 2005 2:17 pm
Location: Gatika. Bizkaia

Re: TAPI Driver

Post by Baxajaun »

JimTheo
Posts: 15
Joined: Thu Sep 21, 2006 5:01 pm

Re: TAPI Driver

Post by JimTheo »

Baxajaun Thanks for links.

Is there any sample I could use with FW?
metro
Posts: 18
Joined: Tue Sep 25, 2012 6:01 pm
Location: Croatia

Re: TAPI Driver

Post by metro »

Hi JimTheo,

Do you really have to use the TAPI driver?
I think it's a much better solution for call center SIP (Session Initiation Protocol) based dial and receive phone calls feature.

View http://www.vaxvoip.com/phonesdk.html

Dubravko
Post Reply