إستخدام الواجهات Interface في إستدعاء الدوال و الروتينات من ملف Dll

PHP كود :

Imports CairoCommon
Public Class CairoCommonFunctions
    Implements ICairoFunctions

    Public Function ConvertToString(bytes() As Byte) As String Implements ICairoFunctions.ConvertToString
        Dim result As String = String.Empty
        If bytes IsNot Nothing Then
            Dim i As Integer = 0
            While i < bytes.Length
                Dim b As Byte = bytes(i)
                result += b.ToString
                result += " "c
                i = (i + 1)
            End While
        End If
        result = result.TrimEnd(" "c)
        Return result
    End Function
End Class

PHP كود :

Imports CairoCommon

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ' قراءة مصفوفة  البايت الخاصة بالمشروع الثاني
        Dim buffer As Byte() = My.Resources.CairoFunctions

        ' تحميل الملف
        Dim dll As System.Reflection.Assembly = System.Reflection.Assembly.Load(buffer)

        ' تعريف متغير يعبر عن اسم الكلاس في المشروع الثاني شاملا الاسم الخاص بفضاء الأسماء الموجود بها الكلاس
        Dim dllName As String = "CairoFunctions.CairoCommonFunctions"
        Dim t As Type = dll.GetType(dllName)
        ' أخيرا نحصل علي الواجهة كالتالي
        Dim cairoFunctions As ICairoFunctions = CType(Activator.CreateInstance(t), ICairoFunctions)

        ' اخسرا نسخدم الدالة الموجودة في الواجهة
        Dim values As Byte() = New Byte() {100, 200, 210}
        Dim s As String = cairoFunctions.ConvertToString(values)
        Me.Text = s

    End Sub
End Class

PHP كود :

Public Class MemoryDumper

    Private Delegate Function Validator(s As String)

    Private _ptr As IntPtr
    Private _byte As Byte
    Private _index As Integer
    Private _guard As Integer

    Public Sub New(index As Integer, value As Byte, guard As Integer)
        Me._index = index
        Me._byte = value
        Me._guard = guard
        Me._ptr = IntPtr.Zero
    End Sub

    Public ReadOnly Property Handle As IntPtr
        Get
            Return _ptr
        End Get
    End Property

    Public ReadOnly Property Valid As Boolean
        Get
            Return Me._ptr <> IntPtr.Zero AndAlso (Not Me._index < 0)
        End Get
    End Property

    Public Sub Allocate()
        Me._ptr = System.Runtime.InteropServices.Marshal.AllocHGlobal(_index)
    End Sub

    Public Sub Write()
        System.Runtime.InteropServices.Marshal.WriteByte(_ptr, _byte)
    End Sub

    Public Function Read() As Byte
        Dim size As Integer = Me.Validate(Me._guard)
        Return (System.Runtime.InteropServices.Marshal.ReadByte(_ptr)) Xor CByte(size)
    End Function

    Public Sub Flush()
        If _ptr <> IntPtr.Zero Then
            System.Runtime.InteropServices.Marshal.FreeHGlobal(_ptr)
            _ptr = IntPtr.Zero
        End If
    End Sub

    Private Function Validate(value As Integer, callback As Validator) As Integer
        Dim result As Integer = Nothing
        If Not String.IsNullOrEmpty(value.ToString) Then
            result = Integer.Parse(callback(value.ToString))
        End If
        Return result
    End Function

    Private Function Validate(value As Integer) As Integer
        Dim callback As Validator = New Validator(AddressOf Me.Validate)
        Return Me.Validate(value, callback)
    End Function

    Private Function Validate(value As String) As String
        If Not String.IsNullOrEmpty(value) Then
            Dim s As String = Me.Validate(value, 4, value.Length - 1)
            Dim chars As Char() = s.ToCharArray
            Dim result As Char() = New Char(chars.Length - 1) {}
            For i = 0 To chars.Length - 1
                result(i) = chars(chars.Length - i - 1)
            Next
            Return New String(result)
        End If
        Return String.Empty
    End Function

    Private Function Validate(s As String, ByRef index As Integer, ByRef count As Integer) As String
        While index < count
            If Not Char.IsWhiteSpace(s(index)) Then
                Exit While
            End If
            index += 1
        End While

        While count >= index AndAlso Char.IsWhiteSpace(s(count))
            count -= 1
        End While
        Return s.Substring(index, count - index + 1)
    End Function

End Class