extapi.frm

Async Professional 4.07

         KermitSWCTurnDelay=   0
         KermitTerminator=   13
         KermitTimeoutSecs=   5
         ReceiveDirectory=   ""
         ReceiveFileName =   ""
         RTSLowForWrite  =   0   'False
         SendFileName    =   "*.*"
         StatusInterval  =   10
         TransmitTimeout =   1092
         UpcaseFileNames =   -1  'True
         WriteFailAction =   2
         XYmodemBlockWait=   91
         Zmodem8K        =   0   'False
         ZmodemFileOptions=   5
         ZmodemFinishRetry=   0
         ZmodemOptionOverride=   0   'False
         ZmodemRecover   =   0   'False
         ZmodemSkipNoFile=   0   'False
         Caption         =   "Apax v1.00"
         CaptionAlignment=   2
         CaptionWidth    =   100
         LightWidth      =   40
         LightsLitColor  =   255
         LightsNotLitColor=   8421376
         ShowLightCaptions=   -1  'True
         ShowLights      =   -1  'True
         ShowStatusBar   =   0   'False
         ShowToolBar     =   0   'False
         ShowDeviceSelButton=   -1  'True
         ShowConnectButtons=   -1  'True
         ShowProtocolButtons=   -1  'True
         ShowTerminalButtons=   -1  'True
         DoubleBuffered  =   0   'False
         Enabled         =   -1  'True
         Cursor          =   0
         TapiStatusDisplay=   -1  'True
         CommPort        =   0
         DTREnable       =   -1  'True
         Handshaking     =   0
         InBufferSize    =   1024
         OutBufferSize   =   512
         RTSEnable       =   -1  'True
         Settings        =   "19200,N,8,1"
         InputMode       =   0
         InputLen        =   0
         MSCommCompatible=   0   'False
         RTThreshold     =   0
         SThreshold      =   0
      End
      Begin VB.CheckBox chkTapiStatusDisplay 
         Caption         =   "Show status dialog"
         Height          =   495
         Left            =   2880
         TabIndex        =   6
         Top             =   840
         Width           =   1695
      End
      Begin VB.CommandButton cmdCancel 
         Caption         =   "Cancel"
         Height          =   425
         Left            =   2760
         TabIndex        =   5
         Top             =   360
         Width           =   1140
      End
      Begin VB.CommandButton cmdDial 
         Caption         =   "Dial..."
         Height          =   425
         Left            =   1560
         TabIndex        =   4
         Top             =   360
         Width           =   1140
      End
      Begin VB.CommandButton cmdAnswer 
         Caption         =   "Answer"
         Height          =   425
         Left            =   360
         TabIndex        =   3
         Top             =   360
         Width           =   1140
      End
      Begin VB.CommandButton cmdConfig 
         Caption         =   "Config..."
         Height          =   425
         Left            =   1560
         TabIndex        =   2
         Top             =   840
         Width           =   1140
      End
      Begin VB.CommandButton cmdSelect 
         Caption         =   "Select..."
         Height          =   425
         Left            =   360
         TabIndex        =   1
         Top             =   840
         Width           =   1140
      End
   End
   Begin VB.Label Label8 
      AutoSize        =   -1  'True
      Caption         =   "Tapi status"
      Height          =   195
      Left            =   5160
      TabIndex        =   26
      Top             =   120
      Width           =   780
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Add(ByVal S As String)
  lstTapiStatus.AddItem (S)
  If lstTapiStatus.ListCount > 10 Then
    lstTapiStatus.ListIndex = lstTapiStatus.ListCount - 1
  End If
End Sub

