如何将TADOBlobStream改写为ZEOS适配类以实现ADO到ZEOS迁移？

当ADO（比如DBGo）服务停止，或者需要把基于ADO的Windows应用迁移到UNIX环境又不想重写整个应用时，将Data.Win.ADODB单元里的ADO类映射为ZEOS的对应类是非常实用的方案——比如TADOConnection对应TZConnection，TADOTable、TADOQuery这类数据集组件也有直接的ZEOS替代。不过目前没有现成的适配类对应TADOBlobStream，这里分享一个完整的转换实现方案。

核心思路：包装ZEOS的TZBlobStream #

ZEOS本身提供了TZBlobStream来处理Blob数据，我们只需要创建一个适配类，让它的接口和TADOBlobStream完全对齐，这样原有代码几乎不需要修改就能直接替换使用。

完整适配类实现 #

下面是一个Delphi风格的适配类，它继承自TStream，内部封装TZBlobStream，并实现TADOBlobStream的核心方法和属性：

type
  TZADOBlobStream = class(TStream)
  private
    FBlobStream: TZBlobStream;
    FField: TField;
    FMode: TBlobStreamMode;
    function GetPosition: Int64;
    procedure SetPosition(const Value: Int64);
    function GetSize: Int64;
  public
    constructor Create(AField: TField; Mode: TBlobStreamMode);
    destructor Destroy; override;
    function Read(var Buffer; Count: Longint): Longint; override;
    function Write(const Buffer; Count: Longint): Longint; override;
    function Seek(Offset: Longint; Origin: Word): Longint; override;
    // 可选：添加TADOBlobStream常用的快捷方法
    procedure SaveToFile(const FileName: string);
    procedure LoadFromFile(const FileName: string);
    
    property Position: Int64 read GetPosition write SetPosition;
    property Size: Int64 read GetSize;
  end;

constructor TZADOBlobStream.Create(AField: TField; Mode: TBlobStreamMode);
var
  ZField: TZBlobField;
  ZMode: TBlobStreamMode;
begin
  inherited Create;
  FField := AField;
  FMode := Mode;
  
  // 映射TADOBlobStream的模式到ZEOS的对应模式
  case Mode of
    bmRead: ZMode := bmRead;
    bmWrite: ZMode := bmWrite;
    bmReadWrite: ZMode := bmReadWrite;
  end;
  
  // 确保传入的字段是ZEOS的Blob字段
  if not (AField is TZBlobField) then
    raise Exception.Create('指定字段必须是ZEOS Blob类型字段');
    
  ZField := TZBlobField(AField);
  FBlobStream := ZField.CreateBlobStream(ZMode);
end;

destructor TZADOBlobStream.Destroy;
begin
  FBlobStream.Free;
  inherited;
end;

function TZADOBlobStream.Read(var Buffer; Count: Longint): Longint;
begin
  Result := FBlobStream.Read(Buffer, Count);
end;

function TZADOBlobStream.Write(const Buffer; Count: Longint): Longint;
begin
  Result := FBlobStream.Write(Buffer, Count);
end;

function TZADOBlobStream.Seek(Offset: Longint; Origin: Word): Longint;
begin
  Result := FBlobStream.Seek(Offset, Origin);
end;

function TZADOBlobStream.GetPosition: Int64;
begin
  Result := FBlobStream.Position;
end;

procedure TZADOBlobStream.SetPosition(const Value: Int64);
begin
  FBlobStream.Position := Value;
end;

function TZADOBlobStream.GetSize: Int64;
begin
  Result := FBlobStream.Size;
end;

procedure TZADOBlobStream.SaveToFile(const FileName: string);
begin
  FBlobStream.SaveToFile(FileName);
end;

procedure TZADOBlobStream.LoadFromFile(const FileName: string);
begin
  FBlobStream.LoadFromFile(FileName);
end;

替换原有代码的方式 #

原来使用TADOBlobStream的代码，只需要替换类名，同时确保字段来自ZEOS的数据集组件（比如TZQuery、TZTable）即可：

原有ADO代码：

var
  BlobStream: TADOBlobStream;
begin
  BlobStream := TADOBlobStream.Create(ADOQuery1.FieldByName('MyBlobField'), bmRead);
  try
    // 读取Blob内容到内存或文件
    BlobStream.SaveToFile('C:\temp\blob_data.bin');
  finally
    BlobStream.Free;
  end;
end;

替换为ZEOS适配代码：

var
  BlobStream: TZADOBlobStream;
begin
  BlobStream := TZADOBlobStream.Create(ZQuery1.FieldByName('MyBlobField'), bmRead);
  try
    // 业务逻辑完全不变
    BlobStream.SaveToFile('/tmp/blob_data.bin'); // 适配UNIX路径
  finally
    BlobStream.Free;
  end;
end;

注意事项 #

1. 确保ZEOS组件已经正确配置，数据库连接字符串、驱动类型（比如MySQL、PostgreSQL等）都设置正确。
2. 如果原有代码使用了TADOBlobStream的其他小众方法，可以在适配类中继续添加对应的封装实现，保持接口一致性。
3. 测试时要覆盖Blob的读写、大小获取、位置跳转等核心场景，确保和原有ADO行为一致。

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