Hi Michel,

here is a code snippet from my small TAPI wrapper. HTH

PROCEDURE DialNo(LOCAL sPhoneNo is string)

i is int

IF tapiDevice(:sProvider) THEN
:sPhoneNo = ""

FOR i = 1 TO Length(sPhoneNo)

IF sPhoneNo[[i]] >= "'0" AND sPhoneNo[[i]] <= "9" THEN
:sPhoneNo = :sPhoneNo + sPhoneNo[[i]]
END
END

tapiDial(:sPhoneNo, ":DialCallback")
ELSE
Info("Error")
END

PROCEDURE PRIVATE DialCallback(CallbackStat)

:SetRefCtrl(:sDialRef, Grayed)
:nCurrTAPIStat = CallbackStat

SWITCH CallbackStat
CASE tapiLineBusy :
Message("Besetzt")
:Hangup()
CASE tapiLineConnected :
Message("OK, verbunden")
:SetRefCtrl(:sHangupRef, Active)
CASE tapiLineDialing :
Message("Wähle")
CASE tapiLineDialTone :
Message("Wählton")
CASE tapiLineDisconnected :
Message("Verbindnung unterbrochen")
:SetRefCtrl(:sHangupRef, Active)
CASE tapiLineProceeding :
Message("Ermittelung der Gegenstelle")
CASE tapiLineRingBack :
Message("Ruf")
:SetRefCtrl(:sHangupRef, Active)
END