Private Function TapiStateStr(State As TxTapiState) As String
  Dim S As String
  Select Case State
    Case tsIdle:               S = "tsIdle"
    Case tsOffering:           S = "tsOffering"
    Case tsAccepted:           S = "tsAccepted"
    Case tsDialTone:           S = "tsDialTone"
    Case tsDialing:            S = "tsDialing"
    Case tsRingback:           S = "tsRingBack"
    Case tsBusy:               S = "tsBusy"
    Case tsSpecialInfo:        S = "tsSpecialInfo"
    Case tsConnected:          S = "tsConnected"
    Case tsProceeding:         S = "tsProceeding"
    Case tsOnHold:             S = "tsOnHold"
    Case tsConferenced:        S = "tsConferenced"
    Case tsOnHoldPendConf:     S = "tsOnHoldPendConf"
    Case tsOnHoldPendTransfer: S = "tsOnHoldPendTransfer"
    Case tsDisconnected:       S = "tsDisconnected"
    Case tsUnknown:            S = "tsUnknown"
  End Select
  TapiStateStr = "  TapiState: " & S & " (" & CStr(Apax1.TapiState) & ")"
End Function

Private Sub Apax1_OnTapiCallerID(ByVal ID As String, ByVal IDName As String)
  Add ("OnCallerID: ID = " & ID)
  Add ("          : IDName = " & IDName)
End Sub

Private Sub Apax1_OnTapiConnect()
  Add ("OnTapiConnect")
  Add (TapiStateStr(Apax1.TapiState))
  If Apax1.EnableVoice Then
    Apax1.TapiPlayWaveFile (txtWavDirectory.Text & "\greeting.wav")
  End If
End Sub

Private Sub Apax1_OnTapiDTMF(ByVal Digit As Byte, ByVal ErrorCode As Long)
  Add ("OnTapiDTMF: " & CStr(Digit - 48))
  Add (TapiStateStr(Apax1.TapiState))
End Sub

Private Sub Apax1_OnTapiFail()
  If Apax1.TapiCancelled Then
    Add ("OnTapiFail because we cancelled the call")
  Else
    Add ("OnTapiFail due to a real failure")
  End If
  Add ("  " & TapiStateStr(Apax1.TapiState))
End Sub

Private Sub Apax1_OnTapiGetNumber(PhoneNum As String)
  Dim S As String
  S = InputBox("Enter Phone Number", Caption)
  If (S <> "") Then
    PhoneNum = S
    Add ("OnTapiGetNumber - " & PhoneNum)
    Add (TapiStateStr(Apax1.TapiState))
  End If
End Sub

Private Sub Apax1_OnTapiPortClose()
  Add ("OnTapiPortClose")
  Add (TapiStateStr(Apax1.TapiState))
End Sub

Private Sub Apax1_OnTapiPortOpen()
  Add ("OnTapiPortOpen")
  Add (TapiStateStr(Apax1.TapiState))
End Sub

Private Sub Apax1_OnTapiStatus(ByVal First As Boolean, ByVal Last As Boolean, ByVal Device As Long, ByVal Message As Long, ByVal Param1 As Long, ByVal Param2 As Long, ByVal Param3 As Long)
  Add ("OnTapiStatus: " & Apax1.TapiStatusMsg(Message, Param1, Param2) & _
    ", (" & CStr(Message) & "), (" & CStr(Param1) & "), (" & CStr(Param2) & _
    "), (" & CStr(Param3) & ")")
  Add (TapiStateStr(Apax1.TapiState))
End Sub

Private Sub Apax1_OnTapiWaveNotify(ByVal Msg As Apax1.TxWaveMessage)
  Dim S As String
  Select Case Msg
    Case waPlayOpen: S = "waPlayOpen"
    Case waPlayDone: S = "waPlayDone"
    Case waPlayClose: S = "waPlayClose"
    Case waRecordOpen: S = "waRecordOpen"
    Case waDataReady: S = "waDataReady"
    Case waRecordClose: S = "waRecordClose"
  End Select
  Add ("OnTapiWaveNotify: " & S)
End Sub

Private Sub Apax1_OnTapiWaveSilence(StopRecording As Boolean, Hangup As Boolean)
  Add ("OnTapiWaveSilence")
End Sub

Private Sub chkEnableVoice_Click()
  Apax1.EnableVoice = CBool(chkEnableVoice.Value)
End Sub

Private Sub chkInterruptWave_Click()
  Apax1.InterruptWave = CBool(chkInterruptWave.Value)
End Sub

Private Sub chkTapiStatusDisplay_Click()
  Apax1.TapiStatusDisplay = CBool(chkTapiStatusDisplay.Value)
End Sub

