+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مقالات VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=184)
+--- الموضوع : تحويل Interface الي دوال API (/showthread.php?tid=21874)
تحويل Interface الي دوال API - silverlight - 25-09-17
فكرة الموضوع تتلخص في تحويل الواجهات Interface الي دوال
حيث يتم اخفاء الكود الحقيقي الذي يقوم بالتنفيذ
وهنا يتم استخدام Interface كبديلا للكلاس الحقيقي الموجود به الكود
كتابة الكود الخاص لأي Interface
PHP كود :
Public Interface IStringAccessor
Function Access() As String
End Interface
ثم نقوم بعمل Implement للواجهة Intereface في اي كلاس
PHP كود :
Friend Class StringAccessor
Implements IStringAccessor
Private value As String
Private accessorFunc As Func(Of String, String)
Public Sub New(value As String, func As Func(Of String, String))
Me.value = value
Me.accessorFunc = func
End Sub
Public Function Access() As String Implements IStringAccessor.Access
Return Me.accessorFunc(Me.value)
End Function
End Class
كتابة الكلاس الذي يحتوي علي دوال API
حيث الهدف هنا استدعاء الواجهة Interface عن طريق تمرير الكلاس الأصلي و الموجود به الكود الفعلي
PHP كود :
Public NotInheritable Class AccessorAPI
Public Shared Function Access(value As String) As IStringAccessor
Return New StringAccessor(value, Function(s) s)
End Function
End Class
الإستخدام
فقط تستدعي الواجهة Interface
PHP كود :
Dim accessor As IStringAccessor = AccessorAPI.Access("Visual Basic")
If accessor IsNot Nothing Then
Me.Text = accessor.Access
End If
من الممكن دمج الكود الخاص بدوال API و الكلاس StringAccessor ليصبح بالشكل التالي
PHP كود :
Public NotInheritable Class AccessorAPI
Public Shared Function Access(value As String) As IStringAccessor
Return New StringAccessor(value, Function(s) s)
End Function
Private Class StringAccessor
Implements IStringAccessor
Private value As String
Private accessorFunc As Func(Of String, String)
Public Sub New(value As String, func As Func(Of String, String))
Me.value = value
Me.accessorFunc = func
End Sub
Public Function Access() As String Implements IStringAccessor.Access
Return Me.accessorFunc(Me.value)
End Function
End Class
End Class
الكلاس أعلاه يمكن تعميمه عن طريق استخدام Generic
حيث يمكن كتابة الواجهة Interface بالشكل التالي
PHP كود :
Public Interface IAccessor(Of T)
Function Access() As T
End Interface
PHP كود :
Public NotInheritable Class Accessor(Of T)
Public Shared Function Access(value As T) As IAccessor(Of T)
Return New InternalAccessor(value, Function(x) x)
End Function
Private Class InternalAccessor
Implements IAccessor(Of T)
Private _value As T
Private _accessor As Func(Of T, T)
Public Sub New(value As T, func As Func(Of T, T))
Me._value = value
Me._accessor = func
End Sub
Public Function Access() As T Implements IAccessor(Of T).Access
Return Me._accessor(Me._value)
End Function
End Class
End Class
الإستخدام
PHP كود :
Dim accessor As IAccessor(Of String) = AccessorAPI.Access("any String")
If accessor IsNot Nothing Then
Me.Text = accessor.Access
End If
أتمني أن تكون الفكرة مفيدة للبعض منكم
تقبلوا تحياتي
RE: تحويل Interface الي دوال API - yassoo1985 - 24-11-21
السلام عليكم
ممكن شرح أوفر لموضوع الـ API
ازاي اخلي البرنامج بتاعي ( ERP ) يدعم الـ API بحيث يمكن لطرف ثالث ( جهة حكومية مثلا ) الوصول لبعض البيانات المطلوبة عن طريق برامج وسيطة
علما بأنه تم تصميم البرنامج بلغة vb وقواعد بيانات Access
وشكرا