求方法(80分)

有一个表Table1，其中有两个字段id(integer型), zs_image(blob型)
我将流中的数据用下面的方法送入字段zs_image[通过控件query1]
var
ms1 : TMemorystream;
ss1 : tstringstream;
begin
.
.
.
//假设ms1, ss1中已经有数据了
//保存数据
Query1.close;
Query1.SQL.clear;
sql_string:='insert into ykcertificate (zs_image,id) Valueszs_image,:id)'';
Query1.sql.Add(sql_string);
Query1.ParamByName('id').asinteger:=5;
//Query1.ParamByName('zs_image').ASBlob:=ss1.DataString ; //方法1 将ss1存入数据库 Bolb字段'zs_image'
//Query1.ParamByName('zs_image').LoadFromStream(ms1,ftBlob);//方法2 将ms1存入数据库 Bolb字段'zs_image'
query1.ParamByName ('zs_image').setblobdata(ms1.Memory ,ms1.Size );//方法3 将ms1存入数据库 Bolb字段'zs_image'

// query1.Prepare;
query1.ExecSQL;
求[通过控件query1、table1]有几种方法将字段zs_image中数据读出送入流ms1中
谢绝不直接回答。

wait...

是interbase数据库，不知为什么没人回答？
难道是标题名不对？

不就是 SaveToStream

Pipi请你按照上面的程序写一个好使例子

>>

你是来招聘的吗
image1.Picture.Bitmap.Assign(TBlobField(Query1.FieldByName('zs_image')));

TBlobField(Query1.FieldByName('zs_image')).SaveToStream(ms1);

ss1.WriteString(Query1.FieldByName('zs_image').AsString;

果然笑傲江湖