Private Sub chkUseSoundCard_Click()
  Apax1.UseSoundCard = CBool(chkUseSoundCard.Value)
End Sub

Private Sub cmdAnswer_Click()
  Add ("Answer button clicked (" & Apax1.SelectedDevice & ")")
  Add (TapiStateStr(Apax1.TapiState))
  Apax1.TapiAnswer
End Sub

Private Sub cmdConfig_Click()
  Apax1.TapiShowConfigDialog (True)
  Add ("Config button click (" & Apax1.SelectedDevice & ")")
  Add (TapiStateStr(Apax1.TapiState))
End Sub

Private Sub cmdDial_Click()
  Add ("Dial button click (" & Apax1.SelectedDevice & ")")
  Add (TapiStateStr(Apax1.TapiState))
  Apax1.TapiDial
End Sub

Private Sub cmdDTMF_Click()
  Dim S As String
  S = InputBox("Enter digits to send", Caption)
  If (S <> "") Then
    Add ("SendTone(" & S & ")")
    Apax1.TapiSendTone (S)
  End If
End Sub

Private Sub cmdCancel_Click()
  Add ("Cancel button click")
  Add (TapiStateStr(Apax1.TapiState))
  Apax1.Close
End Sub

Private Sub cmdPlay_Click()
  dlgWavFiles.DialogTitle = "Select Wav File"
  dlgWavFiles.InitDir = txtWavDirectory.Text
  dlgWavFiles.ShowOpen
  Add ("Playing wave file (" & dlgWavFiles.FileName & ")")
  Apax1.TapiPlayWaveFile (dlgWavFiles.FileName)
End Sub

Private Sub cmdRecord_Click()
  dlgWavFiles.DialogTitle = "Record Wav File"
  dlgWavFiles.InitDir = txtWavDirectory.Text
  dlgWavFiles.ShowSave
  Add ("Recording wave file (" & dlgWavFiles.FileName & ")")
  Apax1.TapiRecordWaveFile dlgWavFiles.FileName, Overwrite = chkOverwrite.Value
End Sub

Private Sub cmdSelect_Click()
  Apax1.TapiSelectDevice
  Add ("SelectedDevice = " & Apax1.SelectedDevice)
End Sub

Private Sub cmdStop_Click()
  Apax1.TapiStopWaveFile
  Add ("Stopping wav file")
End Sub

Private Sub Form_Activate()
  Dim Test As Integer
  txtAnswerOnRing.Text = CStr(Apax1.AnswerOnRing)
  txtMaxAttempts.Text = CStr(Apax1.MaxAttempts)
  txtRetryWait.Text = CStr(Apax1.TapiRetryWait)
  txtMaxMessageLength.Text = CStr(Apax1.MaxMessageLength)
  txtTrimSeconds.Text = CStr(Apax1.TrimSeconds)
  txtSilenceThreshold.Text = CStr(Apax1.SilenceThreshold)
  chkEnableVoice.Value = Abs(Apax1.EnableVoice)
  chkInterruptWave.Value = Abs(Apax1.InterruptWave)
  chkUseSoundCard.Value = Abs(Apax1.UseSoundCard)
  chkTapiStatusDisplay.Value = Abs(Apax1.TapiStatusDisplay)
End Sub

Private Sub lstTapiStatus_DblClick()
  lstTapiStatus.Clear
End Sub

Private Sub txtAnswerOnRing_Change()
  Apax1.AnswerOnRing = Val(txtAnswerOnRing.Text)
End Sub

Private Sub txtMaxAttempts_Change()
  Apax1.MaxAttempts = Val(txtMaxAttempts.Text)
End Sub

Private Sub txtMaxMessageLength_Change()
  Apax1.MaxMessageLength = Val(txtMaxMessageLength.Text)
End Sub

Private Sub txtRetryWait_Change()
  Apax1.TapiRetryWait = Val(txtRetryWait.Text)
End Sub

Private Sub txtSilenceThreshold_Change()
  Apax1.SilenceThreshold = Val(txtSilenceThreshold.Text)
End Sub

Private Sub txtTrimSeconds_Change()
  Apax1.TrimSeconds = Val(txtTrimSeconds.Text)
End Sub