Option Strict On
Imports System.Runtime.InteropServices
Imports DLLConnection
 
Module GetStatusHelper
	Public Function GetBytesFromStatusStruct(ByVal gs As GETSTATUS) As Byte()
		Dim gch As GCHandle = GCHandle.Alloc(gs.data, GCHandleType.Pinned)
		Try
			Dim pStruct As IntPtr = gch.AddrOfPinnedObject()
			Dim buff(gs.size - 1) As Byte
			Marshal.Copy(pStruct, buff, 0, buff.Length)
			Return buff
		Catch ex As Exception
			Throw
		Finally
			gch.Free()
		End Try
	End Function
 
	Public Function GetStatusStructFromBytes(ByVal buffer As Byte()) As GETSTATUS
		If buffer Is Nothing Then
			Throw New ArgumentNullException("buffer")
		End If
		Dim size As Integer = buffer.Length
		If size > 120 Then
			size = 120
		End If
		Dim localBuffer(120) As Byte
		System.Buffer.BlockCopy(buffer, 0, localBuffer, 1, size)
		Dim gch As GCHandle = GCHandle.Alloc(localBuffer, GCHandleType.Pinned)
		Try
			Dim p As IntPtr = Marshal.UnsafeAddrOfPinnedArrayElement(localBuffer, 0)
			Dim o As Object = Marshal.PtrToStructure(p, GetType(GETSTATUS))
			Dim gs As GETSTATUS = CType(o, GETSTATUS)
			gs.size = CType(size, Byte)
			Return gs
		Catch ex As Exception
			Throw
		Finally
			gch.Free()
		End Try
	End Function
 
End Module