Imports System.IO
Public Class Parameter
#Region "Variablen"
 
    Private SourceFile As String
    Private DestFile As String
    Private LamePar As String
    Private NeroMP4Par As String
    Private FlacPar As String
    Private SSRCPar As String
    Private MadplayPar As String
    Private WindowState As ProcessWindowStyle
 
#End Region
 
#Region "Properties"
 
    Public ReadOnly Property GetSourceFile() As String
        Get
            Return SourceFile
        End Get
    End Property
    Public ReadOnly Property GetDestFile() As String
        Get
            Return DestFile
        End Get
    End Property
    Public ReadOnly Property GetLamePar() As String
        Get
            Return LamePar
        End Get
    End Property
    Public ReadOnly Property GetNeroMP4Par() As String
        Get
            Return NeroMP4Par
        End Get
    End Property
    Public ReadOnly Property GetFlacPar() As String
        Get
            Return FlacPar
        End Get
    End Property
    Public ReadOnly Property GetSSRCPar() As String
        Get
            Return SSRCPar
        End Get
    End Property
    Public ReadOnly Property GetMadplayPar() As String
        Get
            Return MadplayPar
        End Get
    End Property
    Public ReadOnly Property GetWindowState() As ProcessWindowStyle
        Get
            Return WindowState
        End Get
    End Property
#End Region
 
#Region "FileWork"
 
    Public Shared Function SetZiel(ByVal Filename As String, ByVal Quellpfad As _
      String, ByVal Zielpfad As String, ByVal ZielFormat As String) As String
        Dim File As New Parameter
        Dim myFileName As String = ""
        Dim ZielPfadStruktur As String = ""
        Dim ZielPfadKomplett As String = ""
 
        File.SourceFile = Filename
 
        'QuellStrukur wird abgeschnitten der für die ZielStruktur benötigt wird
        ZielPfadStruktur = Mid(Path.GetDirectoryName(Filename), (Len(Quellpfad) _
          + 2))
 
        'Setzt Zielpfad und Unterordner zusammen
        If ZielPfadStruktur = "" Then
            ZielPfadKomplett = Zielpfad & ZielPfadStruktur
        Else
            ZielPfadKomplett = Zielpfad & "\" & ZielPfadStruktur
        End If
 
        'Gibt den Dateinamen ohne Endung zurück
        myFileName = Path.GetFileNameWithoutExtension(Filename)
 
        'Setzt den ZielDateiPfad zusammen
        File.DestFile = ZielPfadKomplett & "\" & myFileName & ZielFormat
 
        Return File.DestFile
    End Function
#End Region
 
#Region "Encoder"
 
    Public Shared Function SetLameEnc(ByVal CompMode As String, ByVal Quality _
      As String, ByVal Bitrate As String, ByVal ChannelMode As String) As String
        Dim Parameter As New Parameter
 
        Select Case CompMode
            Case "VBR"
                Parameter.LamePar = "-V " & Quality & " --vbr-new"
            Case "CBR"
                Parameter.LamePar = "-b " & Bitrate
            Case "ABR"
                Parameter.LamePar = "--abr " & Bitrate
        End Select
        Parameter.LamePar &= " "
        Select Case ChannelMode
            Case "Stereo"
                Parameter.LamePar &= "-m s"
            Case "Joint Stereo"
                Parameter.LamePar &= "-m j"
            Case "Mono"
                Parameter.LamePar &= "-m m"
            Case "Dual Mono"
                Parameter.LamePar &= "-m d"
        End Select
        Parameter.LamePar &= " "
        Parameter.LamePar &= "-h -p"
 
        Return Parameter.LamePar
    End Function
 
    Public Shared Function SetNeroMP4Enc(ByVal CompMode As String, ByVal _
      Quality As String, ByVal Bitrate As String, ByVal CompCodeMode As String) _
      As String
        Dim Parameter As New Parameter
 
        Select Case CompMode
            Case "VBR"
                Parameter.NeroMP4Par = "-q " & Quality
            Case "ABR"
                Parameter.NeroMP4Par = "-br " & Bitrate
            Case "CBR"
                Parameter.NeroMP4Par = "-cbr " & Bitrate
        End Select
        If CompCodeMode <> "" Then
            Parameter.NeroMP4Par &= " "
            Select Case CompCodeMode
                Case "HE-AAC"
                    Parameter.NeroMP4Par &= "-he"
                Case "HE-AAC v2"
                    Parameter.NeroMP4Par &= "-hev2"
                Case "LC-AAC"
                    Parameter.NeroMP4Par &= "-lc"
            End Select
        End If
        Return Parameter.NeroMP4Par
    End Function
 
    Public Shared Function SetFlacEnc(ByVal CompLevel As String) As String
        Dim Parameter As New Parameter
 
        Parameter.FlacPar = "-" & CompLevel
        Return Parameter.FlacPar
    End Function
#End Region