database - 德尔福7. 读取包含 WideString 数据的 BLOB 字段

Question

有人可以帮忙吗？我保留了一个旧的 Delphi7 项目，并且遇到了下一个麻烦。如果 BLOB 字段值包含 Unicode 字符串，如何存储它？我试过了：

var
  str: WideString;
begin
  ...
  str := WideString(Fields[1].AsString); - but I get empty string
  ...

  ...
  str := VarToWideStr(Fields[1].AsVariant); - but I get "(BLOB)" result in str varible.
  ...
end;

我的解决方案：代码用法：

...
stream := TMemoryStream.Create;
try
  Fields[1].SaveToStream(stream);
  ss := MemStreamToWStr(stream);
finally
  stream.Destroy;
end;
...

和功能：

function TSnsFrame.MemStreamToWStr(Mstream: TMemoryStream): WideString;
begin
  Mstream.Seek(0, soFromBeginning);
  SetLength(Result, Mstream.size div 2);
  MStream.ReadBuffer(Result[1], Mstream.size);
end;

Answer 1

看看TDataSet.CreateBlobStream()。它返回TStream可用于读取/写入 blob 字段的原始数据的 a。