[VB.Net]获取对象的指针及结构体与字节数组间的相互转化

参考网上的方法，使用了GCHandle，http://blog.csdn.net/gxwxca/archive/2007/04/26/1585496.aspx，他的文章写得有点复杂，其实就是下面的两行

Dim GCH As GCHandle = GCHandle.Alloc(对象,GCHandleType.Pinned) Dim tPtr As IntPtr = GCH.AddrOfPinne<a href="https://www.jb51.cc/tag/dob/" target="_blank" class="keywords">dob</a>ject

另外附上结构体与字节数组间相互转化的代码

''' <summary> ''' 结构体转换成字节数组 ''' </summary> ''' <p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m name="oStructure">要转化的结构体</p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m> Public Shared Function Structur<a href="https://www.jb51.cc/tag/eto/" target="_blank" class="keywords">eto</a>ByteArray(ByVal oStructure As Object) As Byte() Dim oSize As Integer = Marshal.SizeOf(oStructure) Dim tByte(oSize - 1) As Byte Dim tPtr As IntPtr = Marshal.AllocHGlobal(oSize) Marshal.Structur<a href="https://www.jb51.cc/tag/eto/" target="_blank" class="keywords">eto</a>Ptr(oStructure,tPtr,False) Marshal.<a href="https://www.jb51.cc/tag/cop/" target="_blank" class="keywords">cop</a>y(tPtr,tByte,oSize) Marshal.FreeHGlobal(tPtr) Return tByte End Function ''' <summary> ''' 字节数组转换成结构体 ''' </summary> ''' <p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m name="arrByte">要转化的字节数组</p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m> ''' <p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m name="oType">要转化成的结构体类型</p<a href="https://www.jb51.cc/tag/ara/" target="_blank" class="keywords">ara</a>m> Public Shared Function ByteArrayToStructure(ByVal arrByte() As Byte,ByVal oType As Type) As Object Dim oSize As Integer = Marshal.SizeOf(oType) If oSize > arrByte.Length Then Return <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Dim tPtr As IntPtr = Marshal.AllocHGlobal(oSize) Marshal.<a href="https://www.jb51.cc/tag/cop/" target="_blank" class="keywords">cop</a>y(arrByte,oSize) Dim oStructure As Object = Marshal.PtrToStructure(tPtr,oType) Marshal.FreeHGlobal(tPtr) Return oStructure End Function