Imports System.IO
Public Class frm_decoder
 
    Dim dt_files As DataTable
    Dim dr_files As DataRow
    Private file_id As Long
    Private akt_file_id As Long
    Private abgebrochen As Boolean = False
 
    Dim start_time As DateTime
    Dim ende_time As DateTime
 
    Dim files() As String
    Dim WithEvents enclameShell As New LameShell
 
    Private Sub frm_decoder_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
 
    Private Sub lameShell_Done() Handles enclameShell.Done
        Dim spanne As System.TimeSpan
        dr_files.Item("Status") = "OK"
        ende_time = System.DateTime.Now
        spanne = ende_time - start_time
        dr_files.Item("zeit") = spanne.Minutes & ":" & spanne.Seconds
        start_convert()
    End Sub
 
    Private Sub lameShell_Canceled() Handles enclameShell.Canceled
        If abgebrochen = False Then
            dr_files.Item("Status") = "Fehler"
        Else
            dr_files.Item("Status") = "Abgebrochen"
        End If
    End Sub
    Private Sub lameShell_Progress(ByRef Progress As LameProgress) Handles _
      enclameShell.Progress
        Try
            If pgb_fortschritt.Maximum <> Progress.FrameMax Then
                pgb_fortschritt.Value = 0
                pgb_fortschritt.Maximum = Progress.FrameMax
            Else
                pgb_fortschritt.Value = Progress.FrameCurrent
            End If
            lbl_prozent.Text = Progress.PercentDone & "%"
            lbl_restzeit.Text = Progress.ETA
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub cmd_convertierung_abbrechen_Click(ByVal sender As _
      System.Object, ByVal e As System.EventArgs) Handles _
      cmd_convertierung_abbrechen.Click
        abgebrochen = True
        enclameShell.Cancel()
    End Sub
 
    Private Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmd_start.Click
 
        If txt_zielverzeichnis.Text.Length = 0 Then
            MsgBox("Bitte Zielverzeichnis auswählen")
        Else
            akt_file_id = 0
            abgebrochen = False
            start_convert()
        End If
 
    End Sub
    Private Function get_next_file() As Boolean
        Try
            If akt_file_id < dt_files.Rows.Count Then
                dr_files = dt_files.Rows(akt_file_id)
                akt_file_id += 1
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            Return False
            MsgBox(ex.Message)
        End Try
    End Function
    Private Sub start_convert()
        Dim datei_vorhanden As Boolean
        Dim optionen As String = ""
 
        Try
            datei_vorhanden = get_next_file()
            If datei_vorhanden = True Then
                lbl_Datei.Text = dr_files.Item("Dateiname")
                start_time = System.DateTime.Now
 
                'Bitrate und Encoding-Modus setzen
                optionen = cbo_encoding_mode.Text & " " & cbo_bitrate.Text
 
                'ID3-Tag Optionen
                optionen += " --add-id3v2"
                optionen += " --tt """ & dr_files.Item("titel") & """"
                optionen += " --ta """ & dr_files.Item("kuenstler") & """"
                optionen += " --tl """ & dr_files.Item("album") & """"
                optionen += " --ty """ & dr_files.Item("jahr") & """"
 
                enclameShell.InFile = dr_files.Item("pfad")
                enclameShell.OutFile = txt_zielverzeichnis.Text & "\" & _
                  dr_files.Item("dateiname")
                enclameShell.Options = optionen
                enclameShell.Start()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
    End Sub
End Class