'Imports System
'Imports System.Runtime.InteropServices
Private Function StructToByteArray(ByVal Struct As Object) As Byte()
  Dim StructSize As Integer = Marshal.SizeOf(Struct)
  Dim StructPrt As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(Struct))
  Dim StructBytes() As Byte = CType(Array.CreateInstance(GetType(Byte), StructSize), Byte())
  Marshal.StructureToPtr(Struct, StructPrt, False)
  Marshal.Copy(StructPrt, StructBytes, 0, StructSize)
  Marshal.FreeHGlobal(StructPrt)
  Return StructBytes
End Function

//using System;
//using System.Runtime.InteropServices;
private static byte[] StructToByteArray(object Struct) {
  int StructSize = Marshal.SizeOf(Struct);
  IntPtr StructPrt = Marshal.AllocHGlobal(Marshal.SizeOf(Struct));
  byte[] StructBytes = new byte[StructSize];
  Marshal.StructureToPtr(Struct, StructPrt, false);
  Marshal.Copy(StructPrt, StructBytes, 0, StructSize);
  Marshal.FreeHGlobal(StructPrt);
  return StructBytes;
}

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Any, ByVal ByteLen As Long)
'
Function StructToByteArray(ByRef Struct As TYPE_A_SPECIFIER) As Byte()
    Dim abRet() As Byte
    Dim iLen    As Integer
    
    iLen = Len(Struct)
    ReDim abRet(0 To iLen - 1)
    
    Call CopyMemory (abRet(0), ByVal Struct,  iLen)
    StructToByteArray = abRet
    Erase abRet
End Function

type
 TByteArray = array of Byte;


function StructToByteArray(const Struct; const Size: Longword): TByteArray;
begin
 if Size > 0 then { On refuse une taille de structure nulle }
  begin
   { On définit la taille du tableau de bytes }
   SetLength(Result, Size);
   { On déplace la structure dans le tableau }
   Move(Struct, Result[0], Size);
  end;
end;

{ Seulement pour Delphi > 2007 }
type
  TBytes = array of byte;
  PMyRecord = ^TMyRecord;
  TMyRecord = record
    A, B : LongWord;
    C, D : boolean;
    class operator Implicit(a: TMyRecord): TBytes;
    class operator Implicit(a: TBytes): TMyRecord;
  end;
const
  SizeOfMyRecord = SizeOf(TMyRecord);

class operator TMyRecord.Implicit(a: TMyRecord): TBytes;
begin
  SetLength(result, SizeOfMyRecord);
  Move(a, result, SizeOfMyRecord);
end;
class operator TMyRecord.Implicit(a: TBytes): TMyRecord;
var L : integer;
begin
  L := Length(a);
  if L > SizeOfMyRecord then
    L := SizeOfMyRecord;
  Move(a, result, L);
end;