home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / Visual_Bas650563242002.psc / Mp3Enc.bas < prev    next >
Encoding:
BASIC Source File  |  2002-03-26  |  1.5 KB  |  51 lines
  1. Attribute VB_Name = "Mp3Encoder"
  2. Global ID3 As New ID3tag
  3. Global TID3 As New ID3tag
  4. Public Enum VBRMETHOD
  5.     VBR_METHOD_NONE = -1
  6.     VBR_METHOD_DEFAULT = 0
  7.     VBR_METHOD_OLD = 1
  8.     VBR_METHOD_NEW = 2
  9.     VBR_METHOD_MTRH = 3
  10.     VBR_METHOD_ABR = 4
  11. End Enum
  12.  
  13. Public Enum EncodingErrors
  14.     ENC_ERR_ENCODING_SUCCESS = 0
  15.     ENC_ERR_ENCODING_FAILED = -1
  16.     ENC_ERR_ENCODING_CANCELLED = -2
  17.     ENC_ERR_NO_API = -3
  18.     ENC_ERR_INPUT = -4
  19.     ENC_ERR_OUTPUT = -5
  20.     ENC_ERR_INVALID_PARAMS = -6
  21. End Enum
  22.  
  23. Public Enum EncodeMode
  24.     BE_MP3_MODE_STEREO = 0
  25.     BE_MP3_MODE_JSTEREO = 1
  26.     BE_MP3_MODE_DUALCHANNEL = 2
  27.     BE_MP3_MODE_MONO = 3
  28. End Enum
  29.  
  30. Global EncCancel As Boolean
  31.  
  32. 'API declarations for encoding wrapper
  33. Public Declare Function SetVBR Lib "MP3Enc.dll" (ByVal Enable As Long, ByVal Quality As Long, ByVal Method As VBRMETHOD, ByVal MaxBitRate As Long) As Long
  34. Public Declare Function EncodeMp3 Lib "MP3Enc.dll" (ByVal lpszWavFile As String, ByVal lpszOutFile As String, ByVal BitRate As Long, ByVal SampleRate As Long, ByVal EncMode As EncodeMode, lpCallback As Any) As Long
  35. Public Function EnumEncoding(ByVal nStatus As Integer) As Boolean
  36.         
  37.     If frmMain.pb1.Value <> nStatus Then
  38.         frmMain.lblPercent.Caption = nStatus & "%"
  39.         frmMain.pb1.Value = nStatus
  40.     End If
  41.     
  42.     If EncCancel Then
  43.         EnumEncoding = False
  44.         EncCancel = False
  45.     Else
  46.         EnumEncoding = True
  47.     End If
  48.     
  49.     DoEvents
  50. End Function
  51.