Delphi 11 FMX读取Win32 10字节Extended及跨平台数据一致性方案

安全阿岳

2026-7-2

10字节Extended类型读取与转换实现

由于原文件中的10字节Extended数据未按8字节对齐，需通过逐字节读取+结构转换的方式处理，结合Delphi 11提供的TExtended80Rec和TExtendedHelper可完成转换：

逐字节读取数据：先将文件中的10字节数据读取到字节数组中，避免直接读取到结构导致的对齐错误。
映射到80位扩展浮点数结构：将字节数组复制到TExtended80Rec（该结构对应10字节的80位扩展浮点数格式）。
转换为8字节Double：利用TExtendedHelper.ToDouble方法完成类型转换，该方法会自动处理精度损失，且在Win64、macOS等不支持10字节Extended的平台上也能正常工作。

示例代码：

uses
  System.Classes, System.SysUtils, System.Math;

procedure ReadExtended10ToDouble(const FilePath: string; out OutDouble: Double);
var
  FileStream: TFileStream;
  ExtBytes: array[0..9] of Byte;
  Ext80Rec: TExtended80Rec;
begin
  FileStream := TFileStream.Create(FilePath, fmOpenRead or fmShareDenyWrite);
  try
    // 读取10字节的Extended数据（需确保当前文件指针位置正确）
    FileStream.ReadBuffer(ExtBytes, SizeOf(ExtBytes));
    // 将字节数组复制到TExtended80Rec结构
    Move(ExtBytes[0], Ext80Rec, SizeOf(TExtended80Rec));
    // 转换为Double类型（接受精度损失）
    OutDouble := TExtendedHelper.ToDouble(Ext80Rec);
  finally
    FileStream.Free;
  end;
end;

注意事项：

原文件由Win32 Delphi生成，采用小端字节序，TExtended80Rec在Delphi各平台上均按小端解析，因此无需额外处理字节序；若后续在大端平台读取，需先反转字节数组顺序。
转换过程会损失部分精度，若业务对精度要求极高，需评估是否接受该损失。

跨平台数据类型一致性方案

要实现Win32、Win64、macOS、macOS ARM及未来Linux平台的文件互导，需从类型选择、结构定义、字节序三个层面规范：

使用固定大小的基础类型：
放弃Delphi平台相关的类型（如Integer、Longint），改用明确字节大小的类型：
- 整数：Int8/UInt8（1字节）、Int16/UInt16（2字节）、Int32/UInt32（4字节）、Int64/UInt64（8字节）
- 浮点数：统一使用Double（8字节，IEEE 754标准，全平台支持），避免使用Extended（平台差异极大）；若需精确小数，可使用TDecimal或自定义BCD类型。
强制结构字节对齐：
定义自定义数据结构时，添加packed关键字，确保结构在所有平台上的字节布局完全一致，避免因默认对齐规则导致的字节填充差异。示例：
```
type
  TMyData = packed record
    ID: UInt32;
    Value: Double;
    Status: UInt8;
  end;
```
统一字节序：
写入文件时将数据转换为统一字节序（推荐大端序，即网络字节序），读取时再转换回主机字节序。可借助System.Endian单元的工具函数：
- 小端转大端：LEtoN系列函数（如LEtoN(Int32)）
- 大端转小端：NtoLE系列函数
可选：使用跨平台序列化框架：
若手动处理字节过于繁琐，可采用成熟的跨平台序列化方案，比如Protocol Buffers（Protobuf）或Delphi自带的REST.Json（需注意JSON的类型映射一致性），这类框架会自动处理平台差异，确保序列化后的字节流或文本可跨平台解析。

内容的提问来源于stack exchange，提问作者Cameron