F# 从二进制数据解析消息

以下是一个示例代码，演示了如何使用F#解析二进制数据消息：

open System
open System.IO
open System.Runtime.InteropServices

// 定义消息结构
[<StructLayout(LayoutKind.Sequential, Pack = 1)>]
type Message =
    val mutable MessageType : byte
    val mutable Data : byte

// 从二进制数据解析消息
let parseMessage (bytes : byte[]) : Message =
    if bytes.Length < Marshal.SizeOf<Message>() then
        failwith "Invalid data length"

    let handle = GCHandle.Alloc(bytes, GCHandleType.Pinned)
    let message = Marshal.PtrToStructure(handle.AddrOfPinnedObject(), typeof<Message>) :?> Message
    handle.Free()

    message

// 示例用法
let data = [| 0x01uy; 0xFFuy |] // 二进制数据
let message = parseMessage data

printfn "MessageType: %d" message.MessageType
printfn "Data: %d" message.Data

上述代码首先定义了一个Message结构来表示消息，结构中包含了MessageType和Data两个字段。

然后，定义了parseMessage函数来解析二进制数据为Message类型。该函数首先检查数据长度是否足够，然后使用GCHandle将二进制数据固定在内存中，再使用Marshal.PtrToStructure将内存中的数据复制到Message结构中，并释放GCHandle。

最后，使用示例数据调用parseMessage函数，并输出解析出的消息字段。

注意：上述示例代码假设二进制数据按照Message结构的字节顺序进行排列，且仅支持Little-Endian字节序。如果需要支持Big-Endian字节序，可以使用BitConverter类进行字节序转换。