إستخراج ال Tags من ملف Mp3

مقدمة :

درسنا اليوم ليس له علاقة فقط بالفيجوال بيسك دوت نت بل يمكن استغلاله في لغات برمجة اخرى، الدرس سيكون حول كيفية استخراجنا لمعلومات معينة من ملف من نوع MP3. هذا الأمر كنت بحاجة اليه عند عملي لبرنامج من نوع MP3 Player طبعا هناك مكتبات جاهزة تساعدك على ذلك و أيضا أداة ال WMP تمكنك من ذلك لكني كنت أريد أن أعمل الكود الخاص باستخراج تلك المعلومات لأغراض شخصية فمنها اني عندما أريد قراءة تلك المعلومات لا اريد استعمال اداة ال WMP لأنه من اجل استخراجها يجب ان تمرر اسم الملف اليها و ذلك معناه انها تفتح الملف بل و تقرأه لكي تعطيك تلك المعلومات، الحل كما قلت كان بايجاد أداة اخرى لعمل ذلك و فعلا توجد DLL's لعمل ذلك، لكن لما اخاطر باستعمال DLL قد يكون يستعمل طريقة تجعل برنامجي يستهلك ذاكرة اكثر من اللازم، لذا قررت ان اكتب الكود بنفسي خصوصا أني أعرف ان كل تلك المعلومات موجودة في الملف نفسه.

ID3

أول خطوة كانت كيف سأعرف أين توجد تلك المعلومات بالتحديد في الملف ؟؟؟

بعد بحيث لم يستغرف خمس دقائق وجدت ان هذه المعلومات TAGS تكون في آخر الملف و كل تلك المنطقة او كل تلك المعلومات تسمى ID3، بعد بحث آخر :D وجدت مقالة حولها في ال WikiPedia :

http://en.wikipedia.org/wiki/ID3

الذي يهمنا في هذا المقال أن المعلومات التي نريد موجودة في ال 128 بايت الأخيرة من ملف ال MP3 و هي مقسمة كالتالي :

طبعا نبدأ من بداية ال Structure و التي تحتل ال 128 بايت الأخير.

الآن بعد ان عرفنا أين نجد المعلومات و ال Structure الخاصة بها أظن انكم متشوفون لكتابة الكود الخاص بكم الذي يقرأ هذه المعلومات، جيد أتمنى ان يعتبر كل واحد منكم هذا كتمرين له و يحاول ان يكتب كود خاص به و لما لا لا يضعه لنا كرد هنا لعله يكون أحسن من طريقتي.

كتابة الكود

الآن من أجل عمل مرتب وجميل سنقوم بإنشاء Structure خاصة بنا وستكون على الشكل التالي :

	Public Structure MP3TAG

		  Dim Title As String

		  Dim Artist As String

		  Dim Album As String

		  Dim Année As String

		  Dim Commentaires As String

		  Dim Genre As String

	  End Structure

الآن بعد انشاءنا لل Structure الخاصة بنا سوف نقوم بتسجيل طول كل معلومة ال Structure في ملف ال MP3، يعني اسم المغني يحتوي على كم Char ؟ لو عدت معي للأعلى ستجده يبتدأ من البايت 33 الى 63 يعني الطول المخصص له هو 30 بايت .

TAG = 3 Chars

  Title = 30 Chars

  Artist = 30 Chars

  Album = 30 Chars

  Year = 4 Chars

  Comment = 30 Chars

  Genre = 1 Char

الآن نقوم بتسجيل هذه المعلومات في برنامجنا على شكل Constants و سيكون تعريفها بالشكل التالي :

Const TitleChars As Integer = 30

  Const ArtistChars As Integer = 30

  Const AlbumChars As Integer = 30

  Const YearChars As Integer = 4

  Const CommentsChars As Integer = 30

  Const GenreChars As Integer = 1

جميل، لحد الآن كل الأمور واضحة، الآن ننتقل للكود الذي سيمكننا من استخراج هذه المعلومات لأننا لحد الآن لم نعمل سوى بعض التعريفات، نقوم بعمل Function تعيد لنا متغير من نوع MP3TAG وهوال Structure التي عرفناها في الأول و سيكون تعريف الدلة كالتالي :

