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

最新推荐文章于 2024-08-26 10:32:42 发布

转载最新推荐文章于 2024-08-26 10:32:42 发布 · 133 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/archive/2010/11/26/1888298.html

文章标签：

#数据库

本文详细介绍了在Delphi中如何使用TDataBlock和TDataBlockInterpreter类来处理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 压缩一下，可能会更节省空间