Structure vers tableau de byte

Contenu du snippet

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


Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.