Marshal.Copy не копирует из массива байтов в структуру, начиная с адреса, указанного в IntPtr

(В некотором смысле это вопрос, ответ на который задают Извлечение структур в середине файла в мои структуры, кроме доступа к файлу байта за байтом и составления их значения.)

У меня есть файл, содержащий запись структуры в своем потоке:

[Start]...[StructureRecord]...[End]

Содержащаяся структура вписывается в этот макет, для которого существует переменная:

Public Structure HeaderStruct
    Public MajorVersion As Short
    Public MinorVersion As Short
    Public Count As Integer         
End Structure

private grHeaderStruct As HeaderStruct

Именно в эту переменную мне нужна копия структуры, находящейся в файле.

Требуемые пространства имен:

'File, FileMode, FileAccess, FileShare:
Imports System.IO

'GCHandle, GCHandleType:
Imports System.Runtime.InteropServices

'SizeOf, Copy:
Imports System.Runtime.InteropServices.Marshal

Мой FileStream называется oFS.

Using oFS = File.Open(sFileName, FileMode.Open, FileAccess.Read)
    ...

Предположим, что oFS сейчас находится в начале [StructureRecord].

Итак, есть 8 байтов (HeaderStruct.Length) для чтения из файла и копирования их в экземпляр записи этой структуры. Для этого я оборачиваю логику чтения из файла необходимого количества байтов и передаю их в свою структурную запись в универсальный метод ExtractStructure. Пункт назначения создается непосредственно перед вызовом процедуры.

    grHeaderStruct = New HeaderStruct
    ExtractStructure(Of HeaderStruct)(oFS, grHeaderStruct)
    ...
End Using

(Прежде чем предлагать методы чтения только этих 8 байтов вне специального метода, вы, вероятно, должны знать, что весь файл состоит из структур, которые зависят друг от друга. В поле Count указано, что за ними следуют 3 дочерние структуры, но эти содержат сами поля Count и т. д. Я думаю, что процедура их получения - неплохая идея.)

Однако сейчас у меня болит голова от этого распорядка:

'Expects to find a structure of type T at the actual position of the 
'specified filestream oFS. Reads this structure into a byte array and copies
'it to the structure variable specified in oStruct.
Public Shared Sub ExtractStructure(Of T As Structure) _
    (oFS As FileStream, ByRef oStruct As T)

    Dim oGCHandle As GCHandle
    Dim oStructAddr As IntPtr
    Dim iStructLen As Integer
    Dim abStreamData As Byte()

    'Obtain a handle to the structure, pinning it so that the garbage
    'collector does not move the object. This allows the address of the 
    'pinned structure to be taken. Requires the use of Free when done.
    oGCHandle = GCHandle.Alloc(oStruct, GCHandleType.Pinned)

    Try
        'Retrieve the address of the pinned structure, and its size in bytes.
        oStructAddr = oGCHandle.AddrOfPinnedObject
        iStructLen = SizeOf(oStruct)

        'From the file's current position, obtain the number of bytes 
        'required to fill the structure.
        ReDim abStreamData(0 To iStructLen - 1)
        oFS.Read(abStreamData, 0, iStructLen)

        'Now both the source data is available (abStreamData) as well as an 
        'address to which to copy it (oStructAddr). Marshal.Copy will do the
        'copying.
        Marshal.Copy(abStreamData, 0, oStructAddr, iStructLen)
    Finally
        'Release the obtained GCHandle.
        oGCHandle.Free()
    End Try
End Sub

Инструкция

oFS.Read(abStreamData, 0, iStructLen)

читает правильное количество байтов с правильными значениями в соответствии с непосредственным окном:

?abstreamdata
{Length=8}
    (0): 1
    (1): 0
    (2): 2
    (3): 0
    (4): 3
    (5): 0
    (6): 0
    (7): 0

Я не могу использовать здесь Marshal.StructureToPtr, потому что, ну, массив байтов - это не структура. Однако класс Marshal также имеет метод Copy.

Только то, что я здесь явно упускаю из виду, потому что

Marshal.Copy(abStreamData, 0, oStructAddr, iStructLen)

выполняет ли нет предполагаемую копию (но также не генерирует исключение):

?ostruct
    Count: 0
    MajorVersion: 0
    MinorVersion: 0

Что я не понимаю, почему эта копия не работает?

Документация MS не слишком много говорит о Маршале. Копия: https://msdn.microsoft.com/en-us/library/ms146625(v=vs.110).aspx:

source - Type: System.Byte() The one-dimensional array to copy from.

startIndex - Type: System.Int32 The zero-based index in the source array where copying should start.

destination - Type: System.IntPtr The memory pointer to copy to.

length - Type: System.Int32 The number of array elements to copy.

Похоже, я все правильно настроил, так возможно ли, что Marshal.Copy копирует не в структуру, а в какое-то другое место?

oStructAddr действительно выглядит как адрес (& H02EB7B64), но где это?

Редактировать

Между созданием параметра, получающего результат, и вызовом подпрограммы

    grHeaderStruct = New HeaderStruct
    ExtractStructure(Of HeaderStruct)(oFS, grHeaderStruct)

Я заполнил созданную запись некоторыми тестовыми данными, чтобы проверить, правильно ли она передана:

#Region "Test"
    With grMultifileDesc
        .MajorVersion = 7
        .MinorVersion = 8
        .Count = 9
    End With
#End Region

В этой процедуре я проверяю значение записи до и после Marshal.Copy в непосредственном окне. Оба раза получаю:

?ostruct
{MyProject.MyClass.HeaderStruct}
    Count: 9
    MajorVersion: 7
    MinorVersion: 8

(Переупорядочение полей записи в вызывающей и вызываемой стороне такое же, что, конечно, само по себе является проблемой, поскольку данные считываются из файла и будут ошибочно скопированы в структуру. Однако это не так. тема вопроса.)

Заключение: данные получены, но Marshal.Copy не произвел уже в вызываемом. Так что это не просто проблема «возвращает неверные данные».

Редактировать 2

Оказывается, Marshal.Copy копирует не данные, как указано в документации, а указатель на данные.

Marshal.ReadByte(oStructAddr) возвращает первый байт массива байтов, Marshal.ReadByte(oStructAddr + 1) - второй байт и т. д.

Но как мне вернуть эти данные в аргумент Out?