[RaggiTech]

كاتب الموضوع : Islam Ibrahim

الكائنات الديناميكية Dynamic Objects هي كائنات يتم تعريف أعضائها (خصائصها وإجراءاتها ) واستدعائها وقت التشغيل Runtime بدل وقت الترجمة Compiletime , يمكنك ذلك من التعامل مع تلك الكائنات ككائنات غير مرتبطة ببناء أو تركيب محدّد, على سبيل المثال , يمكنك استخدام كائن حيوي من أجل الارتباط مع DOM لمستند HTML معيّن, والذي عادة ما يكون محتواه متغيراً , ولأن كل مستند HTML يتميز عن غيره في تركيبه , يمكن باستخدام الكائنات الحيوية الوصول إلى تلك البنية أثناء وقت التشغيل , سابقاً مثلا من أجل الوصول إلى Attribute معين لعنصر HTML يجب تمرير اسم ال Attribute للإجراء GetProperty لذلك العنصر, مثلاً من أجل الوصول إلى Id Attribute لعنصر HTML التالي: <div Id="DIV1"> يحب عليك الوصول أولاً للعنصر dir ومن ثم استخدام الإجراء ("divElement.GetProperty("Id, أما إذا تم استخدام الكائنات الديناميكة (الحيوية) يمكنك عندها الوصول مباشرة إلى Id Attribute بمجرد كتابة divElement.Id .

يتم الحصول على الكائنات الحيوية باستخدام الربط المتأخر Late-Binding, في #C يتم استخدام النوع dynamic لتعريف كائن حيوي, بينما في Visual Basic يتم استخدام النوع Object.

يمكنك إنشاء كائنات حيوية مخصصة باستخدام الفئات الموجودة ضمن مجال الأسماء الجديد System.Dynamic , على سبيل المثال, يمكنك إنشاء كائن حيوي من نوع ExpandoObject وإضافة أعضاء جديدة لهذا الكائن كالحقول Fields أو الإجراءات Methods وقت التشغيل , يمكنك أيضًا إنشاء الأنواع الحيوية الخاصة بك وذلك بتوريث الفئة DynamicObject , عندها يمكنك إعادة تعريف إجراءات تلك الأنواع الحيوية الجديدة لتحقيق الديناميكية أثناء التشغيل.

The ExpandoObject Class

يوفر هذا النوع إمكانية إضافة أعضاء Members إليه أو حذفها وقت التشغيل وكذلك قراءة وإسناد القيم إلى تلك الأعضاء , وهذا النوع يدعم ما يسمى بالربط الحيوي Dynamic Binding والذي يمكنك من استخدام كتابة الكود بطريقة قياسية كأن تكتب sampleObject.sampleMember بدل من كتابة تركيب معقد مثل ("sampleObject.GetAttribute("sampleMember

تقوم الفئة ExpandoObject بتحقيق الواجهة القياسية IDynamicMetaObjectProvider والخاصة بوقت التشغيل الحيوي للغة (Dynamic Language Runtime(DLR , ما يتيح لك إمكانية مشاركة نسخة من النوع ExpandoObject بين اللغات التي تدعم DLR , على سبيل المثال يمكنك إنشاء نسخة من النوع ExpandoObject في #C وتمريرها إلى دالة مكتوبة بـ IronPython.

الفئة ExpandoObject تحقق مبدأ الكائنات الحيوية والتي يمكن من خلالها إسناد قيم والحصول عليها أو استدعاء أعضائها , إذا كنت بحاجة لنوع يحقق كيفية معينة لتحقيق مبدأ الحيوية عليك أن تستخدم النوع DynamicObject , وإذا كنت تريد التحكم في آلية عمل DLR عليك باستخدام الواجهة IDynamicMetaObjectProvider

كيفية إنشاء نسخة من ExpandoObject

في #C من أجل تمكين الربط المتأخر لنسخة من نوع ExpandoObject يجب عليك استخدام الكلمة المحجوزة dynamic

كود :

dynamic sampleObject = new ExpandoObject();

في Visual Basic من أجل تمكين العمليات الحيوية على الكائنات يجب استخدام الربط المتأخر بواسطة Object Class .

كود :

Dim sampleObject As Object = New ExpandoObject()

وهذا يعني أنك إذا لم تستخدم Object وقمت بتعريف كائن من نوع ExpandoObject بالطريقة التالية فلن تتمكن من جعل ذلك الكائن حيوياً :

كود :

Dim sampleObject As New ExpandoObject()

إضافة أعضاء جديدة

بإمكانك إضافة أعضاء جديدة بعد تعريف نسخة من ال ExpandoObject, مثل الخصائص الإجراءات والأحداث , المثال التالي يوضح كيفية إضافة خاصية إلى الكائن المعرف سابقاً:

VB Code

كود :

sampleObject.Test = "Dynamic Property"
Console.WriteLine(sampleObject.test) ' Dynamic Property
Console.WriteLine(sampleObject.test.GetType()) ' System.String

C# Code

كود :

sampleObject.test = "Dynamic Property";
Console.WriteLine(sampleObject.test); // Dynamic Property
Console.WriteLine(sampleObject.test.GetType()); // System.String

بالنسبة للإجراءات فهي تمثل باستخدام تعابير لمدا Lambda Expressions والتي تخزن على هيئة Delegates والتي يتم استدعاؤها عند الحاجة إليها, المثال التالي يوضح كيفية إضافة
إجراء يقوم بزيادة قيمة لخاصية حيوية :

VB Code

كود :

sampleObject.number = 10
sampleObject.Increment =Sub()
sampleObject.number += 1
End Sub


Console.WriteLine(sampleObject.number) ' 10

sampleObject.Increment()

Console.WriteLine(sampleObject.number) ' 11

C# Code

كود :

sampleObject.number = 10;
sampleObject.Increment = (Action)(() => { sampleObject.number++; });

Console.WriteLine(sampleObject.number); // 10

sampleObject.Increment();

Console.WriteLine(sampleObject.number); // 11

المثال التالي يوضح كيفية إضافة حدث إلى ExpandoObject :

VB Code

كود :

Dim sampleObject As Object = New ExpandoObject()

' Create a new event and initialize it with null.
sampleObject.sampleEvent = Nothing

' Add an event handler.
Dim handler As EventHandler = Sub(sender As Object, e As EventArgs)
Console.WriteLine("SampleHandler for {0} event", sender)
End Sub
sampleObject.sampleEvent =
[Delegate].Combine(sampleObject.sampleEvent, handler)

' Raise an event for testing purposes.
sampleObject.sampleEvent.Invoke(sampleObject, New EventArgs())

C# Code

كود :

dynamic sampleObject = new ExpandoObject();
// Create a new event and initialize it with null.
sampleObject.sampleEvent = null;
// Add an event handler.
sampleObject.sampleEvent += new EventHandler(SampleHandler);
// Raise an event for testing purposes.
sampleObject.sampleEvent(sampleObject, new EventArgs());
}
// Event handler.
static void SampleHandler(object sender, EventArgs e)
{ Console.WriteLine("SampleHandler for {0} event", sender); }

تمرير ExpandoObject كوسيط Parameter

بإمكانك تمرير نسخ من النوع ExpandoObject كوسائط للإجراءات, لاحظ أن تلك النسخ سيتم التعامل معها ككائنات حيوية Dynamic Objects في #C , وكائنات مرتبطة متأخراً Late-Bound Object في فيجوال بيسك, وهذا يعني أن IntelliSence لن يتمكن من التعرف على أعضاء تلك النسخ ولن يعرض أي خطأ أثناء الترجمة عند محاولة استدعاء أعضاء غير موجودة سابقاً في تلك النسخ , وإذا حدث وقمت باستدعاء عضو غير موجود فسيتم إطلاق استثناء وقت التشغيل . المثال التالي يوضح كيفية كتابة واستخدام إجراء يقوم بعرض أسماء وقيم خصائص لكائنات من نوع ExpandoObject .

VB Code

كود :

Sub Main()
Dim employee, manager As Object

employee = New ExpandoObject()
employee.Name = "John Smith"
employee.Age = 33

manager = New ExpandoObject()
manager.Name = "Allison Brown"
manager.Age = 42
manager.TeamSize = 10

WritePerson(manager)
WritePerson(employee)
End Sub

Private Sub WritePerson(ByVal person As Object)

Console.WriteLine("{0} is {1} years old.",
person.Name, person.Age)
' The following statement causes an exception
' if you pass the employee object.
' Console.WriteLine("Manages {0} people", person.TeamSize)

End Sub

C# Code

كود :

class Program
{
static void Main(string[] args)
{
dynamic employee, manager;

employee = new ExpandoObject();
employee.Name = "John Smith";
employee.Age = 33;

manager = new ExpandoObject();
manager.Name = "Allison Brown";
manager.Age = 42;
manager.TeamSize = 10;

WritePerson(manager);
WritePerson(employee);
}
private static void WritePerson(dynamic person)
{
Console.WriteLine("{0} is {1} years old.",
person.Name, person.Age);
// The following statement causes an exception
// if you pass the employee object.
// Console.WriteLine("Manages {0} people", person.TeamSize);
}
}
// This code example produces the following output:
// John Smith is 33 years old.
// Allison Brown is 42 years old.

إحصاء الأعضاء Membera وحذفها

يحقق النوع ExpandoObject الواجهة <IDIctionary<String, Object وبهذه الطريقة يمكن الوصول إلى جميع الأعضاء التي تم إضافتها وقت التشغيل إلى كائن من نوع ExpandoObject , وهذا قد يكون مفيداً إذا لم تكن لديك معلومات وقت التشغيل حول الأعضاء التي يمتلكها ذلك الكائن, المثال التالي يوضح كيفية تحويل كائن ExpandoObject إلى الواجهة <IDictionary<TKey, TValue

VB Code

كود :

Dim employee As Object = New ExpandoObject()
employee.Name = "John Smith"
employee.Age = 33
For Each member In CType(employee, IDictionary(Of String, Object))
Console.WriteLine(member.Key & ": " & member.Value)
Next
' This code example produces the following output:
' Name: John Smith
' Age: 33

C# Code

كود :

dynamic employee = new ExpandoObject();
employee.Name = "John Smith";
employee.Age = 33;

foreach (var property in (IDictionary<String, Object>)employee)
{
Console.WriteLine(property.Key + ": " + property.Value);
}
// This code example produces the following output:
// Name: John Smith
// Age: 33

في اللغات التي لا تملك تركيباً من أجل حذف الأعضاء Members مثل VB و #C يمكنك حذف الأعضاء بواسطة تحويل ExpandoObject إلى الواجهة >IDictionary<TKey, TValue وحذف ذلك العضو كزوج Key/Value , كما يوضح المثال التالي:

C# Code

كود :

dynamic employee = new ExpandoObject();
employee.Name = "John Smith";
((IDictionary<String, Object>)employee).Remove("Name");

VB Code

كود :

Dim employee As Object = New ExpandoObject()
employee.Name = "John Smith"
CType(employee, IDictionary(Of String, Object)).Remove("Age")

استقبال التنبيهات عند تغير قيم خصائص كائن من نوع ExpandoObject

النوع ExpandoObject يحقق الواجهة INotifyPropertyChanged لذلك بوسعه إطلاق أحداث عند إضافة عضو أو تعديله أو حذفه , وبهذه الطريقة يستطيع النوع ExpandoObject الاندماج مع أداوات الربط الخاصة بـ WPF وكذا أي بيئة أخرى تتطلب الحصول على تنبيهات عند حدوث تغييرات في المحتوى. الكود التالي يوضح كيفية كتابة معالج حدث EventHandler خاص بالحدث PropertyChanged للكائن ExpandoObject.

C# Code

كود :

// Add "using System.ComponentModel;" line
// to the beginning of the file.
class Program
{
static void Test()
{
dynamic employee = new ExpandoObject();
((INotifyPropertyChanged)employee).PropertyChanged +=
new PropertyChangedEventHandler(HandlePropertyChanges);
employee.Name = "John Smith";
}

private static void HandlePropertyChanges(
object sender, PropertyChangedEventArgs e)
{
Console.WriteLine("{0} has changed.", e.PropertyName);
}
}

VB Code

كود :

' Add "Imports System.ComponentModel" line
' to the beginning of the file.
Sub Main()
Dim employee As Object = New ExpandoObject
AddHandler CType(
employee, INotifyPropertyChanged).PropertyChanged,
AddressOf HandlePropertyChanges
employee.Name = "John Smith"
End Sub

Private Sub HandlePropertyChanges(
ByVal sender As Object, ByVal e As PropertyChangedEventArgs)
Console.WriteLine("{0} has changed.", e.PropertyName)
End Sub

يتبع...

[RaggiTech]

The DynamicObject Class

يوفر هذا النوع قابلية التحكم في العمليات التي يتم إجراؤها على الكائنات الحيوية وكيفية تنفيذ تلك العمليات, على سبيل المثال تستطيع التحكم في كيفية الوصول إلى خاصية من خصائص كائن حيوي, أو استدعاء إجراء , أو القيام بالعمليات الرياضية مثل الجمع والضرب... استخدام هذا النوع مفيد أحياناً عندما تتعامل مع مكتبة Library أو Add-in تستخدم فيها Syntax مثل : (scriptObject.SetProperty("PropertyName", propertyValue يمكنك في هذه الحالة باستخدام DynamicObject استخدام Syntax أكثر بساطة مثل scriptObject.PropertyName = propertValue.

لا يمكنك إنشاء نسخة من نوع DynamicObject مباشرة, بل عليك ببناء فئتك الخاصة وتوريثها من النوع DynamicObject والقيام بإعادة تعريف Overriding للإجراءات الضرورية , على سبيل المثال, إذا أردت إجراء عمليات من أجل إسناد قيم وقرائتها فقط , تحتاج عندها فقط لإعادة تعريف الإجرائين TrySetMember و TryGetMember . ولاستخدام نسخة من الفئة الجديدة في #C لابد من استخدام dynamic Keyword . بينما في VB يستخدم الربط المتأخر بواسطة Object Class.

المثال التالي يوضح كيفية استخدام DynamicObject Class من أجل بناء نوع جديد موروث من ذلك النوع وإنشاء نسخ منه وكيفية استخدامه وهذا المثال مبني على المتطلبات التالية: لنفترض أنك تريد توفير Syntax بديل عند التعامل مع Dictionary على سبيل المثال, فبدل من أن تكتب myDicionary("someKey") = someValue , يمكنك كتابة myDictionay.someKey = someValue بشكل مباشر . كما أنك ايضاً تريد أن يكون هذا التركيب غير حساس لحالة الأحرف case-insensitive . المثال التالي هو عبارة عن فئة تحتوي على كائن من نوع IDictionaty<String, Object> يستخدم للقيام بحفظ القيم على شكل ازواج key/value pairs داخل هذا Dictionary :

أولاً : أضف Class جديد إلى مشروعك, وفي أعلاه قم باستيراد مجال الأسماء System.Dynamic ثم قم بتعريف فئة جديدة باسم DynamicDictionary وقم بتوريثها من الفئة DynamicObject , لاحظ أنه يمكنك أيضاً إضافة أعضاء ثابتة Static إلى هذه الفئة كما هو الحال في المثال التالي في الخاصية Count (والمقصود هنا بالثابتة أنه لايمكنك حذفها)وفي هذه الحالة يجب الانتباه إلى أن DLR عند استدعاء أي عضو يقوم بالبحث أولاً في الأعضاء الثابتة فإذا لم يجد أي تطابق سيقوم باستدعاء الإجراء TryGetMember .المثال موضح في الكود التالي:

VB Code

كود :

' The class derived from DynamicObject.
Public Class DynamicDictionary
Inherits DynamicObject

' The inner dictionary.
Dim dictionary As New Dictionary(Of String, Object)

' This property returns the number of elements
' in the inner dictionary.
ReadOnly Property Count As Integer
Get
Return dictionary.Count
End Get
End Property


' If you try to get a value of a property that is
' not defined in the class, this method is called.

Public Overrides Function TryGetMember(
ByVal binder As System.Dynamic.GetMemberBinder,
ByRef result As Object) As Boolean

' Converting the property name to lowercase
' so that property names become case-insensitive.
Dim name As String = binder.Name.ToLower()

' If the property name is found in a dictionary,
' set the result parameter to the property value and return true.
' Otherwise, return false.
Return dictionary.TryGetValue(name, result)
End Function

Public Overrides Function TrySetMember(
ByVal binder As System.Dynamic.SetMemberBinder,
ByVal value As Object) As Boolean

' Converting the property name to lowercase
' so that property names become case-insensitive.
dictionary(binder.Name.ToLower()) = value

' You can always add a value to a dictionary,
' so this method always returns true.
Return True
End Function
End Class

Sub Main()
' Creating a dynamic dictionary.
Dim person As Object = New DynamicDictionary()

' Adding new dynamic properties.
' The TrySetMember method is called.
person.FirstName = "Ellen"
person.LastName = "Adams"

' Getting values of the dynamic properties.
' The TryGetMember method is called.
' Note that property names are now case-insensitive,
' although they are case-sensitive in C#.
Console.WriteLine(person.firstname & " " & person.lastname)

' Getting the value of the Count property.
' The TryGetMember is not called,
' because the property is defined in the class.
Console.WriteLine("Number of dynamic properties:" & person.Count)

' The following statement throws an exception at run time.
' There is no "address" property,
' so the TryGetMember method returns false and this causes
' a MissingMemberException.
' Console.WriteLine(person.address)
End Sub
' This examples has the following output:
' Ellen Adams
' Number of dynamic properties: 2

C# Code

كود :

// The class derived from DynamicObject.
public class DynamicDictionary : DynamicObject
{
// The inner dictionary.
Dictionary<string, object> dictionary
= new Dictionary<string, object>();

// This property returns the number of elements
// in the inner dictionary.
public int Count
{
get
{
return dictionary.Count;
}
}

// If you try to get a value of a property
// not defined in the class, this method is called.
public override bool TryGetMember(
GetMemberBinder binder, out object result)
{
// Converting the property name to lowercase
// so that property names become case-insensitive.
string name = binder.Name.ToLower();

// If the property name is found in a dictionary,
// set the result parameter to the property value and return true.
// Otherwise, return false.
return dictionary.TryGetValue(name, out result);
}

// If you try to set a value of a property that is
// not defined in the class, this method is called.
public override bool TrySetMember(
SetMemberBinder binder, object value)
{
// Converting the property name to lowercase
// so that property names become case-insensitive.
dictionary[binder.Name.ToLower()] = value;

// You can always add a value to a dictionary,
// so this method always returns true.
return true;
}
}

class Program
{
static void Main(string[] args)
{
// Creating a dynamic dictionary.
dynamic person = new DynamicDictionary();

// Adding new dynamic properties.
// The TrySetMember method is called.
person.FirstName = "Ellen";
person.LastName = "Adams";

// Getting values of the dynamic properties.
// The TryGetMember method is called.
// Note that property names are case-insensitive.
Console.WriteLine(person.firstname + " " + person.lastname);

// Getting the value of the Count property.
// The TryGetMember is not called,
// because the property is defined in the class.
Console.WriteLine(
"Number of dynamic properties:" + person.Count);

// The following statement throws an exception at run time.
// There is no "address" property,
// so the TryGetMember method returns false and this causes a
// RuntimeBinderException.
// Console.WriteLine(person.address);
}
}

// This example has the following output:
// Ellen Adams
// Number of dynamic properties: 2

في النهاية ما يمكن قوله هو أن هذه الإضافة لها استخدامات عديدة ومتقدمة وهذا ما هو إلا جزء بسيط فقط من أجل توضيح مبدأ ال Dynamic وتوضيح طرق استخدامها.

بالتوفيق للجميع.