vbAccelerator - Contents of code file: IWaveDataWriter.cls

This file is part of the download VB5 CD Ripper Plugin Interface, which is described in the article CD Ripping in VB Part 2.

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "IWaveDataWriter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

''' <summary>
''' Get the file extension of the files written by the plugin
''' </summary>
Public Property Get FileExtension() As String
Attribute FileExtension.VB_Description = "Gets the extension to use for files
 written by the implementation."

End Property

''' <summary>
''' Get the artist for this track
''' </summary>
Public Property Let Artist(ByVal value As String)
Attribute Artist.VB_Description = "Sets the artist name for the track being
 ripped."

End Property

''' <summary>
''' Set the title for this track
''' </summary>
Public Property Let Title(ByVal value As String)
Attribute Title.VB_Description = "Sets the title of the track being ripped."

End Property

''' <summary>
''' Set the track number for this track
''' </summary>
Public Property Let TrackNumber(ByVal value As String)
Attribute TrackNumber.VB_Description = "Sets the track number of the track
 being ripped."

End Property

''' <summary>
''' Set the year for this track
''' </summary>
Public Property Let Year(ByVal value As String)
Attribute Year.VB_Description = "Sets the year for the track being ripped."

End Property

''' <summary>
''' Set the album for this track
''' </summary>
Public Property Let Album(ByVal value As String)
Attribute Album.VB_Description = "Sets the album name for the track being
 ripped."

End Property

''' <summary>
''' Set the genre for this track
''' </summary>
Public Property Let Genre(ByVal value As String)
Attribute Genre.VB_Description = "Sets the genre of the track being ripped."

End Property

''' <summary>
''' Set the genre for this track
''' </summary>
Public Property Let Comment(ByVal value As String)
Attribute Comment.VB_Description = "Sets the comment for the track being
 ripped."

End Property

''' <summary>
''' Open a file for writing
''' </summary>
''' <param name="sSoundFile">Sound file to write to</param>
Public Function OpenFile(ByVal sSoundFile As String) As Boolean
Attribute OpenFile.VB_Description = "Called to set the file name before any
 data is encoded."

End Function

''' <summary>
''' Write data to the file
''' </summary>
''' <param name="lPtrBuff">Pointer to data buffer</param>
''' <param name="lWriteSize">Size of data to write</param
Public Function WriteWavData(ByVal lPtrBuff As Long, ByVal lWriteSize As Long)
 As Long
Attribute WriteWavData.VB_Description = "Called to write the stereo 16bit
 44.1kHz wave data in the buffer to the file."

End Function

''' <summary>
''' Close open file
''' </summary>
Public Sub CloseFile()
Attribute CloseFile.VB_Description = "Called when ripping has been completed
 and there is no more data to encode."

End Sub