BaseEncoder Class

[SerializableAttribute]
public abstract class BaseEncoder : IBaseEncoder

<SerializableAttribute>
Public MustInherit Class BaseEncoder
	Implements IBaseEncoder

public class MyOwnEncoder : BaseEncoder
{
    // Constructor
    public MyOwnEncoder(int channel) : base(channel)
    {
    }

    public override string ToString()
    {
      return "My Encoder (BASS_CTYPE_STREAM_MP3)";
    }

    public override string DefaultOutputExtension
    {
      get { return ".mp3"; }
    }

    public override BASSChannelType EncoderType
    {
      get { return BASSChannelType.BASS_CTYPE_STREAM_MP3; }
    }

    public override bool SupportsSTDOUT
    {
      get { return true; }
    }

    public override string EncoderCommandLine
    {
      get { return BuildEncoderCommandLine(); }
    }

    public override int EffectiveBitrate
    {
      get { return My_Bitrate; }    
    }

    public override bool Start(ENCODEPROC proc, IntPtr user, bool paused)
    {
      if (EncoderHandle != 0 || (proc != null && !SupportsSTDOUT))
        return false;
      // start the encoder
      BASSEncode flag = BASSEncode.BASS_ENCODE_NOHEAD;
      if (Force16Bit)
        flag |= BASSEncode.BASS_ENCODE_FP_16BIT;
      if (paused)
        flag |= BASSEncode.BASS_ENCODE_PAUSE;
      EncoderHandle = BassEnc.BASS_Encode_Start(ChannelHandle, EncoderCommandLine, 
                                                flag, proc, user);
      if (EncoderHandle == 0)
        return false;
      else
        return true;
    }

    // local members for setting individual parameters
    public int My_Bitrate = 128; 

    // just an example here!
    private string BuildEncoderCommandLine()
    {
      CultureInfo enCI = new CultureInfo("en-US", false);
      StringBuilder sb = new StringBuilder();
      // the file name and path
      sb.Append( Path.Combine( EncoderDirectory, "myencoder.exe" ) );
      // raw input?
      if (InputFile == null) // STDIN: add the raw pcm header data
        sb.Append( String.Format( enCI, " -r -x -s {0:##0.0##} --bitwidth {1}", 
                   ChannelSampleRate/1000f, ChannelBitwidth > 16 ? 16 : ChannelBitwidth ) );
      // ...more options here...
      sb.Append( String.Format( enCI, " -b {0} -h", My_Bitrate ) );
      // STDIN or filename
      if (InputFile != null)
        sb.Append( " \""+InputFile+"\"" );
      else
        sb.Append( " -" );
      // STDOUT or filename
      if (OutputFile != null)
        sb.Append( " \""+OutputFile+"\"" );
      else
        sb.Append( " -" );
      return sb.ToString();    
    }
}

Public Class MyOwnEncoder Inherits BaseEncoder

    ' Constructor
    Public Sub New(channel As Integer) MyBase.New(channel)
    End Sub

    Public Overrides Function ToString() As String
      Return "My Encoder (BASS_CTYPE_STREAM_MP3)"
    End Function

    Public Overrides ReadOnly Property DefaultOutputExtension() As String
      Get
        Return ".mp3"
      End Get
    End Property 

    Public Overrides ReadOnly Property EncoderType() As BASSChannelType
      Get
        Return BASSChannelType.BASS_CTYPE_STREAM_MP3
      End Get
    End Property

    Public Overrides ReadOnly Property SupportsSTDOUT() As Boolean
      Get
        Return True
      End Get
    End Property 

    Public Overrides ReadOnly Property EncoderCommandLine() As String
      Get
        Return BuildEncoderCommandLine()
      End Get
    End Property 

    Public Overrides ReadOnly Property EffectiveBitrate() As Integer
      Get
        Return My_Bitrate
      End Get
    End Property

    Public Overrides Function Start(proc As ENCODEPROC, user As IntPtr, paused As Boolean) As Boolean
      If EncoderHandle <> 0 OrElse (Not (proc Is Nothing) AndAlso Not SupportsSTDOUT) Then
        Return False
      End If 
      ' start the encoder
      Dim flag As BASSEncode = BASSEncode.BASS_ENCODE_NOHEAD
      If Force16Bit Then
        flag = flag Or BASSEncode.BASS_ENCODE_FP_16BIT
      End If
      If paused Then
        flag = flag Or BASSEncode.BASS_ENCODE_PAUSE
      End If
      EncoderHandle = BassEnc.BASS_Encode_Start(ChannelHandle, EncoderCommandLine, 
                                                flag, proc, user)
      End If
      If EncoderHandle = 0 Then
        Return False
      Else
        Return True
      End If
    End Function

    ' local members for setting individual parameters
    Public My_Bitrate As Integer = 128

    ' just an example here!
    Private Function BuildEncoderCommandLine() As String
      Dim enCI As New CultureInfo("en-US", False)
      Dim sb As New StringBuilder()
      ' the file name and path
      sb.Append(Path.Combine(EncoderDirectory, "myencoder.exe"))
      ' raw input?
      If InputFile Is Nothing Then ' STDIN: add the raw pcm header data
        sb.Append([String].Format(enCI, " -r -x -s {0:##0.0##} --bitwidth {1}", 
                  ChannelSampleRate / 1000F,(If ChannelBitwidth > 16 Then 16 Else ChannelBitwidth))) 'ToDo: Unsupported feature: conditional (?) operator.
      End If ' ...more options here...
      sb.Append([String].Format(enCI, " -b {0} -h", My_Bitrate))
      ' STDIN or filename
      If Not (InputFile Is Nothing) Then
        sb.Append((" """ + InputFile + """"))
      Else
        sb.Append(" -")
      End If ' STDOUT or filename
      If Not (OutputFile Is Nothing) Then
        sb.Append((" """ + OutputFile + """"))
      Else
        sb.Append(" -")
      End If
      Return sb.ToString()
    End Function

End Class