Fwh and PBX

[Silvio.Falconi]

It i spossible with Fwh a comunication as CTI (computer telephony integration) and and PBX (phone system) ?
is there a test sample ?

[driessen]

Sylvio,

I don't know if this is of any help to you. I use TAPI to make phonecalls from my application by using this code :

Code: Select all  Expand view

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)

   LOCAL TstTel   := "0123456789()+"
   LOCAL TstNr    := 0

   DEFAULT(cTelNr ,SPACE(20))
   DEFAULT(cTelNm ,"Telephone test")
   DEFAULT(cTelDos,"")
   DEFAULT(cPreOK,.T.)

   PRIVATE TelRet := .T.

   DEFINE DIALOG KeuDlg NAME "K_TELEFOON" FONT oFontSFB
   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(IF(US->USTELNUL,"0","") + ALLTRIM(cTelNr),"is called by",ALLTRIM(cTelNm),ALLTRIM(US->USERNAAM))
   ENDIF

RETURN

If the telephone software is using TAPI too, this function will work. I have installed it on networks of several customers.

Good luck.

[Silvio.Falconi]

Driessen thanks,
Can you write also the telephon tapi software you use ?
I can purchase it for my customer

[driessen]

Sylvio,

I didn't right anything specifique for TAPI. Tapi is build into Windows. The telephone software replaces the standard TAPI of Windows. The function PhoneTo() does all the rest.

[Silvio.Falconi]

Diessen
How it must be the number format ?
and what I must insert instead of it IF(US->USTELNUL,"0","")

for sample my telephone is +39 0861 245789
+39 number for Italy
0861
245789

[driessen]

Silvio,

The meaning of IF(US->USTELNUL,"0","") is : some telephones need a 0 (needed) to get an external line. So I have a parameter in my application (US->USTELNUL) which defines if the 0 (zero) is needed or not.

The same for "+" as first character of the phonenumber. Some telephones don't except a "+" while 00 (double zero) is always excepted.

So in my example, I would send you phonenumber as "0039861245789". All the other characters are excluded. That is done by the module "FOR ... NEXT", just after the closed dialog box.

[Silvio.Falconi]

ùI made many test no connect to number ( win xp and seven ) it run the tapi dialog but then let me the message "number incorrect"