id3

[Bart Verdonck]

How can I extract the id3-tag from an mp3 file?

Greetz,
BV

[Ken Tucker [MVP]]

Hi,

http://msdn.microsoft.com/library/de...un01242003.asp

Ken
----------------------
"Bart Verdonck" <ba***********@howest.be> wrote in message
news:_B*********************@phobos.telenet-ops.be...

How can I extract the id3-tag from an mp3 file?

Greetz,
BV

[Bart Verdonck]

Thank you but i found something beter!
(comments are in dutch, witch is my native language)

Private Sub MP3InfoOphalen()
Try
' Een FileStream openen, gekoppeld aan het bestand
Dim strMP3 As New IO.FileStream(Me.BestandsNaam,
IO.FileMode.Open, IO.FileAccess.Read)
' Een BinaryReader gebruiken om binair uit de FileStream
karakters
' te lezen
Dim binReader As New IO.BinaryReader(strMP3)
' Als ze aanwezig is staat de MP3-informatie 127 bytes voor het
' einde van het bestand
binReader.BaseStream.Seek(-128, IO.SeekOrigin.End)
' Enkel en alleen als de eerste 3 bytes op die positie het woord
' TAG vormen bevat het bestand geldige MP3-informatie die we
kunnen
' eruit halen
If binReader.ReadChars(3) = "TAG" Then
msTitel = binReader.ReadChars(30) ' We lezen 30 karakters
voor de titel
msArtiest = binReader.ReadChars(30) ' We lezen 30 karakters
voor de artiest
msAlbum = binReader.ReadChars(30) ' We lezen 30 karakters
voor het album
msJaar = binReader.ReadChars(4) ' We lezen 4 karakters voor
het jaar
msCommentaar = binReader.ReadChars(30) ' We lezen 30
karakters voor het commentaar
Else
' Geen geldig MP3-bestand: velden wissen
msTitel = ""
msArtiest = ""
msAlbum = ""
msJaar = ""
msCommentaar = ""
End If

' De BinaryReader en FileStream sluiten
binReader.Close()
strMP3.Close()

Catch ex As IO.IOException
msTitel = ""
msArtiest = ""
msAlbum = ""
msJaar = ""
msCommentaar = ""
End Try
End Sub

"Ken Tucker [MVP]" <vb***@bellsouth.net> schreef in bericht
news:eT**************@TK2MSFTNGP10.phx.gbl...

Hi,

http://msdn.microsoft.com/library/de...un01242003.asp
Ken
----------------------
"Bart Verdonck" <ba***********@howest.be> wrote in message
news:_B*********************@phobos.telenet-ops.be...

How can I extract the id3-tag from an mp3 file?

Greetz,
BV

[Herfried K. Wagner [MVP]]

* "Bart Verdonck" <ba***********@howest.be> scripsit:

How can I extract the id3-tag from an mp3 file?

See (text is in german, source code in C#):

<http://www.palmbytes.de/content/dotnetlibs/id3Lib.htm>

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Mitchell S. Honnert]

Bart, the code below will only extract the ID3 v1 tag. The ID3 v2.3 tag is
quite a bit more complex. For a free .NET library to read and write both v1
and v2.3 ID3 tags, see my UltraID3Lib at www.hundredmilessoftware.com.

- Mitchell S. Honnert
"Bart Verdonck" <ba***********@howest.be> wrote in message
news:JY********************@phobos.telenet-ops.be...

Thank you but i found something beter!
(comments are in dutch, witch is my native language)

Private Sub MP3InfoOphalen()
Try
' Een FileStream openen, gekoppeld aan het bestand
Dim strMP3 As New IO.FileStream(Me.BestandsNaam,
IO.FileMode.Open, IO.FileAccess.Read)
' Een BinaryReader gebruiken om binair uit de FileStream
karakters
' te lezen
Dim binReader As New IO.BinaryReader(strMP3)
' Als ze aanwezig is staat de MP3-informatie 127 bytes voor het ' einde van het bestand
binReader.BaseStream.Seek(-128, IO.SeekOrigin.End)
' Enkel en alleen als de eerste 3 bytes op die positie het woord ' TAG vormen bevat het bestand geldige MP3-informatie die we
kunnen
' eruit halen
If binReader.ReadChars(3) = "TAG" Then
msTitel = binReader.ReadChars(30) ' We lezen 30 karakters
voor de titel
msArtiest = binReader.ReadChars(30) ' We lezen 30 karakters voor de artiest
msAlbum = binReader.ReadChars(30) ' We lezen 30 karakters
voor het album
msJaar = binReader.ReadChars(4) ' We lezen 4 karakters voor het jaar
msCommentaar = binReader.ReadChars(30) ' We lezen 30
karakters voor het commentaar
Else
' Geen geldig MP3-bestand: velden wissen
msTitel = ""
msArtiest = ""
msAlbum = ""
msJaar = ""
msCommentaar = ""
End If

' De BinaryReader en FileStream sluiten
binReader.Close()
strMP3.Close()

Catch ex As IO.IOException
msTitel = ""
msArtiest = ""
msAlbum = ""
msJaar = ""
msCommentaar = ""
End Try
End Sub

"Ken Tucker [MVP]" <vb***@bellsouth.net> schreef in bericht
news:eT**************@TK2MSFTNGP10.phx.gbl...

Hi,

http://msdn.microsoft.com/library/de...un01242003.asp

Ken
----------------------
"Bart Verdonck" <ba***********@howest.be> wrote in message
news:_B*********************@phobos.telenet-ops.be...

How can I extract the id3-tag from an mp3 file?

Greetz,
BV