Private Function GetMp3Tags(ByVal MP3Path As String) As MP3TAG

  End Function

داخل هذا ال Function سنبدأ العمل،

الخطوة الاولى هي فتح الملف بشكل Binary لذا فال StreamReader لن تنفعنا بل سنستعمل بدلها ال BinaryReader، نقوم بتعريفها بالشكل التالي :

Dim Mp3Binary As New BinaryReader(File.Open("D:\music\Kan Tayeb.mp3", FileMode.Open))

الملاحظة التي يمكن ملاحظتها هي انه لم نمرر للكلاس BinaryReader مسار ملف معين كما نفعل مع ال StreamReader بل استعملنا File.Open() ذلك ا نال BinaryReader يستقبل Stream و ال File.Open() يقوم بقراء ملف و يرجع FileStream و طبعنا حددنا نوع الفتح : FileMode.Open .

الآن لدينا محتوي ملف ال MP3 في الدالة Mp3Binary.

سنقوم الآن باعلان متغير من نوع Char و سيكون بالتحديد Array ذو حجم ال Structure الخاصة بال Tags في ملف ال MP3 و التعريف سيكون كالتالي :

Dim Tags(125) As Char

الآن سوف ... "هيهووووووووووووووو لحظة لحظة، في البداية قلت ا نال Tags تحتل ال 128 بايت الأخير من الملف لكنك أعلنت Array من 125 فقط ، أين الباقي؟؟؟"

ملاحظة في محلها لكن لو عدت معي الى البداية و ال Structure فسنجد ان كلمة "TAG" تحتل ال 3 Bytes الأولى من ال Structure و نحن فعليا لانحتاجها لذا سوف لن نأخذها في الحسبان لذا سنقرأ فقط 125 بايت، الآن تبين كل شئ، أليس كذلك J.

الخطوة التالية ستكون بأن نضع مؤشرنا على آخر 125 بايت في الملف و حن نعرف ان محتوى الملف الآن موجود في المتغير Mp3Binary و من أجر وضع المؤشر او بتعبير آخر من أجل أن ننتقل الى بداية آخر 125 بايت سيكون الكود كالتالي :

Mp3Binary.BaseStream.Position = Mp3Binary.BaseStream.Length – 125

الخاصية Position تمكننا من تحديد مكان البداية في Stream معينة و نحن حددنا له ان البداية ستكون طول ال Stream – 125 أظن ان هذه الجملةلا تحتاج لشرح أكثر.

الآن بعد ان انتقلنا الى بداية ال 125 بايت الأخيرة سوف نقوم بقراءتها ووضعها في ال Array التي اعلناها Tags() و الكود هو :

Mp3Binary.Read(Tags, 0, 125)

دالة Read هنا استقبلت ثلاث Params الأول ال Array التي توضع فيها المعلومات و هذه ال Array يمكن ان تكون من Char كما هو الحل في مثالنا أو Byte ثانيا نقطة بداية القراءة و هي 0 بالطبع و أخيرا كم عدد ال Bytesالتي يجب قراءتها.

الآن بعد ان وضعنا المعلومات التي نريدها في ال Array الخاص بنا فلم نعد نحتاج المتغير Mp3Binary لذا نقوم باغلاقه :

Mp3Binary.Close()

الآن التعامل مع Array من نوع Char سيكون اكثر تعقيدا لذا من اجل تفادي هذه التعقيدات نحوله الى String :

Dim TagToString As String = Convert.ToString(Tags)

الآن لدينا TagToString يحتوي على المعلومات الخاصة بملف ال MP3 ك String

الآن يسهل لدينا قراءة المعلومات و استخراج ما نريد.

كود الاستخراج من ال String سيكون كالتالي :

		'Get Title

		  GetMp3Tags.Title = TagToString.Substring(0, TitleChars)

		  'Get Artist

		  GetMp3Tags.Artist = TagToString.Substring(TitleChars, ArtistChars)

		  'Get Album

		  GetMp3Tags.Album = TagToString.Substring(TitleChars + ArtistChars, AlbumChars)

		  'Get Year

		  GetMp3Tags.Year = TagToString.Substring(TitleChars + ArtistChars + AlbumChars, YearChars)

		  'Get Comments

		  GetMp3Tags.Comments = TagToString.Substring(TitleChars + ArtistChars + AlbumChars + YearChars, CommentsChars)

		  'Get Genre

		  GetMp3Tags.Genre = TagToString.Substring(TitleChars + ArtistChars + AlbumChars + YearChars + CommentsChars, GenreChars)

