如何将SQL Server空间列数据在Delphi的TDBGrid中显示为文本

我来给你几个实用的解决方案，都是实际开发中验证过的，能帮你把SQL Server的空间列在TDBGrid里显示成可读的文本（比如WKT格式的几何表达式）：

解决方案1：SQL查询时直接转换（最简单） #

不需要修改Delphi代码，直接在你的ADO查询语句里调用SQL Server空间类型的STAsText()方法，把空间数据转换成文本格式。这样查询结果里会直接多出一个文本列，DBGrid可以直接显示它。

示例SQL语句：

SELECT 
  表中其他列,
  你的空间列名.STAsText() AS 空间文本列
FROM 你的表名

比如你的空间列叫Location，就写成Location.STAsText() AS LocationText，然后把DBGrid里原来的空间列隐藏，新增绑定LocationText的列即可。

解决方案2：使用DataSet计算字段 #

如果不想修改SQL语句，可以给你的TADOQuery（或其他DataSet组件）添加一个计算字段，在代码里把空间列的内容转换成文本：

1. 打开DataSet的字段编辑器（右键DataSet -> Fields Editor），右键点击空白处选择「Add Field...」，字段类型选Calculated，命名比如SpatialDisplayText，类型设为ftString，宽度设为足够大（比如500，根据你的空间数据长度调整）。
2. 给DataSet的OnCalcFields事件添加处理代码：

procedure TYourForm.ADOQuery1CalcFields(DataSet: TDataSet);
var
  SpatialBlob: TBlobField;
  SpatialObj: OleVariant;
begin
  SpatialBlob := DataSet.FieldByName('你的空间列名') as TBlobField;
  if not SpatialBlob.IsNull then
  begin
    // 通过OLE Variant获取空间对象，调用ToString方法得到文本
    SpatialObj := SpatialBlob.Value;
    DataSet.FieldByName('SpatialDisplayText').AsString := SpatialObj.ToString;
  end
  else
    DataSet.FieldByName('SpatialDisplayText').Clear;
end;

3. 在DBGrid里隐藏原来的空间列，显示这个计算字段即可。

解决方案3：自定义DBGrid列绘制 #

如果不想添加额外字段，可以直接重写DBGrid的列绘制逻辑，在绘制空间列的时候把内容转换成文本显示：

给TDBGrid的OnDrawColumnCell事件添加代码：

procedure TYourForm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  SpatialBlob: TBlobField;
  SpatialObj: OleVariant;
  DisplayText: string;
begin
  // 判断当前列是否是空间列
  if Column.FieldName = '你的空间列名' then
  begin
    SpatialBlob := Column.Field as TBlobField;
    if not SpatialBlob.IsNull then
    begin
      SpatialObj := SpatialBlob.Value;
      DisplayText := SpatialObj.ToString;
    end
    else
      DisplayText := '';
    
    // 手动绘制文本
    DBGrid1.Canvas.FillRect(Rect);
    // 可以调整文本位置，避免贴边
    DBGrid1.Canvas.TextOut(Rect.Left + 3, Rect.Top + 2, DisplayText);
  end
  else
  begin
    // 其他列按默认方式绘制
    DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

注意事项 #

• 不管用哪种方法，都要确保你的ADO连接能正确识别SQL Server的空间类型，连接字符串推荐使用SQLOLEDB或MSOLEDBSQL provider。
• 如果空间数据的文本太长，可以设置DBGrid列的WordWrap属性为True，并调整行高来显示完整内容。
• STAsText()和ToString()都能返回WKT格式的文本，如果你需要其他格式（比如GeoJSON），可以调用SQL Server的STAsGeoJSON()方法（SQL Server 2016及以上支持）。

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