Delphi中SQL Server WKB转多边形对象失败问题求助

核心问题：错误的WKB获取方式 #

你用FieldByName('Geom').AsString读取WKB是关键错误——WKB是二进制数据，并非字符串类型。直接用AsString会把二进制字节序列转成文本编码（如ANSI/UTF-8），彻底破坏原始二进制结构，导致后续解析时几何类型、环数、点数全部失效。

正确的WKB读取方式 #

从SQL Server读取WKB时，必须直接获取二进制流，而非转成字符串：

var
  WKBStream: TMemoryStream;
  WKBData: TBytes;
begin
  // 方式1：通过TBlobField读取二进制数据
  if FieldByName('Geom') is TBlobField then
  begin
    WKBStream := TMemoryStream.Create;
    try
      TBlobField(FieldByName('Geom')).SaveToStream(WKBStream);
      WKBStream.Position := 0;
      SetLength(WKBData, WKBStream.Size);
      WKBStream.ReadBuffer(WKBData[0], WKBStream.Size);
      // 此处使用WKBData进行后续解析
    finally
      WKBStream.Free;
    end;
  end;

  // 方式2：直接获取字段的二进制内容（部分Delphi版本支持）
  WKBData := FieldByName('Geom').AsBytes;
end;

解析WKB的关键注意事项 #

1. 字节序判断：WKB的第一个字节是字节序标识（0=大端，1=小端），解析所有多字节数值（类型、环数、点数、坐标）时必须严格按照该字节序处理，不能直接按主机字节序读取。
2. 几何类型编码：SQL Server的WKB几何类型遵循OGC标准，类型值为整数（例如3代表Polygon），需按字节序转换后再判断类型。
3. 多边形结构解析：Polygon类型的WKB结构为：
   • 字节序（1字节）
   • 几何类型（4字节）
   • 环数（4字节）
   • 每个环的点数（4字节） + 环的坐标对（每个坐标为8字节双精度，X/Y顺序）

调试建议 #

• 拿到正确的WKB二进制后，先输出前几个字节的十六进制值，和SQL Server用STAsBinary()输出的原始二进制对比，确认读取内容一致。
• 解析时逐字节处理，先验证字节序和几何类型值是否正确，再逐步解析环数和点数。

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