منذ بعض الوقت، قمت بإنشاء موقع ويب صغير على شبكة المنطقة المحلية، وكان أحد الأقسام يتضمن تشغيل الموسيقى عبر الإنترنت. نظرًا لسهولة الصيانة المستقبلية، قررنا تخزين ملفات mp3 في أدلة مختلفة وفقًا للألبومات. ثم استخدم برنامجًا لمراقبة الدليل الذي تم تخزين ملفات mp3 فيه، وقم بتخزين معلومات كل ملف mp3 في قاعدة البيانات، واستخدم صفحة ASP.NET لتقديم معلومات ملف mp3 إلى المستخدم. على الرغم من أنه ليس من الصعب استخدام .NET لقراءة معلومات ملفات mp3، إلا أنه يتطلب أيضًا الكثير من المهارات، لذلك يتم تنظيم العملية ومشاركتها مع الجميع.
أولاً، دعونا نلقي نظرة على مكان تخزين معلومات أغنية mp3. تحتوي ملفات MP3 على علامة تسمى ID3. يوجد في الواقع علامتان، إحداهما تسمى ID3v1 والأخرى تسمى ID3v2. ومن أجل التبسيط، نقدم هنا ID3v1 فقط.
بنية ID3V1 بسيطة نسبيًا ويتم تخزينها في نهاية ملف MP3. يمكنك استخدام محرر سداسي عشري (على سبيل المثال: UltraEdit) لفتح ملف MP3. انتبه إلى بنية البيانات البالغة 128 بايت على النحو التالي:
الاسم المنصب الطول المحتوى
الرأس 1-3 3 عنوان العلامة
العنوان 4-33 30 عنوان
الفنان 34-63 30 ألبوم الفنان
64-93 30 سنة الألبوم
94-97 4 سنة الإنتاج
التعليق 98-127 30
مركز الملاحظات 128 1 النوع
ملحوظة: يجب أن يكون رأس العلامة أعلاه "TAG"، وإلا فهذا يعني أنه لا توجد علامة
يتم تخزين معلومات ID3v1 بالترتيب أطول من الطول القياسي، استخدم " " للإضافة. النوع هو استثناء، فهو يستخدم بايتًا واحدًا لتمثيل نوع الأغنية، والجدول المقابل هو كما يلي (نظرًا لوجود الكثير من المحتوى، تم إدراج أول 50 عنصرًا فقط):
0="Blues"
1="ClassicRock"
2="Country"
3="Dance"
4="Disco"
5="Funk"
6="Grunge"
7="Hip-Hop"
8="Jazz"
9=" ميتال"
10 = "العصر الجديد"
11 = "أغاني قديمة"
12 = "أخرى"
13 = "بوب"
14 = "آر آند بي"
15 = "راب"
16 = "ريغي"
17 = "روك"
18 = تكنو"
19 = Industrial"
20="Alternative"
21="Ska"
22="DeathMetal"
23="Pranks"
24="Soundtrack"
25="Euro-Techno"
26="Ambient"
27="Trip-Hop"
28="Vocal "
29="Jazz+Funk"
30="Fusion"
31="Trance"
32="كلاسيكية"
33="آلات موسيقية"
34="Acid"
35="House"
36="Game"
37="SoundClip"
38= "Gospel"
39="الضوضاء"
40="AlternRock"
41="Bass"
42="Soul"
43="Punk"
44="Space"
45="Meditative"
46="InstrumentalPop"
47="InstrumentalRock"
48= "عرقي"
49="قوطي"
50=موجة داكنة"
بعد معرفة بنية تخزين معلومات أغنية MP3، يمكننا كتابة الكود المقابل.
قم أولاً بتعريف فئة MP3Info:
1 فئة عامة Mp3Info
2
3
4
5 الخاص Const TAGLEN كعدد صحيح = 128
6
7
8
9 _MP3Tag خاص كسلسلة = String.Empty
10
11 _ فنان خاص كسلسلة = String.Empty
12
13 _عنوان خاص كسلسلة = String.Empty
14
15 _ألبوم خاص كسلسلة = String.Empty
16
17 _تعليق خاص كسلسلة = String.Empty
18
19 _ سنة خاصة كسلسلة = String.Empty
20
21 _ النوع الخاص كسلسلة = String.Empty
إثنان وعشرون
23Private_GenreIDasByte
أربعة وعشرون
25
26
27 الأنواع الخاصة () كسلسلة = {"البلوز"، "كلاسيك روك"، "البلد"، "الرقص"، "ديسكو"، "الفانك"، "الجرونج"، _
28
29 "هيب هوب"، "جاز"، "ميتال"، "العصر الجديد"، "أغاني قديمة"، "أخرى"، "بوب"، "آر أند بي"، "راب"، "ريغي"، "روك"، _
30
31 "تكنو"، "صناعي"، "بديل"، "سكا"، "ميتال الموت"، "مقالب"، "موسيقى تصويرية"، "يورو تكنو"، _
32
33 "Ambient"، "Trip-Hop"، "Vocal"، "Jazz+Funk"، "Fusion"، "Trance"، "كلاسيكي"، "Instrumental"، "Acid"، _
34
35 "House"، "Game"، "Sound Clip"، "Gospel"، "Noise"، "AlternRock"، "Bass"، "Soul"، "Punk"، "Space"، _
36
37 "تأملي"، "موسيقى البوب"، "موسيقى الروك"، "عرقي"، "قوطي"، "دارك ويف"، "تكنو-صناعية"، _
38
39 "إلكتروني"، "بوب فولك"، "الرقص الأوروبي"، "دريم"، "ساوثرن روك"، "كوميديا"، "عبادة"، "العصابات"، "أعلى 40"، _
40
41 "الراب المسيحي"، "بوب/فانك"، "الغابة"، "الأمريكيون الأصليون"، "ملهى"، "الموجة الجديدة"، "مخدر"، "الهذيان"، _
42
43 "Showtunes"، "Trailer"، "Lo-Fi"، "Tribal"، "Acid Punk"، "Acid Jazz"، "Polka"، "Retro"، "Musical"، _
44
45 "روك آند رول"، "هارد روك"، "فولك"، "فولك/روك"، "ناشيونال فولك"، "سوينغ"، "بيبوب"، "لاتين"، "إحياء"، _
46
47 "سلتيك"، "بلو جراس"، "طليعي"، "جوثيك روك"، "بروجريسيف روك"، "سايكيديلك روك"، "روك سيمفوني"، _
48
49 "موسيقى الروك البطيئة"، "فرقة كبيرة"، "جوقة"، "استماع سهل"، "صوتي"، "فكاهة"، "خطاب"، "شانسون"، "أوبرا"، _
50
51 "موسيقى الحجرة"، "سوناتا"، "سيمفوني"، "Booty Bass"، "Primus"، "Porn Groove"، "Satire"، "Slow Jam"، "Club"، _
52
53 "تانجو"، "سامبا"، "فولكلور"}
54
55
56
57 الملكية العامة MP3Tag() كسلسلة
58
59 احصل على
60
61 إرجاع _MP3Tag
62
63 نهاية الحصول على
64
65 مجموعة (قيمة ByVal كسلسلة)
66
67 _MP3Tag = value.Trim
68
69 نهاية المجموعة
70
71 نهاية الملكية
72
73
74
75 عنوان الملكية العامة () كسلسلة
76
77 احصل على
78
79 إرجاع _Title
80
81 نهاية الحصول على
82
83 مجموعة (قيمة ByVal كسلسلة)
84
85 _Title = value.Trim
86
87 نهاية المجموعة
88
89 نهاية الملكية
90
91
92
93 فنان الملكية العامة () كسلسلة
94
95 احصل على
96
97 عودة _الفنان
98
99 نهاية الحصول على
100
101 مجموعة (قيمة ByVal كسلسلة)
102
103_الفنان = القيمة.تريم
104
105 نهاية المجموعة
106
107 نهاية الملكية
108
109
110
111 ألبوم الملكية العامة () كسلسلة
112
113 احصل على
114
115 العودة_الألبوم
116
117 نهاية الحصول على
118
119 مجموعة (قيمة ByVal كسلسلة)
120
121 _الألبوم = القيمة.تريم
122
123 نهاية المجموعة
124
125 نهاية الملكية
126
127
128
129 تعليق الملكية العامة () كسلسلة
130
131 احصل على
132
133 عودة_تعليق
134
135 نهاية الحصول على
136
137 مجموعة (قيمة ByVal كسلسلة)
138
139 _التعليق = القيمة.تقليم
140
141 نهاية المجموعة
142
143 نهاية الملكية
144
145
146
147 نوع الملكية العامة () كسلسلة
148
149 احصل على
150
151 إرجاع_النوع
152
153 نهاية الحصول على
154
155 مجموعة (قيمة ByVal كسلسلة)
156
157 _النوع = القيمة.تريم
158
159 نهاية المجموعة
160
161 نهاية الملكية
162
163
164
165 معرف نوع الملكية العامة () كـ Byte
166
167 احصل على
168
169 Return_GenreID
170
171 نهاية الحصول على
172
173 مجموعة (قيمة ByVal كبايت)
174
175 _GenreID = القيمة
176
177 نهاية المجموعة
178
179 نهاية الملكية
180
181
182
183 سنة الملكية العامة () كسلسلة
184
185 احصل على
186
187 عودة _السنة
188
189 نهاية الحصول على
190
191 مجموعة (قيمة ByVal كسلسلة)
192
193 _السنة = القيمة.تقليم
194
195 نهاية المجموعة
196
197 نهاية الملكية
198
199 نهاية الفصل
200
201
202
203 تحتوي الفئة المذكورة أعلاه فقط على بنية البيانات المقابلة لمعلومات أغنية mp3 ونحتاج أيضًا إلى إضافة عملية محددة لقراءة معلومات ملف mp3:
204
205
206
207 الوظيفة العامة GetMp3FileInfo(ByVal fname As String) كسلسلة منطقية
208
209
210
211 "افتح تدفق الملفات
212
213 خافت msfile باسم FileStream
214
215 حاول
216
217 msfile = New FileStream(fname, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
218
219 إذا لم يكن الأمر كذلك (msfile.CanRead) إذن
220
221 رمي IIO.IOException الجديد ("غير قادر على قراءة الملف:" + fname)
222
223 نهاية إذا
224
225 الصيد السابق كاستثناء
226
227 رمي IIO.IOException الجديد ("حدث خطأ أثناء قراءة الملف!" + Ex.Message)
228
229 نهاية المحاولة
230
231
232
233 Dim ID3(TAGLEN - 1) كبايت
234
235 Dim BinReader كـ BinaryReader
236
237 ديمسترينفواسسترينغ
238
239
240
241 'استخدم BinaryReader لقراءة المعلومات
242
243 BinReader = BinaryReader الجديد (msfile)
244
245
246
247 مللي الملف.الموقف = 0
248
249 msfile.Seek(-TAGLEN, SeekOrigin.End)
250
251
252
253 StrInfo = CBytesToString(BinReader.ReadBytes(3))
254
255
256
257 'تحديد ما إذا كان رأس العلامة هو TAG
258
259 إذا كان StrInfo.ToUpper = "TAG" إذن
260
261
262
263 'اقرأ معلومات العنوان
264
265 StrInfo = CBytesToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
266
267 _Title = StrInfo
268
269
270
271 "اقرأ معلومات الفنان
272
273 StrInfo = CBytesToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
274
275_الفنان = StrInfo
276
277
278
279 "اقرأ معلومات الألبوم
280
281 StrInfo = CBytesToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
282
283_الألبوم =سترينفو
284
285
286
287 'اقرأ معلومات سنة النشر
288
289 StrInfo = CBytesToString(BinReader.ReadBytes(4)).Replace(Chr(0), "")
290
291 _السنة = StrInfo
292
293
294
295 'اقرأ معلومات الملاحظة
296
297 StrInfo = CBytesToString(BinReader.ReadBytes(30)).Replace(Chr(0), "")
298
299 _Comment = StrInfo
300
301
302
303 'اقرأ معلومات نوع الأغنية
304
305 _GenreID = BinReader.ReadByte
306
307
308
309 نهاية إذا
310
311
312
313 بن ريدر.إغلاق()
314
315 مللي ملف.إغلاق ()
316
317
318
319 وظيفة النهاية
320
321
322
323 'يستخدم لتحويل الترميز لمنع الأحرف الصينية المشوهة
324
325 وظيفة خاصة CBytesToString(ByVal Bytes() كبايت) كسلسلة
326
327 'لاحظ أن الترميز يحتاج إلى المعالجة هنا لمنع الأحرف المشوهة.
328
329 خافت GbCode كترميز = Encoding.GetEncoding("gb2312")
330
331 إذا بايت.الطول > 0 ثم
332
333 إرجاع GbCode.GetString(بايت)
334
335 غير ذلك
336
337 سلسلة العودة. فارغة
338
339 نهاية إذا
340
341 وظيفة النهاية
يمكننا استخدام برنامج وحدة تحكم بسيط لتوضيح كيفية استخدام فئة Mp3Info. باستخدام Visual Studio 2005 Express، قم بإنشاء برنامج وحدة التحكم:
1 وحدة نمطية1
2
3
4
5 فرعية
6
7
8
9 Dim Mp3 As New Mp3Info("D:MusicTop 40 Singles39 Embrace - Natures Law.mp3")
10
11
12
13 Console.WriteLine("العنوان:" + Mp3.Title)
14
15 Console.WriteLine("الفنان: " + Mp3.Artist)
16
17 Console.WriteLine("الألبوم:" + Mp3.Album)
18
19 وحدة التحكم.قراءة()
20
21 النهاية الفرعية
إثنان وعشرون
ثلاثة وعشرين
24 وحدة النهاية
بعد تشغيل البرنامج يكون الناتج هو:
العنوان: Nature's Law
الفنان: Embrace
الألبوم: DHZ.INC
النوع: Blues
تتناول هذه المقالة فقط ID3v1 لملفات mp3، ولكن في الواقع العديد من ملفات mp3 لا تحتوي فقط على معلومات ID3v1، ولكنها تحتوي أيضًا على معلومات ID3v2.
لكن ID3v2 أكثر تعقيدًا من ID3v1. يجب أن تنتظر معالجة ID3v2 حتى المرة القادمة عندما يكون لدي الوقت لكتابتها.