home *** CD-ROM | disk | FTP | other *** search
/ Freelog 21 / Freelog021.iso / Prog / TAPISOURCES.ZIP / Form1.frm next >
Text File  |  2001-03-25  |  4KB  |  124 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Appel TΘlΘphonique                       RP"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   5655
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   5655
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "Appel"
  14.       Height          =   255
  15.       Left            =   3240
  16.       TabIndex        =   4
  17.       Top             =   480
  18.       Width           =   1695
  19.    End
  20.    Begin VB.ListBox lstStatus 
  21.       Height          =   1230
  22.       Left            =   240
  23.       TabIndex        =   3
  24.       Top             =   1680
  25.       Width           =   4695
  26.    End
  27.    Begin VB.TextBox Text1 
  28.       Height          =   285
  29.       Left            =   240
  30.       TabIndex        =   1
  31.       Top             =   480
  32.       Width           =   2895
  33.    End
  34.    Begin VB.Label Label2 
  35.       Caption         =   "Statut"
  36.       Height          =   375
  37.       Left            =   240
  38.       TabIndex        =   2
  39.       Top             =   1200
  40.       Width           =   1095
  41.    End
  42.    Begin VB.Label Label1 
  43.       Caption         =   "NumΘro de TΘlΘphone α composer"
  44.       Height          =   375
  45.       Left            =   240
  46.       TabIndex        =   0
  47.       Top             =   120
  48.       Width           =   2655
  49.    End
  50. End
  51. Attribute VB_Name = "Form1"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. 'Declare Function tapiRequestMakeCall Lib "tapi32" _
  57. '()
  58.  
  59. Private Sub TAPIStatus(lonStatCode As Long)
  60.  
  61.  
  62. Select Case lonStatCode
  63.     Case TAPIERR_CONNECTED
  64.         lstStatus.AddItem "Ok"
  65.     Case TAPIERR_DROPPED
  66.         lstStatus.AddItem "Abandon"
  67.     Case TAPIERR_NOREQUESTRECIPIENT
  68.         lstStatus.AddItem "Erreur : pas d'application destinataire"
  69.     Case TAPIERR_REQUESTQUEUEFULL
  70.         lstStatus.AddItem "Erreur : file d'attente de requΩtes pleine"
  71.     Case TAPIERR_INVALDESTADDRESS
  72.         lstStatus.AddItem "Erreur : adresse de destination incorrecte"
  73.     Case TAPIERR_INVALWINDOWHANDLE
  74.         lstStatus.AddItem "Erreur : handle de fenΩtre incorrect"
  75.     Case TAPIERR_INVALDEVICECLASS
  76.         lstStatus.AddItem "Erreur : classe incorrecte pour le pΘriphΘrique"
  77.     Case TAPIERR_INVALDEVICEID
  78.         lstStatus.AddItem "Erreur : identificateur de classe de pΘriphΘrique"
  79.     Case TAPIERR_DEVICECLASSUNAVAIL
  80.         lstStatus.AddItem "Erreur : classe de pΘriphΘrique indisponible"
  81.     Case TAPIERR_DEVICEIDUNAVAIL
  82.         lstStatus.AddItem "Erreur : identificateur de pΘriphΘrique non disponible"
  83.     Case TAPIERR_DESTBUSY
  84.         lstStatus.AddItem "Destination occupΘe"
  85.     Case TAPIERR_DESTUNAVAIL
  86.         lstStatus.AddItem "Destination indisponible"
  87.     Case TAPIERR_UNKNOWNWINHANDLE
  88.         lstStatus.AddItem "Erreur : handle de fenΩtre inconnu"
  89.     Case TAPIERR_UNKNOWNREQUESTID
  90.         lstStatus.AddItem "Erreur : identificateur de requΩte inconnu"
  91.     Case TAPIERR_REQUESTFAILED
  92.         lstStatus.AddItem "Erreur : erreur dans la requΩte"
  93.     Case TAPIERR_REQUESTCANCELLED
  94.         lstStatus.AddItem "Erreur : requΩte annulΘe"
  95.     Case TAPIERR_INVALPOINTER
  96.         lstStatus.AddItem "Erreur : pointeur incorrect"
  97. End Select
  98.  
  99. End Sub
  100.  
  101.  
  102.  
  103.  
  104.  
  105. Private Sub Command1_Click()
  106. Dim lonTAPIStatus As Long
  107.  
  108. ' VΘrifie si un numΘro de tΘlΘphone a ΘtΘ saisi.
  109. If RTrim(Text1.Text) = "" Then
  110.     lstStatus.AddItem "Erreur : aucun numΘro de tΘlΘphone saisi."
  111.     Exit Sub
  112. Else
  113.     strPhoneNum = RTrim(Text1.Text)
  114. End If
  115.  
  116. ' Initialise la session TAPI avec la fonction tapiRequestMakeCall.
  117. lonTAPIStatus = tapiRequestMakeCall(strPhoneNum, _
  118.     "Exemple TAPI", strPhoneNum, "")
  119.  
  120. ' Affiche le statut.
  121. Call TAPIStatus(lonTAPIStatus)
  122.  
  123. End Sub
  124.