Visual Basic 2008 : 구조체 - 바이트배열 상호변환

통신을 할때... 패킷의 규격을 정하고
이 규격에 맞게 구조체를 만든다음,
소켓으로 구조체를 던지고 받는다면 참 편리할 것이다.
다만... 비주얼베이직의 경우에는 이 구조체라는 Object 를 바로 던지고 받고 할 수 없다는 문제가 있다.
VB6 의 경우라면 API함수를 통해 구조체의 메모리포인터를 가지고 바이트배열 변수에 복사해버리는 방법이 있었지만,
VB .NET 의 경우에는 구조체 변수의 메모리포인터를 읽을 도리가 없으니...
하지만... 프레임워크의 도움을 받으면 손쉽게 가능하단다...
그래서... 찌질한 소스를 짜 보았다...
제작까지 30분... 후덜덜...


모듈을 하나 만들고... 그 안에 코딩한다...


Imports System.Runtime.InteropServices  ' Marshal 함수가 들어있는 프레임워크 구성원

Module Module1
    ' 패킷 구조체
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure Packet
        Dim SOH As Byte         ' Start of Header : 0x01. Header의 진입점 선언.
        Dim pNo As Uint32       ' 패킷의 순번. 4,294,967,295번 초과시 0으로 카운트리셋.
        Dim pSize As UInt16     ' 실 데이터(Bydy부분)의 데이터 길이. 단위는 Bytes.
        Dim pEnc As Byte        ' 데이터의 암호화종류 : 0x00-None 0x01-XOR 0x02-BlowFish 0x03-Base64
        Dim pType As UInt16     ' 패킷타입. 시스템메시지, 채팅메시지... 등등...
        Dim SOT As Byte         ' Start of Text. 0x02. Body의 진입점 선언.
        <MarshalAs(UnmanagedType.ByValArray, SizeConst:=65500)> _
        Dim Body() As Byte      ' 실제로 처리할 데이터 부분.
        Dim EXT As Byte         ' End of Text. 0x03. 데이터의 종단점 선언.
        Dim EOT As Byte         ' End of Trance. 0x04. 전송의 종단점 선언.
    End Structure

    Public Sub Bytes2Structure(ByVal b As Byte(), ByRef s As Object)
        Dim StructureType As Type = GetType(Packet)
        Dim ibyteIndex As Integer = 0

        Dim iStructSize As Integer = Marshal.SizeOf(StructureType)
        Dim buffer As IntPtr

        If (iStructSize > b.Length) Then
            Exit Sub
        Else
            Buffer = Marshal.AllocHGlobal(iStructSize)
            Marshal.Copy(b, ibyteIndex, buffer, iStructSize)
            s = Marshal.PtrToStructure(buffer, StructureType)
            Marshal.FreeHGlobal(buffer)
        End If
    End Sub

    Public Sub Structure2Bytes(ByVal s As Object, ByRef b As Byte())
        Dim iStructSize As Integer = Marshal.SizeOf(s)
        Dim buffer As IntPtr = Marshal.AllocHGlobal(iStructSize)

        ReDim b(iStructSize - 1)
        Marshal.StructureToPtr(s, buffer, False)
        Marshal.Copy(buffer, b, 0, iStructSize)
        Marshal.FreeHGlobal(buffer)
    End Sub
End Module



사용법은 다음과 같다...

// 구조체를 바이트배열에 담을때...
Structure2Bytes([구조체], &ref[바이트배열])
// 바이트배열을 구조체에 담을때...
Bytes2Structure([바이트배열], &ref[구조체])