Как избежать избыточного байта, когда структура содержит байтовую переменную? (VB.NET)

Question

VB.NET 4.5

У меня есть структура, которая содержит один байт. Мне нужно получить массив байтов, который будет отправлен через последовательный порт.

Public Structure ExampleStructure 
    Public variable1 As Byte 
    Public variable2 As UInt16 
    Public variable3 As UInt16 

    Public Function getBytes() As Byte() 
     Dim binaryBytes(5) As Byte 
     Dim pointerCommand As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(Me)) 
     Marshal.StructureToPtr(Me, pointerCommand, False) 
     Marshal.Copy(pointerCommand, binaryBytes, 0, Marshal.SizeOf(Me)) 
     Marshal.FreeHGlobal(pointerCommand) 
     Return binaryBytes 
    End Function 
End Structure 

Этот вопрос:

, когда я использую Marshal.AllocHGlobal, Marshal.StructureToPtr и Marshal.Copy массив байт Возвращается 6 байт. .NET создает 2 байта для переменной1, поэтому имеется избыточный байт между данными переменной1 и переменной2.

Я могу решить эту проблему с помощью LayoutKind.Explicit и определения FieldOffsets.

<StructLayout(LayoutKind.Explicit)> _ 
Public Structure ExampleStructure 
    <FieldOffset(0)> Public variable1 As Byte 
    <FieldOffset(1)> Public variable2 As UInt16 
    <FieldOffset(3)> Public variable3 As UInt16 

    Public Function getBytes() As Byte() 
     Dim binaryBytes(5) As Byte 
     Dim pointerCommand As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(Me)) 
     Marshal.StructureToPtr(Me, pointerCommand, False) 
     Marshal.Copy(pointerCommand, binaryBytes, 0, Marshal.SizeOf(Me)) 
     Marshal.FreeHGlobal(pointerCommand) 
     Return binaryBytes 
    End Function 
End Structure 

Теперь, когда я получаю байты, больше нет избыточного байта между переменной1 и переменной2.

Это похоже на неуклюжий способ сделать это. Есть ли лучший вариант, когда мне не нужно вручную устанавливать FieldOffsets? Эта структура проста, но они могут стать намного более сложными.

Answer 1

Исправление было очень просто - нужно добавить тег LayoutKind.Sequential, пакет: = 1

<StructLayout(LayoutKind.Sequential, Pack:=1)> _ 
Public Structure ExampleStructure 
    Public variable1 As Byte 
    Public variable2 As UInt16 
    Public variable3 As UInt16 

    Public Function getBytes() As Byte() 
     Dim binaryBytes(5) As Byte 
     Dim pointerCommand As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(Me)) 
     Marshal.StructureToPtr(Me, pointerCommand, False) 
     Marshal.Copy(pointerCommand, binaryBytes, 0, Marshal.SizeOf(Me)) 
     Marshal.FreeHGlobal(pointerCommand) 
     Return binaryBytes 
    End Function 
End Structure