DLL TAPI TRANSCRIPTION PARTIELLE DE LA DLL C++
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
29 juil. 2004 à 18:43
HakNouveau Messages postés 4 Date d'inscription jeudi 3 mars 2005 Statut Membre Dernière intervention 11 décembre 2006 - 29 avril 2005 à 10:52
HakNouveau Messages postés 4 Date d'inscription jeudi 3 mars 2005 Statut Membre Dernière intervention 11 décembre 2006 - 29 avril 2005 à 10:52
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/25001-dll-tapi-transcription-partielle-de-la-dll-c
https://codes-sources.commentcamarche.net/source/25001-dll-tapi-transcription-partielle-de-la-dll-c
29 avril 2005 à 10:52
Public WithEvents oTapiLine As CvbTAPILine
je ne peux pas avoir le as "cvbTapiline"
c'est con mais c'est au niveau des références que ça bloque...
merci de m'eclaircir si tu le peux...
Akim
21 févr. 2005 à 03:24
comment envoyer des données ?
merci
Filipe
19 janv. 2005 à 22:50
Public Property Get oPiPortNumber() As Integer
If oPiPortNumber = 0 Then
C'est iOpiPortNumber dans le If
sinon, le Get renverra tjrs 1
19 janv. 2005 à 22:11
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
19 janv. 2005 à 16:26
Comment un programme externe peut faire appel à ta DLL ?
Merci.
29 juil. 2004 à 18:43
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 ?