بسم الله الرحمن الرحيم
بد ضياع سرفر المنتدى الرائع للفيجوال بيسك www.vb4arab.com و فقد الكثير من المواضيع التي وضعها الاعضاء هناك ارتئيت نشر المواضيع المتوفرة في مواقع اخرى و احبها إلي بعد ذلك الصرح القديم هو هذا المنتدى المبارك بإذن الله تعالى ...
العنوان : دوال الـ API ومايقابلها في الدوت نت !
عندما بدأت التفكير في الإنتقال التدريجي لتطوير برامجي الشخصية بالإعتماد على إطار العمل الجديد - Net FrameWork. - و اجهت حينها الكثير من العوائق التي اعطتني نوعاً من الشعور بالغربة ! .. و أظن أن عدد الأشخاص الذين شاركوني هذا الشعور هو عدد لايمكن وصفة بالعدد القليل ..ذلك أن اهم أسباب حيرتي كانت تتلخص في سؤال و احد: أين أذهب بملعوماتي عن البرمجة بإستخدام Visual Basic 6.0 ؟!
لم يكن هذا السؤال في ذهني عندما فتحت بيئة تطوير الـ Visual Studio للمرة الأولى و لكني ما أن حاولت ان ارسم خطاً على الفورم الرئيسية لبرنامج فيجوال بيسك فوجئت بأني لم اتمكن من ذلك ؟! فلم يعد الأمر Line موجوداً كما في السابق, و من هنا تبين لي أن الأمر لن يكون سهلاً قط و أنني سأحتاج لجهد كبير للإستكشاف الأمكانيات الجديدة, فبعد ان كنت اظن أني سوف أبدء في تطوير برامج جديدة بالنسخة الجديدة من الفيجوال بيسك وجدت نفسي اجد صعوبة في إعادة كتابة برامجي السابقة باستخدام الإصدار الجديد !
حالي هذه لم تستمر طويلاً فبمرور فترة و جيزة و جدتني لا أكتفي بالبحث عن كيفية تأدية الأعمال االسابقة بإستخدام الإصدار الجديد بل ان نهمي زاد كثيراً لإستكشاف إطار العمل الذي طوع الكثير من الأمور التي كانت مرهقة جداً في السابق .. و لا اجد نهمي هذا إلا في ازدياد مستمر حتى اللحظة التي اكتب فيها الآن هذه الكلمات .
[مرحلة آخرى :
بعد إنقضاء مرحلة التخلص من معوقات كتابة برامج الـ Visual Basic 6.0 بإستخدام الإصدار الجديد Visual Basic .NET و تكييف النفس على التفكير بالبرامج ككائنات - Object Oreinted Programming - و التعامل معها على هذا الأساس .. بدأت الحاجة الملحة للتكييف مع التغييرات التي حصلت للتعامل مع دوال الوينذوز APIs تظهر بالتدريج حيث أن كثيراً من هذه الدوال أصبح بالإمكان الإستغناء عنها و الإكتفاء بشفرة Visual Basic .NET نقية نظراً لأن كثيراً من هذه الدوال قد تمت علمية تغليفها و تضمينها كأوامر تابعة لإطار العمل الجديد و بالتالي يمكن إستخدامها من خلال إحدى اللغات القائمة على هذا الإطار كالـ Visual Basic .NET او الـ #C ... الخ ..
و لكن المشكلة الكبرى كانت تكمن في معرفة هل يوجد لدالة معينة من دوال الـ API ما يكافئها في بيئة الـ Visual Basic .NET أم لا ..
فلا يوجد دليل يرشدني الى الطريق الذي يجب اتباعه فهل استخدم دوال الـ API مباشرة من خلال الفيجوال بيسك أم استخدم ما يكفئها من أوامره و لأنني لا اعرف ما اذا كان لدالة الـ API قرين في افيجوال بيسك كثيراً ما أضطر الى إستخدام الـ API مباشرة .
بداية ظهور الحلول :
في احدى المرات التي كنت اتصفح مواقعي المفضلة على الشبكة - منتدى الفيجوال بيسك للعرب و هذا الموقع بالتأكيد - لفت انتباهي موضوع جميل عرض فيه احد الأخوة صفحة من صفحات مكتبة الـ MSDN على الشبكة , و تحتوي على معلومات مفيدة عن الكثير من دوال الـ API و ما يقابلها في إطار عمل الـ NET. , طبعاً الموضوع كان رائعاً جداً بالنسبة لي آنذاك إذ انه قد اراحني من عناء البحث الطويل و محاولة الإستنتاج عما اذا كان هناك قرين لأي دالة من دوال الـ API ..
من لم يستطع ان يستوعب ماذا تعني هذه الصفحة Win32 APIs to .NET Framework فاليسمح لي بتوضيح مقدار الفائدة المجناه منها لمبرمجي الـ NET.
اذا افترضت اني احاول معرفة الوقت الذي انقضى منذ تشغيل جهاز كمبيوتري فأن اول ما سيطرأ على بالي هو إستخدام دالة الـ API المسماه GetTickCount و التي تقوم بإعداة الوقت المنقضي بوحدة الملي ثانية أي انك اذا قمت بشغيل كمبيوترك من ساعة ونصف تقريباً فأن القيمة الراجعة من هذه الدالة ستكون 5,400,000 وهو ما يعادل ساعة ونصف بوحدة الملي ثانية ...
و الآن اذا حاولت معرفة ما اذا كان يوجد لهذه الدالة ما يقابلها في الـ Visual Basic .NET فانك ستنتهج اساليب مختلفة لذلك مثل :
1 - البحث في مكتبة الـ MSDN .
2 - وضع سؤال في احد المنتديات المختصة.
3 - ربما ستتصل بصديق !
اياً كانت الطريقة التي ستستخدمها , فلا يوجد ضمان بأن النتائج التي ستحصل عليها هي نتائج سليمة مئة بالمئة فالطريقة الاولى هي التي استخدمها للايجاد حلول لمشاكلي و استفساراتي و على الرغم من أن مكتبة الـ MSDN هي من أكبر المكاتب التي يمكن للمرء الإعتماد عليها للبحث عن معلومات الدعم الفني إلا أن النتائج قد لا تكون سارة في جميع الأحوال فلكبر هذه المكتبة قد لا تتمكن من الوصول الى مبتغاك خاصة اذا اخفقت في انتهاج اسلوب البحث المناسب فيها ..
أما الطريقة الثانية فقد تحتاج الى و قت طويل و الى توفيق من الله تعالى .. فلا يوجد ما يضمن ان تجد من يرد على سؤالك ! ... لعدة اسباب ربما لجهل الذين اطلعوا على سؤالك بالاجابة السليمة عليه او ما شابه ..
والطريقة الاخيرة ايضاً ليست مضمونة فمهما بلغ مقدار العلم الذي آتاه الله لصديقك الذي ستتصل به فلا يخفى على مسلم أن ما نعلمه قليل و ما جهلناه عظيم , قال تعالى : {وَمَا أُوتِيتُم مِّن الْعِلْمِ إِلاَّ قَلِيلاً } ...
و لكن بوجود الصفحة السابقة يمكن ببساطة لأي شخص ان يرى ما اذا كان للدلة التي يبحث عنها نظير أم لا ...
فاذا بحثت عن ما يقابل الدالة GetTickCount في الـ NET. بالاعتماد على الصفحة المذكورة , فسوف تجد انها تناظر الـ :
System.Environment.TickCount
اي انك ببساطة اذا اردت إظهارالوقت المنقضي منذ تشغيل الجهاز بإستخدام الـ Visual Basic .NET فإنك ستكتب شيء مشابه لـ :
MsgBox( System.Environment.TickCount )
استخدامك لهذه الصفحة يسهل عليك الأمر كثيراً .. و بالنسبة لي كانت اكثر من مفيدة ...
و بإستخدامي المتكرر لها بدأت ارى اني بحاجة الى برنامج بسيط يسهل علي عملية البحث عن أي دالة و ما يقابلها في الـ NET. و هذا هو موضوع برنامجنا ..
معوقات بناء البرنامج :
بعد التفكير في بناء البرنامج احتجت الى مصدر للبيانات و الذي هو بالطبع الصفحة سابقة الذكر بعد حفظها بصيغة HTML في قرصي الصلب ... و لكن المشكلة تكمن في كون بيانات الـ HTML غير مفيدة نظراً لتداخل شفرة الـ HTML مع المعلومات التي جاءت في الصفحة ( الدوال و مايقابلها ) .. فنحن بحاجة الى مصدر مثل قاعدة بيانات بسيطة او ملف توصيف بسيط ( XML ) كي يسهل بذلك على برنامجنا البحث و استخراج الدوال .. اخترت انا هنا ان يكون مصدر بيانات البرنامج هو ملف XML و بالتالي اقتضى تحويل الصفحة من شفرة HTML الى ملف XML .. و هذا ما تجده بإذن الله تعالى في الفقرة التالية .
التحويل من ملف HTML الى ملف XML :
بتصفحك لشفرات ملف الـ HTML تجد انه قد تم تركيب البيانات فيها على شكل جدول <TABLE> يحتوي على مجموعة من الصفوف <TR> في كل صف مجموعة من الحقول <TD> تتضمن معلومات فيها وصف كامل لكل دالة فمثلاً اذا قمت بالبحث عن معلومات دالة الـ API المسماه CreatePen في ملف الـ HTML تجد انها مخزنة على الشكل التالي :
<TR VALIGN="top"> <TD width= 22% class= "data"><B>CreatePen</B></TD> <TD width= 39% class= "data">Creates a logical pen that has the specified style, width, and color. </TD> <TD width=39% class="data"><B>System.Drawing.Pen</B> constructor</TD> </TR>
من الشفرة السابقة ظهر لنا أن كل حقل <TD> فيه معلومة معينة عن الدالة فالحقل الأول يحتوي على أسم الدالة CreatePen و الذي يليه و صفها و اخيراً مايقابلها في بيئة الـ NET.
و يمكن لنا استخراج هذه المعلومات من كل سطر بطرق عده نتعامل فيها مع النصوص المصدرية HTML مستثنيين الأجزاء التي لا تهمنا منها .. فمثلاً الحقل الأول نحن لا نريد منه سوى أسم الدالة ولا حاجة لنا بشفرة الـ HTML المصاحبة له :
<TD width= 22% class= "data"><B>CreatePen</B></TD>
فلا يهمنا في السطر السابق إلا الجزء الذي يظهر باللون الأحمر فقط ! وهو اسم الدالة .
لكي نقوم بذلك يمكن لنا استخدام تقنية الـ RegularExpressions فهي مفيدة جداً للتعامل مع النصوص و يمكنك اعتبارها أكثر كفائة و سهولة من الدوال Split و Replace التي اعتدنا استخدامها .. ولكي يمكنك استخدامها بسهولة قم بإستيراد بالشكل التالي :
Imports System.Text.RegularExpressions
و بالتالي يمكنك استخدام مكوناتها للحصول على طريقة فعالة للتعامل مع النصوص المعقدة فمثلاً اذا افترضنا اننا لدينا متغير نصي بإسم Data يحتوي على سطر الـ HTML الذي يحتوي على اسم الدالة و نريد استخراج اسم الدالة منه - فإننا سنحتاج الى شيء مشابه للتالي :
Dim Data As String
Dim Find As Match
Data = "<TD width= 22% class= "data"><B>CreatePen</B></TD>"
Find = Regex.Match(Data,"<TD width= 22% class = ""data""<B>(?<APIName>(.|\n)*?)")
MsgBox(Find.Groups("APIName").Value)
اذا كتب الله النجاح للشفرة السابقة فإنك ستجد ان مربع الرسالة قد عرض لك أسم الدالة فقط بعد استخرجه كمجموعة بإسم APIName كما هو ظاهر في الشفرة السابقة .. و بنفس الطريقة يمكن البحث عن و استخراج المعلومات الاخرى عن الدالة ..
قد يبدو الأمر معقداً قليلاً بالنسبة لمن لم يجرب الـ RegularExpressions من قبل , غير أن الامر بسيط و يمكنك بالاطلاع عليها في ملفات المساعدة ان تستوعبها جيداً بإذن الله تعالى ...
و بعد أن تم إستخراج البيانات من صفحة الـ HTML يمكننا بسهولة تخزينها في ملف XML عن طريق إستخدام احدى طرق التعامل مع الـ XML في الـ NET. و قد استخدمت لذلك XmlTextWriter ...
و ملف الـ XML المتكون يحتوي على عناصر كل عنصر منها يحتوي على ثلاثة اجزاء .. الأول اسمه Name و فيه أسم الدالة .. و الثاني اسمه Desc و يحتوي على وصف الدالة ... و الأخير اسمه DotNET و يحتوي على مايقابل الدالة في الـ NET.
و بالتالي فإن شكل الدالة CreatePen السابقة بعد تحويلها الى صيغة XML سيكون كما هو موضوح في الشكل التالي :
بالنسبة للمهتمين فأن البرنامج المسؤول عن عملية التحويل من ملف HTML الى XML موجود مع المرفقات في مجلد بإسم APIsFromHTML .
البرنامج النهائي :
بعد التعرف على مصدر بيانات برنامجنا وتكوينه بالشكل الذي نرضاه بقي ان نبدأ في تصميم برنامجنا بشكل مناسب و تحديد الغرض و المميزات التي ينبغي ان تتوفر فيه, وهي بحسب ما تصورته كالتالي :
1 - بساطة التصميم.
2 - سرعة الوصول للهدف.
3 - امكانية الوصول للدالة دون كتابة اسمها الكامل.
لما سبق فقد اعتمدت على مكونات بسيطة في البرنامج لتسهيل العمل عليه , كما انه لتحقيق سهولة الوصول الى الهدف و ضعت المكان ينبغي فيه ادخال اسم الدالة المراد البحث عليها في اعلى البرنامج في مكان بارز , و اما امكانية الوصول الى الدالة دون كتابة اسمها الكامل سيكون مفيداً خاصة في الحلات التي نريد فيها معرفة معلومات عن مجموعة من الدوال خذ مثلاً اذا اردت كيف يمكن التعامل من خلال الـ .NET. مع اقسام القرص الصلب فانك ببساطة سوف تكتب كلمة مثل Drive في خانة البحث وسوف يعود لك البرنامج بمعومات سريعة عما يقابل الدالتين GetDriveType و GetLogicalDriveStrings و كيف يمكن استبدالهما بشفرات NET. صافية .
شكل البرنامج هو كالتالي :
في المثال الموضح بالشكل اعلاه تجد ان كلمة البحث هي font و الناتج هو جميع دوال الـ API التي تحتوي على الكلمة font و بمجرد النقر على احدى الدوال الناتجة فأن معلوماتها تظهر في مربع الوصف كما ان قرينها في الـ NET. يمكن استعراضه بالنقر على علامة الجمع (+) المجاورة للدالة ...
و بالعودة الى ملف البيانات ( ملف الـ XML ) و الذي عرفنا ان تركيبه هو كالتالي :
<APIs> . . . <API Name="CreatePen"> <Desc>Creates a logical pen that has the specified style, width, and color.</Desc> <DotNet>System.Drawing.Pen constructor</DotNet> </API> . . . </APIs>
في التركيب السابق للملف كل نقطة Node مثل الواسمة <APIs> تحتوي على نقاط اخرى داخلها ChildNodes مثل الواسمة <API> و لها خواص مثل الخاصية Name ... و بالتالي فأن لكل دالة API رقم خاص بها Index يميزها عن غيرها فمثلاً اذا كانت الدالة اعلاه CreatePen لها الرقم 19 مثلاً فإنك للوصول الى بياناتها ( الأسم , الوصف , مايقابلها في الـ NET. ) لهذه الدالة فانك ستكتب كود كالتالي :
Dim Xml As New XmlDocument()
Dim API As XmlNode
Xml.Load("RgheedAPIs.xml")
API = Xml.ChildNodes(1).ChildNodes(19)
MsgBox(API.Attributes("Name").Value, , "الأسم")
MsgBox(API.ChildNodes(0).InnerText, , "الوصف")
MsgBox(API.ChildNodes(1).InnerText, , "الدوت نت")لاحظ أن الأسم Name هو عبارة عن خاصية Attribute للواسمة <API> بينما الوصف <Desc> و المقابل في الدوت نت <DotNet> عبارة عن نقاط ChidNodes للواسمة <API>.
و بالتالي فان للوصول الى أي دالة اخرى داخل ملف بيانات برنامجنا و الذي اسميناه كما في الشفرة السابقة RgheedAPIs.Xml يمكنك فقط أن تغيير رقم الدالة بدلاً عن الرقم 19 الذي استخدمته كمثال .
خاتمة :
ما اريد ان ابينه اخيراً هو كيف تستطيع الاستفادة من النقاش السابق وتستغل ما جاء فيه فالموضوع لا يقتصر على البرنامج الناتج الذي سيسهل علينا بإذن الله تعالى الوصول الى ما يقابل دوال الـ API في الـ NET. , بل يمتد الى الاستفادة من لفتات حول استخدام اشياء مثل RegularExpression و الـ FileStream و التعامل مع ملفات الـ XML تكوين و قراءة.
تجد ملفات برنامجنا على هذا الرابط و قد احتوت على مجلدين الاول فيه برنامج التحويل من HTML الى XML ( اضعه للفائدة فقط ) و الآخر يحتوي على ملفات برنامجنا الخاص بالبحث !
السلام عليكم و رحمة الله و بركاته
السلام عليكم و رحمة الله و بركاته
