|
استخدام Forms وResources فى DLLs
بسم الله الرحمن الرحيم
مقدمة:
بقى جانبين مهمين فى DLLs سأغطيهما فى هذا الدرس وهما إستخدام Forms و Resources ، ويعد هاذين الجانبين من الجوانب التى تُظهر قوة ومرونة DLLs .
استخدام Form فى DLLs :
إن DLL يمكن أن يختوى Forms مثل احتوائه على الكود تماماً ،ولا تختلف طريقة بناء فورم فى DLL عنها فى التطبيق العادى ، لنأخذ مثال عملى لبناء فورم فى DLL :
1-ابنى تطبيق DLL جديد (امسح التعليقات الظاهرة فى ترويسة DLL إذا رغبت بذلك) خزّن الDLL باسم MyForms.dpr .
2-اختر file ثم new لبناء فورم جديد لمشروع DLL أضف أي أدوات تريدها على الفورم .
3-غيّر الخاصية name للفورم إلى DLLForm ،خزّن الفورم باسم DLLFormU.pas .
4-عد إلى وحدة DLL المصدرية ، أضف دالة تدعى ShowForm التى تبنى وتُظهر الفورم ،استخدم الكود التالي:
function ShowForm : Integer; stdcall;
var
Form : TDLLForm;
begin
Form := TDLLForm.Create(Application);
Result := Form.ShowModal;
Form.Free;
end;
5-أضف جزء exports إلى DLL وصدّر الدالة ShowForm ،يظهر جزء exports كالتالي:
exports
ShowForm;
6-اختر project ثم Build MyForms لبناء ملف ال DLL ،خزّن الDLL .
لاحظ أن الدالة ShowForm قد صُرِّح عنها باستخدام الكلمة المحجوزة stdcall ،هذه الكلمة المحجوزة تخبر المترجم ليصدّر الدالة باستخدام الإستدعاء القياسي "calling convention" ،stdcall يسمح لهذا الDLL ليُستخدم بواسطة بيئات تطوير أخرى غير دلفى.
ملاحظة: calling convention يحدد كيف سيمرر المترجم البارامترات عندما يستدعى الدوال والإجراءات ، الإستدعاءات الخمس القياسية للconventions هى (stdcall, cdecl, pascal, regester, safecall) .
الكود التالي يُظهر الDLL :
library MyForms;
uses
SysUtils,
Classes,
Forms,
DLLFormU in `DLLFormU.pas' {DLLForm};
function ShowForm : Integer; stdcall;
var
Form : TDLLForm;
begin
Form := TDLLForm.Create(Application);
Result := Form.ShowModal;
Form.Free;
end;
exports
ShowForm;
begin
end.
الآن التطبيق المستدعِى يمكنه أن يصرّح عن الدالة ShowForm وأن يستدعيها ، أنظر لتطبيق دلفى التالي:
unit TestAppU;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
function ShowForm : Integer; stdcall;
external `myforms.dll';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowForm;
end;
end.
لاحظ أنى استخدمت الكلمة المحجوزة stdcall مرة أخرى عندما صرّحت عن الدالة فى لتطبيق المستدعِى نظراً لأن الدالة كانت قد صدّرت من ال DLL مع stdcall ، لذلك يجب أن تُستورد مع stdcall ،يجب عليك دائماً أن تستورد الدالة أو الإجراء بنفس calling convention الذى استخدمته لتصديره.
ملاحظة: إذا كنت ستستخدم DLL فى تطبيقات دلفى فقط ،فإنك لا تحتاج للقلق حول استخدام stdcall عند تصديرك لدوالك و إجراءاتك ، أما إذا كان DLL سيُستدعى من مجال عريض من التطبيقات فيمكن أن تُصدّر دوالك وإجراءاتك مع stdcall .
مثال لاستدعاء الدالة السابقم من لغة Visual Basic :
1-شغّل تطبيق جديد فى VB .
2-فى جزء General للفورم أكتب سطر التصريح التالي عن الدالة (لا تنسى حساسية هذا السطر بالنسبة لحالة أحرف اسم الدالة كبيرة أم صغيرة):
Private Declare Function ShowForm Lib "myforms.dll" () As Integer
3-أضف زر أمر على الفورم وفى حدث النقر له أكتب السطر التالي :
dim x as integer
x=showform
4-نفّذ البرنامج ،أنقر على زر الأمر ،لاحظ أن الفورم الجديد سيظهر .
استدعاء MDI Form فى DLL :
امتلاك MDI child من DLL هو حالة خاصة ،لنقل أنك تملك تطبيق دلفى والفورم الرئيسي هو MDI Form ،إذا كنت تحاول أن تستخدم MDI child موجود فى DLL ،فإنك ستحصل على اعتراض VCL يقول (لايوجدMDI Forms نشط الآن) .
لكنك تملك MDI Form فما المشكلة إذاً؟ بالنسبة ل VCL أنت لا تملك MDI Form .
عندما تحاول أن ترى MDI child ،فإن VCL تحاول أن تفحص ما إذا كانت خاصية MainForm لغرض التطبيق صالحة أم لا ،إذا كانت هذه الخاصية ليست صالحة ،يظهر الإعتراض ، المشكلة هى أن ال DLL كذلك يحتوى على غرض Application غير التطبيق الذى أنت تعمل عليه حالياً ،وهذا الغرض يتم فحص خاصية MainForm له لكن DLL لا يملك MainForm ،هذا الفحص سيفشل دائماً.
لحل هذه المشكلة يجب إسناد غرض تطبيق التطبيق المستدعِى إلى غرض تطبيق DLL ،كذلك يجب أن يتم إعادة غرض تطبيق DLL إلى وضعه الأصلى ،لذلك عليك أن تخزن مؤشر لغرض تطبيق DLL فى متغير عام فى DLL ،لذلك يمكن إعادته لوضعه الأصلى قبل أن يتوقف تحميل DLL .
لنتبع الخطوات التالية الضرورية لمشاهدة MDI child Form فى DLL :
1-إعمل مؤشر عام من النوع TApplication فى DLL .
2-خزّن غرض تطبيق DLL فى المتغير الذى عرّفته.
3-أسند غرض تطبيق التطبيق المستدعى إلى غرض تطبيق DLL .
4-أنجز وأظهر الMDI child Form .
5-أعد غرض تطبيق DLL قبل وقف تحميله.
ضع الكود التالي قرب قمة وحدة المصدر لDLL :
var
DllApp : TApplication;
كن متأكداً من وضع الكلمة المحجوزة var تحت قائمة uses فى وحدة DLL المصدرية ،ثم ابنى الإجراء الذى سيعمل على تبديل TApplication ويبنى MDI child Form ،الإجراء سيظهر كالتالي :
procedure ShowMDIChild(MainApp : TApplication);
var
Child : TMDIChild;
begin
if not Assigned(DllApp) then begin
DllApp := Application;
Application := MainApp;
end;
Child := TMDIChild.Create(Application.MainForm);
Child.Show;
end;
عندما تستدعى هذا الإجراء فإنك ستمرر غرض التطبيق للتطبيق المستدعِى ،إذا كان مؤشر DLLApp لم يتم إسناده ،فإنك تسند غرض تطبيق DLL إلى مؤشر مؤقت ،ثم تسند غرض التطبيق للتطبيق المستدعى لغرض تطبيق DLL ،هذا يفحص تأكيد ما إذا كان غرض التطبيق قد وضع(أسند) مرة واحدة فقط.
بعد ذلك سيتم بناء MDI child Form ،يُمرر الفورم الرئيسي للتطبيق المستدعى كمالك ، فى النهاية ،يظهر الفورم.
كل ما تبقى هو إرجاع مؤشر تطبيق DLL قبل وقف تحميله ،بإمكانك استخدام DLLProc لإعادة تخزين مؤشر تطبيق DLL كالتالي :
procedure MyDLLProc(Reason: Integer);
begin
if Reason = DLL_PROCESS_DETACH then
{ DLL is unloading. Restore the Application pointer. }
if Assigned(DllApp) then
Application := DllApp;
end;
تذكّر أنك خزنت مؤشر تطبيق DLL سابقاً ،والآن أنت فقط تعيد تخزينه .
كما رأيت تركيب MDI child Form فى DLL يتطلب عمل إضافى لكنه بالتأكيد ممكن.
استخدام Resources in DLLs :
أحياناً تحتاج إلى امتلاك مصادر Resources محتواة داخل DLL ويتم استيرادها من قبل تطبيقاتك بدلاً عن وضعها كجزء من الملف التنفيذى للبرنامج.
من أهم استخدامات هذا الأسلوب هو جعل برنامجك أكثر سهولة فى قابلية نقله إلى لغات أخرى غير لغتك الوطنية ، لنأخذ مثالاً على ذلك :
لنفرض أنك تملك تعليمات شاشة لتطبيقك ،وتلك التعليمات مشتملة فى خمس سلاسل موجودة فى DLL ،هذه الجمل يمكن أن تُدعى IDS_INSTRUCTION1, IDS_INSTRUCTION2 إلى آخره.
يمكنك أن تُحمّل وتعرض السلاسل كالتالى :
LoadString(DllInstance, IDS_INSTRUCTION1, Buff, SizeOf(Buff));
InstructionLabel1.Caption := Buff;
البارامتر الأول للدالة LoadString يحتوى على ممسك Instance لل DLL حيث توجد السلاسل ،البارامتر الثانى يحتوى رقم ID لل Resource المراد تحميله ،حيث أنك تقوم ببناء DLLs التى تحتوى السلاسل بعدة لغات مختلفة قبل تحميلها ،ويمكن استخدام الكود التالى لتحديد ممسك الDLL .
var
DLLName : String;
begin
case Language of
laFrench : DllName := `french.dll';
laGerman : DllName := `german.dll';;
laSpanish : DllName := `spanish.dll';
laEnglish : DllName := `english.dll';
end;
DllInstance := LoadLibrary(PChar(dllName));
end;
كل ماعليك فعله هو تحميل ال DLL الصحيح ،هذا يمثّل أحد استخدامات Resources الذى ستجد بالتأكيد الكثير من الاستخدامات له عند بناء تطبيقاتك .
بناء Resources DLL :
يمكنك أن تبنى DLL يتكون فقط من Resources ،أو يمكنك مزج الكود وال Resources فى نفس DLL تركيب Resources فى DLL مماثل لإضافة Resources لتطبيقك ،لفعل ذلك ابدأ مشروع DLL جديد ثم أضف سطر فى DLL لربط ال Resources :
استخدام Resource DLL :
يجب عليك أن تحصل على DLL's instance ممسك لل DLL قبل أن تستطيع الوصول إلى Resources الموجودة فى DLL ،إذا كان DLL يحتوى على Resources فقط فإنك ستستخدم التحميل الديناميكى ،أما إذا احتوى DLL على Resources وكود معاً فإنك تختار التحميل الأستاتيكي ل DLL ،لاحظ أنه فى حالة تحميل DLL ستاتيكياً فإنك تستطيع استخدام Loadlibrary لالتقاط instsnce handle .
DllInstance := LoadLibrary(`resource.dll');
ومن ثم تستخدم الممسك عندما تحتاج إليه ،الكود التالى يُحمّل صورة نقطية موجودة فى DLL إلى أداة Image :
procedure TMainForm.FormCreate(Sender: TObject);
begin
DLLInstance := LoadLibrary(`resource.dll');
if DLLInstance <> 0 then begin
Image.Picture.Bitmap.
LoadFromResourceName(DLLInstance, `ID_BITMAP1');
FreeLibrary(DLLInstance);
end else
MessageDlg(`Error loading resource DLL.',
mtError, [mbOk], 0);
end;
لم يبقى الكثير لنقوله فى هذا الموضوع ،بالطبع بإمكانك تحميل Resources ستاتيكياً أو ديناميكياً ،فى كلا الطريقتين لك أن تستخدم Loadlibrary لالتقاط الممسك لل DLL ، لاتنسى استدعاء FreeLibrary عندما تنتهى من العمل مع DLL ،أو قبل أن تغلق تطبيقك.
ملاحظة: استخدام التحميل الديناميكى له ميزة إضافية حيث أنه يسمح لتطبيقك أن يحمّل بشكل أسرع ، حيث أنك تقوم بتحميل Resource DLL عندما تحتاجه وتنهى تحميله عند انتهاء حاجتك إليه ،نتيجة لهذا فإن تطبيقك سيستخدم ذاكرة أقل منه عندما تكون الموارد فى الملف التنفيذى.
الخلاصة :
استخدام Dynamic Link Library ليس صعباً مثلما يظهر لك أول الأمر ، DLLs هو طريق عظيم لإعادة استخدام الكود ،بعد أن تبنى DLL يمكنك استدعاؤه من تطبيقك الذى يحتاجه ،بناء VCL forms فى DLL واستدعاء هذه الforms من تطبيقات غير تطبيقات دلفى مظهر قوي ،استخدام الResources فى DLLs مظهر فعّال إذا استطعت التحكم فى متى وأين تحمّل هذه المصادر.
رجائى أن أكون قد وفقت لكشف النقاب عن هذا الجانب البرمجى المهم ليس فقط فى لغة الدلفى وإنما فى معظم لغات البرمجة التى تتفق فى DLL كمفهوم ولا تختلف إلا فى طريقة تجهيزه واستخدامه ... ولا أدعى أن هذه الدروس المحدودة ستجعلك متمكناً منه بشكل كامل ،ولكننى أعتبرها بداية ممتازة لتجعلك تنطلق لمزيد من البحث والدراسة والاستخدام لل DLL وصولاً إلى برمجة عربية ذات مستوى عالمى.
المزيد من المواضيع
نافذة الخصائص والأحداث بدلفي
تحميل واستدعاء دوال وإجراءات DLL
إنجاز وحدة DLL فى لغة دلفي
مقدمة فى برمجة DLL (لغة دلفي)
الدالة Case
حلقات التكرار While - For - Repeat
الكلمة الأساسية IF - THEN
المتغيرات في برنامج الدلفي
الثوابت في برنامج الدلفي
|
