home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 4 Unleashed / Visual_Basic_4_Unleashed_SAMS_Publishing_1995.iso / pronexus / sys / vbvoice.bas < prev    next >
Encoding:
BASIC Source File  |  1994-07-07  |  4.2 KB  |  107 lines
  1. Option Explicit
  2. 'Window functions
  3. Declare Sub vbv_show_linestatus Lib "VBVOICE.VBX" (ByVal showwin As Integer)
  4. Declare Sub vbv_show_main Lib "VBVOICE.VBX" (ByVal showwin As Integer)
  5. Declare Sub vbv_show_log Lib "VBVOICE.VBX" (ByVal channel As Integer, ByVal showwin As Integer)
  6. Declare Sub vbv_set_language Lib "VBVOICE.VBX" (ByVal ch As Integer, ByVal lang As Integer)
  7.  
  8. 'phrase functions
  9. Declare Function vbv_create_voxfile_phrase Lib "VBVOICE.VBX" (ByVal filename As String) As Long
  10. Declare Function vbv_create_named_phrase Lib "VBVOICE.VBX" (ByVal filename As String, ByVal phrase As String) As Long
  11. Declare Function vbv_create_phrase Lib "VBVOICE.VBX" (ByVal filename As String, ByVal phraseindex As Integer) As Long
  12. Declare Function vbv_create_sys_phrase Lib "VBVOICE.VBX" (ByVal phrasetype As Integer, ByVal parameter As String) As Long
  13. Declare Sub vbv_destroy_phrase Lib "VBVOICE.VBX" (ByVal phraseid As Long)
  14.  
  15. 'greeting functions
  16. Declare Function vbv_create_greeting Lib "VBVOICE.VBX" () As Long
  17. Declare Sub vbv_add_phrase_to_greeting Lib "VBVOICE.VBX" (ByVal greeting As Long, ByVal phrase As Long)
  18. Declare Sub vbv_clear_greeting Lib "VBVOICE.VBX" (ByVal greeting As Long)
  19. Declare Sub vbv_destroy_greeting Lib "VBVOICE.VBX" (ByVal greeting As Long)
  20.          
  21.  
  22. 'phrasetypes for vbv_create_sys_phrase
  23. Global Const Num_Files = 0
  24. Global Const FileCustom = 1
  25. Global Const File_Size = 2
  26. Global Const File_Date = 3
  27. Global Const File_Time = 4
  28. Global Const SayNumber = 5
  29. Global Const SayNumberShort = 6
  30. Global Const Digits = 7
  31. Global Const Dollars_Cents_blockname = 8
  32. Global Const File_Date_Time = 10
  33. Global Const InitialGreeting = 11
  34. Global Const Time_HrsMins = 12
  35. Global Const Date_DayMonthYr = 13
  36. Global Const Time_Now = 14
  37. Global Const Date_Today = 15
  38.  
  39. Declare Function vbv_get_voice_channels Lib "VBVOICE.VBX" () As Integer
  40. Declare Function vbv_start_system Lib "VBVOICE.VBX" () As Integer
  41. Declare Function vbv_start_sys Lib "VBVOICE.VBX" (ByVal showlinestatus As Integer, ByVal spare As Integer) As Integer
  42. Declare Function vbv_stop_system Lib "VBVOICE.VBX" () As Integer
  43.  
  44. Global Const MASK_D = &H1
  45. Global Const MASK_1 = &H2
  46. Global Const MASK_2 = &H4
  47. Global Const MASK_3 = &H8
  48. Global Const MASK_4 = &H10
  49. Global Const MASK_5 = &H20
  50. Global Const MASK_6 = &H40
  51. Global Const MASK_7 = &H80
  52. Global Const MASK_8 = &H100
  53. Global Const MASK_9 = &H200
  54. Global Const MASK_0 = &H400
  55. Global Const MASK_S = &H800
  56. Global Const MASK_N = &H1000
  57. Global Const MASK_A = &H2000
  58. Global Const MASK_B = &H4000
  59. Global Const MASK_C = &H8000
  60. Global Const MASK_ALL = &HFFFF
  61.  
  62. 'constants for Phone.mode property
  63. Global Const CHANNELIDLE = 0
  64. Global Const STARTCALLNOW = 1
  65. Global Const WAITFORRING = 2
  66. Global Const CALLAFTERDELAY = 4
  67. Global Const STOPCALLNOW = 8
  68.  
  69. 'Possible Phrase Error Types:
  70. Global Const IDX_FILEOPENERROR = 0
  71. Global Const IDX_VAPPHRASEIDNOTFOUND = 1
  72. Global Const IDX_BADCONTROLNAME = 2
  73. Global Const IDX_BADTIMESPEC = 3
  74. Global Const IDX_BADNUMBER = 4
  75. Global Const IDX_BADDATESPEC = 5
  76. Global Const IDX_VAPPHRASENAMENOTFOUND = 6
  77.  
  78. 'reasons for disconnect in disconnected event
  79. Global Const CONTROLHANGUP = 0
  80. Global Const SYSERRORHANGUP = 1
  81. Global Const CALLERHANGUP = 2
  82. Global Const INVALIDHANGUP = 3
  83.  
  84. 'file open functions for voice driver play/record functions
  85.  
  86. Declare Function vbv_openfile Lib "VBVOICE.VBX" (ByVal filename As String, ByVal mode As Integer) As Integer
  87. Declare Sub vbv_closefile Lib "VBVOICE.VBX" (ByVal hdl As Integer)
  88. Declare Function vbv_seekfile Lib "VBVOICE.VBX" (ByVal hdl As Integer, ByVal pos As Long, ByVal mode As Integer) As Long
  89. Declare Function vbv_createfile Lib "VBVOICE.VBX" (ByVal filename As String) As Integer
  90. Declare Sub vbv_setstate Lib "VBVOICE.VBX" (ByVal channel As Integer, ByVal state As Integer)
  91.  
  92. 'file open modes
  93. Global Const VBV_READ = 0
  94. Global Const VBV_READWRITE = 1
  95.  
  96. Declare Sub vbv_queue_event Lib "VBVOICE.VBX" (ByVal channel As Integer, ByVal event As Integer, ByVal eventdata As Integer)
  97.  
  98. 'VoiceError Types
  99. Global Const NOERROR = 0
  100. Global Const UNEXPECTED_DRIVER_EVENT = 15
  101. Global Const ERR_BADINIFILE = 17
  102. Global Const ERR_BADINIFIELD = 18
  103. Global Const ERR_BADINISECTION = 19
  104. Global Const ERR_NOINIFOUND = 20
  105. Global Const ERR_BADRECORDFILE = 21
  106.  
  107.