إشارة مرجعية Pointer - نسخة قابلة للطباعة

PHP كود :

Public Class PointerConverter(Of T As Structure)

    Private _value As T
    Private _bytes As Byte()

    Public Sub New(value As T)
        Me._value = value
    End Sub

    Public Sub New(bytes As Byte())
        Me._bytes = bytes
    End Sub

    Private Function ToBytes(value As T) As Byte()
        Dim length As Integer = System.Runtime.InteropServices.Marshal.SizeOf(value)
        Dim bytes As Byte() = New Byte(length - 1) {}
        Dim gc As System.Runtime.InteropServices.GCHandle = Nothing
        Try
            gc = System.Runtime.InteropServices.GCHandle.Alloc(bytes, System.Runtime.InteropServices.GCHandleType.Pinned)
            System.Runtime.InteropServices.Marshal.StructureToPtr(value, gc.AddrOfPinnedObject(), True)
        Catch ex As Exception
        Finally
            If gc.IsAllocated Then
                gc.Free()
            End If
        End Try
        Return bytes
    End Function

    Private Function ToStructure(bytes As Byte()) As T
        Dim result As T = Nothing
        Dim gc As System.Runtime.InteropServices.GCHandle = Nothing
        Try
            gc = System.Runtime.InteropServices.GCHandle.Alloc(bytes, System.Runtime.InteropServices.GCHandleType.Pinned)
            result = CType((CObj(System.Runtime.InteropServices.Marshal.PtrToStructure(gc.AddrOfPinnedObject(), GetType(T)))), T)
        Catch ex As Exception
        Finally
            If gc.IsAllocated Then
                gc.Free()
            End If
        End Try
        Return result
    End Function

    Public Function ToStructure() As T
        Return Me.ToStructure(Me._bytes)
    End Function

    Public Function ToBytes() As Byte()
        Return Me.ToBytes(Me._value)
    End Function

End Class

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim s As String = "Visual Basic Dot Net"
        Dim sp As StringPointer = New StringPointer With {.Source = s}
        Dim bytes As Byte() = New PointerConverter(Of StringPointer)(sp).ToBytes
        Dim fileName As String = ".\" + "data" + ".dat"
        IO.File.WriteAllBytes(fileName, bytes)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim fileName As String = ".\" + "data" + ".dat"
        Dim bytes As Byte() = IO.File.ReadAllBytes(fileName)
        Dim sp As StringPointer = New PointerConverter(Of StringPointer)(bytes).ToStructure
        Label1.Text = sp.Source
    End Sub
End Class

PHP كود :

Public Class Form2

    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim s As String = "Visual Basic Dot Net"
        Dim sp As StringPointer = New StringPointer With {.Source = s}
        Dim bytes As Byte() = New PointerConverter(Of StringPointer)(sp).ToBytes
        Dim fileName As String = ".\" + "data" + ".dat"
        IO.File.WriteAllBytes(fileName, bytes)
    End Sub
End Class

PHP كود :

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim f As Form = Form2
        f.Show()
        f.Close()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim fileName As String = ".\" + "data" + ".dat"
        Dim bytes As Byte() = IO.File.ReadAllBytes(fileName)
        Dim sp As StringPointer = New PointerConverter(Of StringPointer)(bytes).ToStructure
        Label1.Text = sp.Source
    End Sub
End Class