高分悬赏。。。。。。。。。。

[you_99]

我用二进制将word文件存入数据库(sql server2000）image字段类型中。
怎样取出，不经过硬盘对字段直接进行操作，并显示在TOLECONTAINER控件中。

[chechy]

var
a: TBlobStream;

a := TBlobStream.Create(TBlobField(query1.FieldByName('Image'), bmRead);
oleContainer1.LoadFromStream(a);
a.Free;

[you_99]

我式过了。
提示ole err:80030050

[chechy]

你用的是什么DataSet，如果是ADO控件，需要修改一下：
var
a: TStream;

a := TADOBlobStream.Create(TBlobField(adoquery1.FieldByName('Image'), bmRead);
oleContainer1.LoadFromStream(a);
a.Free;

[chechy]

你用的是什么DataSet，如果是ADO控件，需要修改一下：
var
a: TStream;

a := TADOBlobStream.Create(TBlobField(adoquery1.FieldByName('Image'), bmRead);
oleContainer1.LoadFromStream(a);
a.Free;

[you_99]

我用的是bde
不行啊，E-mail可以给我吗？

[Liusp]

sc

[wwwwwwww]

var strstream:Tmemorystream;
begin
OleContainer1.DestroyObject;
strstream := Tmemorystream.Create;

query2.Close;
query2.sql.clear;
query2.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(lwid)
+ ' and kzm = "doc"');
query2.open ;
query2.First;

Tblobfield(query2.fieldbyname('qw')).savetostream(strstream);
strstream.position:=0;
OleContainer1.loadfromstream(strstream);
//olecontainer1.Doverb(ovShow);
strstream.free;
end;
end;

[you_99]

还是OLE Error

[zx_wang]

var
mem: TmemoryStream;
begin
mem := TMemeory.Create;
try
Tblobfield(query1.fieldbyname('word')).savetostream(mem);
OleContainer1.loadfromstream(mem);
finally
mem.Free;
end;

[zx_wang]

对不器，优点差别

var
mem: TmemoryStream;
begin
mem := TMemeory.Create;
try
Tblobfield(query1.fieldbyname('word')).savetostream(mem);
mem.Position := 0;
OleContainer1.loadfromstream(mem);
finally
mem.Free;
end;