Musik-Infos auslesen

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Cebrox.

    Musik-Infos auslesen

    Hallo,

    ich schreibe mir grad ein kleines Programm welches meine Musik sortieren soll. Momentan hänge ich daran fest die Informationen wie "Album" und "Interpreten" auszulesen. Hab hier im Forum schon mal geschaut aber leider noch nichts passendes gefunden (oder ich bin einfach zu blöd die SuFu zu benutzen). Ich möchte nur die Infos einer einzelnen Datei auslesen (Interpret und Album), damit mein Programm die Ordner dafür erstellen kann. Vorhanden ist nur der Pfad der MP3-Datei bzw WMA-Datei. Code brauche ich glaub ich nicht posten. Muss nur wissen welche Funktionen ich wie benutzen muss.

    Danke schonmal.
    Cebrox

    Ich will jetzt mithilfe der Klasse die mir SystemUnknown als erstes gepostet hat die Daten so in Variablen speichern.

    VB.NET-Quellcode

    1. Imports System.IO
    3. Module Sorter
    5. Dim Metadaten As New MP3Info
    6. Dim Album As String
    7. Dim Interpret As String
    8. Dim Pfad As String
    10. Sub Main()
    12. Pfad = My.Application.CommandLineArgs.Item(0)
    14. If My.Application.CommandLineArgs.Count = 0 Then
    16. Console.WriteLine("Kein Argument angegeben")
    18. ElseIf My.Application.CommandLineArgs.Count > 1 Then
    20. Console.WriteLine("Zu viele Argumente")
    22. Else
    24. Album = Metadaten.GetID3v1Tag.Album(Pfad)
    25. Interpret = Metadaten.GetID3v1Tag.Artist(Pfad)
    27. End If
    28. End Sub


    Nur leider bekomme ich dann folgenden Fehler:
    System.ArgumentNULLException: Der Pfad darf nicht NULL sein.

    Wenn ich die Variable "Pfad" ausgeben lasse, bekomme ich den Pfad raus.
    Schaffe es wohl doch nicht alleine. @:D

    @Kangaroo
    Danke für den Tipp mit Google.

    Bei dem Code, den Du oben benutzt kann ich Dir leider nicht weiterhelfen.
    Ich lese im allgemeinen mehrere ID3 Tags aus und auch eben nicht nur den ID3v1 Standart.
    Deswegen benutze ich o. genannte dll.
    Einfach in My Project - Verweise hinzufügen - lokale Kopie = true und dann kannste auch schon loslegen.
    Hat etliches an Funktionen zu bieten. Kannste auch Album-Cover lesen. MP3Tags lesen & schreiben.
    War ja nur'n Vorschlag

    mfg OnkelR

    Mal auf die Schnelle geantwortet, ich hab nix an Dokus gefunden, ein paar Codeschnipsel, aber nicht der Rede wert.
    Brauchst Du auch nicht, die is garnicht so kompliziert. Die dlll hast Du? Wenn du n' paar Tips brauchst zum Aufrufen,
    helf ich gern. Muss halt nur erst mal in meinen Projekten schnüffeln.
    mfg OnkelR

    Ja, importiert hab ich die DLL. Funktioniert auch so weit. Müsste jetzt nur wissen, wo ich den Pfad der Datei angebe, die ausgelesen werden soll. Und wie ich dann Album und Interpret abrufe. Habe hierzu schon mal nen Code-Schnipsel gefunden. Weiß aber nicht ob das so richtig ist.

    ramansingla.com/2010/12/05/wor…-tags-using-taglib-sharp/

    Wenn ja, kann ich das so auf mein Programm umsetzten. Das wäre dann denke ich kein großes Problem mehr. Muss halt nur wissen ob das, das ist was ich suche. Allerdings schreibt sie hier glaub ich etwas in die Tags. Aber lesen sollte ja genau so funktionieren.

    so geht's

    VB.NET-Quellcode

    1. Dim Dateipfad As String = "d:\wasweissich\mucke.mp3"
    2. Dim mfile As TagLib.File = Nothing
    3. Dim strGenre As String = Nothing
    4. Dim strInterpret As String = Nothing
    5. Dim strAlbum As String = Nothing
    6. Dim strTitel As String = Nothing
    7. Dim strJahr As String = Nothing
    8. Dim strkbps As String = Nothing
    9. Dim strKommentar As String = Nothing
    11. Try
    12. mfile = TagLib.File.Create(Dateipfad)
    13. Catch ex As Exception
    14. MetaData_ok = False
    15. MessageBox.Show("mfile" & vbCrLf & vbCrLf & _
    16. "InnerException: " & vbCrLf & ex.Message.ToString & vbCrLf & vbCrLf & _
    17. "Ausnahme: " & vbCrLf & ex.ToString, "Fehlermeldung", _
    18. MessageBoxButtons.OK, MessageBoxIcon.Error)
    19. Exit Sub
    20. End Try
    22. strGenre = mfile.Tag.FirstGenre
    23. strInterpret = mfile.Tag.FirstPerformer
    24. strAlbum = mfile.Tag.Album
    25. strTitel = mfile.Tag.Title
    26. strJahr = mfile.Tag.Year.ToString
    27. strKommentar = mfile.Tag.Comment
    28. strkbps = mfile.Properties.AudioBitrate.ToString
    30. 'Albumcover
    31. If mfile.Tag.Pictures.Length >= 1 Then
    32. Dim bin As Byte() = DirectCast(mfile.Tag.Pictures(0).Data.Data, Byte())
    33. CoverPictureBox.Image = Image.FromStream(New MemoryStream(bin)).GetThumbnailImage(CoverPictureBox.Width, CoverPictureBox.Height, Nothing, System.IntPtr.Zero)
    34. Else : CoverPictureBox.Image = Nothing
    35. End If


    musste natürlich anpassen (Steuerelemente und so)

    mfg OnkelR

Facebook
Telefonspende