DLL TAPI TRANSCRIPTION PARTIELLE DE LA DLL C++

Commentaire de jack le 29/07/2004 18:43:49 administrateur CS

Salut DrChal
Pour les curieux :
TAPI = Telephony Application Programming Interface

Ta DLL utilise la DLL TAPI32.DLL : Comment faut-il la déclarer ? Les préférences n'en veulent pas.

Aurais-tu une petite appli de démo ?
En gros : ça sert à quoi ?

Commentaire de DrChal le 19/01/2005 22:11:44

Salut,
Ma Dll retranscris en gros les méthodes du composant TAPI32.dll mais pas tout car celle-ci est trop compliqué, j'utilise les API.

Pour utiliser CL_Phone_TAPI, il faut  instancier dans les références du projet  ce composant. Puis dans le projet, tu peux créer sur la forme les objets suivant:
un bouton Appel
un bouton raccrocher
une checkbox qui spécifie si la ligne est derrière un standard
une textbox où l'on saisira le numéro de telephone
une combo qui comportera la liste les différents ports du pc
ceux-ci appellent les méthodes suivantes :

'Declaration de l'objet

Public WithEvents oTapiLine As CvbTAPILine

Private Sub Form_Load()
Dim bsucceed As Boolean
Dim lLine As Long

'Initialise la classe TAPI
Set oTapiLine = New CvbTAPILine
'Affectation de la version la plus basse et de la plus haute du TAPI
oTapiLine.LowAPI = &H10003 ' 1.3 = &H00010003
oTapiLine.HiAPI = &H30000 '  3.0 = &H00030000
'initialise et evalue les version de tous les ports
bsucceed = oTapiLine.Create
'Charger la combo des ports

Cmb_Port.Clear
Cmb_Port.AddItem "", 0
If bsucceed Then
    For lLine = 0 To oTapiLine.numLines - 1
        oTapiLine.CurrentLineID = lLine
        'Vérification de la version de la ligne
        If oTapiLine.NegotiatedAPIVersion Then
            Cmb_Port.AddItem oTapiLine.LineName, lLine + 1
        End If
    Next
    'Selectionne la première occurence de la combo
    Cmb_Port.ListIndex = 0
End If
End Sub

Private Sub btn_Appel_Click()
Dim strNumPhone As String
Dim bStandard As Boolean

If Chk_Standard.Value = 1 Then
    bStandard = True
Else
    bStandard = False
End If

If Txt_NumTel.Text = "" Then
   strNumPhone = "0328000102"
Else
    strNumPhone = Trim(Replace(Txt_NumTel.Text, " ", ""))
End If

    'initialisation de l'objet
    sbConfigTAPI
    oTapiLine.oPbStandard = bStandard
    oTapiLine.oPiPortNumber = Trim(Cmb_Port.ListIndex)
    oTapiLine.oPsPhoneNumber = strNumPhone
    oTapiLine.OpenLine

    oTapiLine.RbCallNumber
End Sub


Private Sub btn_Raccrocher_Click()
On Error Resume Next

oTapiLine.DropCallAsynch
Set oTapiLine = Nothing

End Sub



Private Sub sbConfigTAPI()
Dim bsucceed As Boolean

'Initialise la classe TAPI
Set oTapiLine = New CvbTAPILine
'Affectation de la version la plus basse et de la plus haute du TAPI
oTapiLine.LowAPI = &H10003 ' 1.3 = &H00010003
oTapiLine.HiAPI = &H30000 '  3.0 = &H00030000
'initialise et evalue les version de tous les ports
bsucceed = oTapiLine.Create
End Sub


J'espère que ce petit exemple te servira. Je mettra le source prochainement en ligne

Bye

Commentaire de Filipe35 le 21/02/2005 03:24:45

salut,

comment envoyer des données ?

merci

Filipe