لنأخذ مثالا السطر الأول الذي يقوم باستخراج اسم المغني :

GetMp3Tags.Title = TagToString.Substring(0, TitleChars)

بكل بساطة أسندنا للمتغير Title والذي هو ضمن ال Structure المسماة GetMp3Tags اسم المقطع عن طريق استعمال SubString في ال String التي تحتوي على كل المعلومات و طبعا أخذنا اسم المقطع من الحرف الأول الى الحرف رقم 30 و هوالمحدد في ال Constant المسماة TitleChars،

بعدها سنأخذ اسم المغني و ستكون بدايته من الحرف 30 الى الحرف 60 :

GetMp3Tags.Artist = TagToString.Substring(TitleChars, ArtistChars)

بالنسبة لاسم ال Album ستكون بدايته هي بداية طول اسم المقطع + اسم المغني : TitleChars + ArtistChars و طوله طبعا هو قيمة الثابث AlbumChars :

GetMp3Tags.Album = TagToString.Substring(TitleChars + ArtistChars, AlbumChars)

نفس الأمر بالنسبة للمعلومات الأخرى دائما نبدأ بمجموع طول ال Tags السابقة وبهذا سنحصل على ما نريد.

الكود الكامل

الآن اليكم الكود كاملا و يمكنكم تجربته :

   

  Imports System.IO

  Public Class Form1



	  Public Structure MP3TAG

		  Dim Title As String

		  Dim Artist As String

		  Dim Album As String

		  Dim Year As String

		  Dim Comments As String

		  Dim Genre As String

	  End Structure



	  Const TitleChars As Integer = 30

	  Const ArtistChars As Integer = 30

	  Const AlbumChars As Integer = 30

	  Const YearChars As Integer = 4

	  Const CommentsChars As Integer = 30

	  Const GenreChars As Integer = 1

	  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		  Dim FormattedString As String = ""

		  Dim MyMP3Tags As MP3TAG

		  MyMP3Tags = GetMp3Tags("d:\music\el-lilady.mp3")

		  With MyMP3Tags

			  MessageBox.Show("Title	: " & .Title)

			  MessageBox.Show("Artist   : " & .Artist)

			  MessageBox.Show("Album	: " & .Album)

			  MessageBox.Show("Year	 : " & .Year)

			  MessageBox.Show("Comments : " & .Comments)

			  MessageBox.Show("Genre	: " & .Genre)



		  End With

	  End Sub



	  Private Function GetMp3Tags(ByVal MP3Path As String) As MP3TAG



		  Dim Mp3Binary As New BinaryReader(File.Open("D:\music\Kan Tayeb.mp3", FileMode.Open))



		  Dim Tags(125) As Char

		  Mp3Binary.BaseStream.Position = Mp3Binary.BaseStream.Length - 125

		  Mp3Binary.Read(Tags, 0, 125)

		  Mp3Binary.Close()

		  Dim TagToString As String = Convert.ToString(Tags)



		  'Get Title

		  GetMp3Tags.Title = TagToString.Substring(0, TitleChars)

		  'Get Artist

		  GetMp3Tags.Artist = TagToString.Substring(TitleChars, ArtistChars)

		  'Get Album

		  GetMp3Tags.Album = TagToString.Substring(TitleChars + ArtistChars, AlbumChars)

		  'Get Year

		  GetMp3Tags.Year = TagToString.Substring(TitleChars + ArtistChars + AlbumChars, YearChars)

		  'Get Comments

		  GetMp3Tags.Comments = TagToString.Substring(TitleChars + ArtistChars + AlbumChars + YearChars, CommentsChars)

		  'Get Genre

		  GetMp3Tags.Genre = TagToString.Substring(TitleChars + ArtistChars + AlbumChars + YearChars + CommentsChars, GenreChars)





		  Return GetMp3Tags

	  End Function





  End Class