不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

如何取出数据库中的image字段的内容

楼主qhf503（和风）2005-01-04 11:43:07 在 Delphi / 数据库相关提问

我把word文档存入SQL数据库中的image字段中,我想把它取出另存为word文档，什么做？？

我是这样存入的

procedure TForm1.ToolButton3Click(Sender: TObject);
var
Stre:TMemoryStream;
begin
Stre:=TMemoryStream.Create ;
OleContainer1.SaveToStream(stre);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from filent');
adoquery1.Open;
with ADOQuery1 do
begin
Append;
fieldbyname('title').Value:=title;
TBlobField(fieldbyname('content')).LoadFromStream(Stre);
Post;
end;
end;

我什么样才能取出？？？？？另存为呢？如c:\123.doc

问题点数：20、回复次数：16Top

1 楼cyf_delphi（风一样）回复于 2005-01-04 13:27:13 得分 2

另存为:
TBlobField(adoquery1.FieldByName('content')).SaveToFile('c:\123.doc');Top

2 楼qhf503（和风）回复于 2005-01-04 14:28:52 得分 0

cyf_delphi(风一样)

这样不行的
出现乱码

这样不行的
出现乱码Top

3 楼qhf503（和风）回复于 2005-01-04 16:43:28 得分 0

upTop

4 楼chengtwn（漠孤烟）回复于 2005-01-04 17:06:36 得分 2

学习一下，关注中ing......Top

5 楼Kshape（C/C++初学者~~~~）回复于 2005-01-04 21:35:37 得分 2

学习一下，关注中ing......

我一般是在image中存图片的
Top

6 楼qhf503（和风）回复于 2005-01-05 10:01:24 得分 0

up
Top

7 楼qhf503（和风）回复于 2005-01-06 07:55:40 得分 0

再UP
我的问题什么没有人知道？？？？？？？？？？？？？？？？？？？？？Top

8 楼cyf_delphi（风一样）回复于 2005-01-06 08:27:40 得分 2

TBlobField(adoquery1.FieldByName('content')).SaveToFile('c:\123.doc');
　　OleContainer1.LoadFromFile('c:\123.doc');
OleContainer1.DoVerb(1);
OleContainer1.Run;
我是这样另存和启动word的.我这里一点问题也没有.Top

9 楼cdsgajxlp（起名很难）回复于 2005-01-06 09:18:01 得分 2

TBlobField(adoquery1.FieldByName('content')).SaveToFile('c:\456.doc');Top

10 楼JonnySun（智者寡言）回复于 2005-01-06 09:40:57 得分 2

關注Top

11 楼myth8860（一点心动）回复于 2005-01-06 13:30:30 得分 2

用ADODataSet，加一条查询语句，select * from filent然后在按钮里面加
TBlobField(ADODataSet1.FieldByName('content')).SaveToFile('c:\456.doc');
就可以了

Top

12 楼qhf503（和风）回复于 2005-01-06 13:35:22 得分 0

cyf_delphi(风一样)
用到olecontainer就没有问题

如果不用直接保存为文件就有问题了

打开时都是乱码

我想可以是我存入数据库时用的是二进制的问题？

可又不知什么解决？
那位能帮我？？？

Top

13 楼aiqikong（艾琦）回复于 2005-01-06 13:55:23 得分 2

Pic: TMemoryStream;

with DataModule1.ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('SELECT * FROM EN_销售组织机构图 where CrediteyesNO='+''''+str_id+'''');
open;
end;
if not (DataModule1.ADOQuery1.FieldByName('销售组织机构图').IsNull) then
begin
Pic:= TMemoryStream.Create;
Pic.Position:= 0;
Tblobfield(DataModule1.ADOQuery1.FieldByName('销售组织机构图')).SaveToStream(Pic);
Pic.SaveToFile(templateName+'销售组织机构图.doc');Top

14 楼qhf503（和风）回复于 2005-01-08 13:21:44 得分 0

我要试试Top

15 楼wyf99（学一点）回复于 2005-01-08 13:28:30 得分 2

祝你好运。
Top

16 楼Kshape（C/C++初学者~~~~）回复于 2005-01-08 13:35:46 得分 2

TBlobField(adoquery1.FieldByName('content')).SaveToFile('c:\456.doc');
Top