1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
|
Imports System.IO
Public Class MP3Info
Private mFileName As String
''' <summary>
''' Diese Funktion ließt den ID3v1 Tag aus einer MP3 Datei aus
''' </summary>
''' <param name="FileName">Die MP3 Datei</param>
''' <returns>Eine Instanz vom Typ ID3V1 mit den Informationen</returns>
Public Function GetID3v1Tag(Optional ByVal FileName As String = "") As ID3V1
Dim FS As FileStream
Dim BinReader As BinaryReader
Dim Buffer() As Byte
Dim Tag As New ID3V1
If FileName = "" Then FileName = mFileName
FS = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
BinReader = New BinaryReader(FS)
'Der ID3v1 Tag befindet sich in den letzten 128 Bytes der Datei
FS.Seek(-128, SeekOrigin.End)
If (ByteToString(BinReader.ReadBytes(3)).ToUpper = "TAG") Then
Tag.TagAvailable = True
With Tag
.Title = ByteToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
.Artist = ByteToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
.Album = ByteToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
.Year = ByteToString(BinReader.ReadBytes(4)).Replace(Chr(0), "")
'Wenn Byte 28 == 0 und Byte 29 <> 0 dann ist es die Version 1.1 ansonsten 1.0
Buffer = BinReader.ReadBytes(30)
If ((Buffer(28) = 0) And (Buffer(29) <> 0)) Then
.TagVersion = ID3V1.ID3Version.ID3V11
.Comment = ByteToString(Buffer, 0, 28).Replace(Chr(0), "")
.Track = Buffer(29)
Else
.TagVersion = ID3V1.ID3Version.ID3V10
.Comment = ByteToString(Buffer).Replace(Chr(0), "")
.Track = 0
End If
.Genre = BinReader.ReadByte
End With
End If
BinReader.Close()
FS.Close()
Return Tag
End Function
''' <summary>
''' Diese Funktion schreibt die ID3v1 Daten aus einer ID3V1 Instanz in eine MP3 Datei
''' </summary>
''' <param name="Tag">Die Instanz mit den ID3v1 Tag-Daten</param>
''' <param name="FileName">Die MP3 Datei in der die Informationen geschrieben werden sollen</param>
Public Sub SetID3v1Tag(ByVal Tag As ID3V1, Optional ByVal FileName As String = "")
Dim FS As FileStream
Dim BinReader As BinaryReader
Dim BinWriter As BinaryWriter
If FileName = "" Then FileName = mFileName
FS = New FileStream(FileName, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
BinReader = New BinaryReader(FS)
FS.Seek(-128, SeekOrigin.End)
If (ByteToString(BinReader.ReadBytes(3)).ToUpper = "TAG") Then
'TAG gefunden, also 3 Schritte in der Datei zurück
FS.Seek(-3, SeekOrigin.Current)
Else
'Kein TAG gefunden als ans ende Der Datei schreiben
FS.Seek(0, SeekOrigin.End)
End If
BinWriter = New BinaryWriter(FS)
BinWriter.Write("TAG".ToCharArray)
BinWriter.Write(Tag.Title.PadRight(30, Chr(0)).ToCharArray)
BinWriter.Write(Tag.Artist.PadRight(30, Chr(0)).ToCharArray)
BinWriter.Write(Tag.Album.PadRight(30, Chr(0)).ToCharArray)
BinWriter.Write(Tag.Year.PadRight(4, Chr(0)).ToCharArray)
Select Case Tag.TagVersion
Case ID3V1.ID3Version.ID3V10
BinWriter.Write(Tag.Comment.PadRight(30, Chr(0)).ToCharArray)
Case ID3V1.ID3Version.ID3V11
BinWriter.Write(Tag.Comment.PadRight(28, Chr(0)).ToCharArray)
BinWriter.Write(Chr(0))
BinWriter.Write(Tag.Track)
End Select
BinWriter.Write(Tag.Genre)
BinWriter.Flush()
BinWriter.Close()
BinReader.Close()
End Sub
Private Function ByteToString(ByVal Expression() As Byte, Optional ByVal Index As Integer = 0, Optional ByVal Length As Integer = 0) As String
If Length = 0 Then Length = Expression.Length
Return System.Text.Encoding.Default.GetString(Expression, Index, Length)
End Function
End Class
''' <summary>
''' Eine Klasse um ID3v1 Informationen von MP3 Dateien zu speichern
''' </summary>
Public Class ID3V1
Private mTagAvailable As Boolean
Private mTagVersion As ID3Version
Private mArtist As String
Private mTitle As String
Private mAlbum As String
Private mYear As String
Private mComment As String
Private mGenre As Byte
Private mGenreName As String
Private mTrack As Byte
Public Property TagAvailable() As Boolean
Get
Return mTagAvailable
End Get
Set(ByVal value As Boolean)
mTagAvailable = value
End Set
End Property
Public Property TagVersion() As ID3Version
Get
Return mTagVersion
End Get
Set(ByVal value As ID3Version)
mTagVersion = value
End Set
End Property
Public Property Artist() As String
Get
Return mArtist
End Get
Set(ByVal value As String)
mArtist = value
End Set
End Property
Public Property Title() As String
Get
Return mTitle
End Get
Set(ByVal value As String)
mTitle = value
End Set
End Property
Public Property Album() As String
Get
Return mAlbum
End Get
Set(ByVal value As String)
mAlbum = value
End Set
End Property
Public Property Year() As String
Get
Return mYear
End Get
Set(ByVal value As String)
mYear = value
End Set
End Property
Public Property Comment() As String
Get
Return mComment
End Get
Set(ByVal value As String)
mComment = value
End Set
End Property
Public Property Genre() As Byte
Get
Return mGenre
End Get
Set(ByVal value As Byte)
mGenre = value
mGenreName = GetGenreName(value)
End Set
End Property
Public ReadOnly Property GenreName() As String
Get
Return mGenreName
End Get
End Property
Public Property Track() As Byte
Get
Return mTrack
End Get
Set(ByVal value As Byte)
mTrack = value
End Set
End Property
Public Enum ID3Version As Integer
ID3V10 = 10
ID3V11 = 11
End Enum
Public Function GetGenreName(ByVal Number As Byte) As String
Dim Genres() As String = {"Blues", "Classic Rock", "Country", "Dance", "Disco", "Funk", "Grunge", _
"Hip - Hop", "Jazz", "Metal", "New Age", "Oldies", "Other", "Pop", "R&B", "Rap", "Reggae", "Rock", "Techno", _
"Industrial", "Alternative", "Ska", "Death Metal", "Pranks", "Soundtrack", "Euro -Techno", "Ambient", _
"Trip -Hop", "Vocal", "Jazz Funk", "Fusion", "Trance", "Classical", "Instrumental", "Acid", "House", "Game", _
"Sound Clip", "Gospel", "Noise", "AlternRock", "Bass", "Soul", "Punk", "Space", "Meditative", _
"Instrumental Pop", "Instrumental Rock", "Ethnic", "Gothic", "Darkwave", "Techno -Industrial", "Electronic", _
"Pop -Folk", "Eurodance", "Dream", "Southern Rock", "Comedy", "Cult", "Gangsta", "Top 40", "Christian Rap", _
"Pop/Funk", "Jungle", "Native American", "Cabaret", "New Wave", "Psychadelic", "Rave", "Showtunes", "Trailer", _
"Lo - Fi", "Tribal", "Acid Punk", "Acid Jazz", "Polka", "Retro", "Musical", "Rock & Roll", "Hard Rock", _
"Folk", "Folk/Rock", "National Folk", "Swing", "Bebob", "Latin", "Revival", "Celtic", "Bluegrass", "Avantgarde", _
"Gothic Rock", "Progressive Rock", "Psychedelic Rock", "Symphonic Rock", "Slow Rock", "Big Band", "Chorus", _
"Easy Listening", "Acoustic", "Humour", "Speech", "Chanson", "Opera", "Chamber Music", "Sonata", "Symphony", _
"Booty Bass", "Primus", "Porn Groove", "Satire", "Slow Jam", "Club", "Tango", "Samba", "Folklore", "Ballad", _
"Power Ballad", "Rhythmic Soul", "Freestyle", "Duet", "Punk Rock", "Drum Solo", "A Cappella", "Euro - House", _
"Dance Hall", "Goa", "Drum & Bass", "Club - House", "Hardcore", "Terror", "Indie", "BritPop", "Negerpunk", _
"Polsk Punk", "Beat", "Christian Gangsta Rap", "Heavy Metal", "Black Metal", "Crossover", "Contemporary Christian", _
"Christian Rock", "Merengue", "Salsa", "Thrash Metal", "Anime", "JPop", "Synthpop"}
Return Genres(Number)
End Function
End Class
|