Option Explicit On 
 
Imports System.Diagnostics
Imports System.Text.RegularExpressions
 
Public Class LameShell
    Private lameProcess As Process
    Private lameThread As System.Threading.Thread
    Private percentDone As Integer
    Private isRunning As Boolean = False
    Private startInfo As New ProcessStartInfo
 
    Private Shared regLine As Regex = New Regex( _
                "(\d+)/(\d+)\D+(\d+)\D+([\d:]+)\D+([\d:]+)\D+([\d:]+)\D+(" & _
                "[\d:]+)\D+([\d\.]+)\D+([\d:]+)", _
                RegexOptions.IgnoreCase _
                Or RegexOptions.CultureInvariant _
                Or RegexOptions.IgnorePatternWhitespace _
                Or RegexOptions.Compiled _
                )
 
 
    'variablen für die cmd-linie
    Private quelldatei As String
    Private zieldatei As String
    Private optionen As String
 
    'Events
    Public Event Done()
    Public Event Progress(ByRef Progress As LameProgress)
    Public Event IgnoredLine(ByVal Line As String)
    Public Event Canceled()
 
    Public Sub New()
        DefStartInfo()
        startInfo.WorkingDirectory = Application.StartupPath
    End Sub
    Public Sub New(ByVal InFile As String, Optional ByVal OutFile As String = _
      "", Optional ByVal Options As String = "", Optional ByVal LamePath As _
      String = Nothing)
        DefStartInfo()
        If LamePath = Nothing Then
            startInfo.WorkingDirectory = Application.StartupPath
        End If
        InFile = InFile
        zieldatei = OutFile
        optionen = Options
    End Sub
    Private Sub DefStartInfo()
        startInfo.FileName = "lame.exe"
        startInfo.UseShellExecute = False
        startInfo.RedirectStandardOutput = True
        startInfo.RedirectStandardError = True
        startInfo.CreateNoWindow = True
    End Sub
 
    Private Sub Reset()
        Dim arguments As String = ""
 
        percentDone = 0
        lameProcess = New Process
 
        If optionen <> "" Then
            arguments = optionen & " "
        End If
        arguments &= """" & quelldatei & """ "
        If zieldatei <> "" Then
            arguments &= """" & zieldatei & """"
        End If
 
        startInfo.Arguments = arguments
 
        lameProcess.StartInfo = startInfo
    End Sub
    Public Function Start() As Boolean
 
        If isRunning Or quelldatei = "-" Or zieldatei = "-" Then Return False
        isRunning = True
 
        Reset()
        Try
 
            lameThread = New System.Threading.Thread(AddressOf LameReader)
            lameThread.IsBackground = True
            lameThread.Name = "LameReader"
            lameThread.Start()
            Return True
        Catch ex As Exception
            Return False
        End Try
 
    End Function