如何把Variant存入数据库中，然后再读出来呢？

http://www.delphibbs.com/delphibbs/dispq.asp?LID=3331412

来自：lich, 时间：2006-1-17 12:59:27, ID：3331615 | 编辑
Midas 中有相关的代码  
来自：lich, 时间：2006-1-17 13:08:26, ID：3331624 | 编辑
使用  SConnect.pas 中的
TDataBlock
和
TDataBlockInterpreter  
来自：dujingwei, 时间：2006-1-17 15:18:00, ID：3331804
能具体些吗？  
来自：lich, 时间：2006-1-18 10:13:45, ID：3332636 | 编辑
TDataBlock 封装了数据块，也可以看作是字节数组
而 TDataBlockInterpreter 则可以将 Variant 写入这个数据块
或者从这个数据块中读取
而对你来说，从 TDataBlock 再写入数据库或从数据库中读取
以及从 Stream 中读取或写入，都是很容易的事情
来自：lich, 时间：2006-1-18 12:19:11, ID：3332730 | 编辑
因为 TDataBlockInterpreter 的 ReadVariant 和 WriteVariant 都声明为私有的方法
所以需要对 SConnect 做一点小小的改动
打开 SConnect.pas 另存到当前目录下
将 TDataBlockInterpreter 开头的 private  改为 public
至于调用的方法如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  m, n: Variant;
  da: IDataBlock;
  di: TDataBlockInterpreter;
  fs: TFileStream;
  vs: TVarFlags;
begin
  m := '1234gfsadgfds';
  m := VarArrayCreate([0, 4], varVariant);
  m[0] := 'faslfda';
  m[2] := 'fjlas'+'_32423';
  da := TDataBlock.Create as IDataBlock;
  di := TDataBlockInterpreter.Create(nil, '');
  di.WriteVariant(m, da);
  //将 Variant 写入文件，和写入数据库类似
  fs := TFileStream.Create('var_data.dat', fmCreate);
  fs.CopyFrom(da.Stream, da.Size);
  FreeAndNil(fs);
  //从文件中读取
  fs := TFileStream.Create('var_data.dat', fmOpenRead);
  da.Clear;
  da.Stream.CopyFrom(fs, fs.Size);
  FreeAndNil(fs);
  //还原
  n := di.ReadVariant(vs, da);
  ShowMessage(n[2] + '*' + n[0]);
end;  
来自：dujingwei, 时间：2006-1-18 12:05:54, ID：3332898
多人接受答案了。  
来自：lich, 时间：2006-1-18 12:18:36, ID：3332911 | 编辑
可以再用 zlib 压缩一下， 可能会更节省空间