통신을 할때... 패킷의 규격을 정하고
이 규격에 맞게 구조체를 만든다음,
소켓으로 구조체를 던지고 받는다면 참 편리할 것이다.
다만... 비주얼베이직의 경우에는 이 구조체라는 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 SubEnd ModuleStructure2Bytes(
[구조체], &ref
[바이트배열])
// 바이트배열을 구조체에 담을때...Bytes2Structure(
[바이트배열], &ref
[구조체])
최근 덧글