delphi 数据库存取图片

shangkaixiong 2010-12-23 03:05:01

delphi 中怎么把图片存进数据库存进的书数据流还有怎么去出来求代码急急

...全文

139 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

wuiaoren05 2010-12-26

打赏
举报

zkroy36正解

hunter2120 2010-12-26

打赏
举报

上面已经很详细了多看书搞清楚基本概念别不懂就马上问人

shangkaixiong 2010-12-23

打赏
举报

给个完整的代码好吗大哥们

shangkaixiong 2010-12-23

打赏
举报

这是存呢还是取啊

zkroy36 2010-12-23

打赏
举报



  function (AStream:TStream):boolean;

  begin

  qry1.close;

  qry1.SQL.text :='Select id,ima from tupian';

  qry1.Open;

  qry1.Append;

  qry1.fieldByName('id').asinteger :=1;

  TBlobField(qry1.FieldByName('xxxx')).LoadFromStream(AStream);

  qry1.post;

  end;

shangkaixiong 2010-12-23

打赏
举报

插入的 sql语句怎么写啊 insert into (id,ima) tupian values(2,image1.Picture) 不对啊
这个图片应该插入什么啊

shangkaixiong 2010-12-23

打赏
举报

大哥再具体些好吗我不会啊

shangkaixiong 2010-12-23

打赏
举报

[Error] Unit1.pas(45): Undeclared identifier: 'savetostream' 这是什么错啊

zhx_2008 2010-12-23

打赏
举报

存：
var
picstream:tadoblobstream;
begin
qry1.edit;
picstream:=tadoblobstream.Create(tblobfield(qry1.fieldbyname('p')),bmWrite);
begin
picstream.LoadFromFile('c:\1.bmp');
picstream.Position:=0;
qry1.edit;
tblobfield(qry1.fieldbyname('p')).loadfromstream(picstream);
qry1.post;
end;
读：
img1.Picture.Assign(qry1.fieldbyname('p')) ;

风之谷 2010-12-23

打赏
举报

Adoquery查询数据集open后；

插入数据时可以adoquery.append;

adocommand是执行sql语句的

adoquery.sql.text:='selecte * from table'

adoquery.open;
adoquery.append;

shangkaixiong 2010-12-23

打赏
举报

大哥能再具体些吗？

shangkaixiong 2010-12-23

打赏
举报

插入不是用的adocommand吗怎么用 adoquery啊那应该怎么写插入呢

shangkaixiong 2010-12-23

打赏
举报

哦我试试谢谢

风之谷 2010-12-23

打赏
举报

读的话
Str:=TMemoryStream.Create;
TBlobField(Adoquery.FieldByName('xxxx')).SaveToStream(Str);//savetofile('d:\xxx.bmp');

img1.picture.bitmap.loadfromstream(Str);

风之谷 2010-12-23

打赏
举报

adoquery.append;
Str:=TMemoryStream.Create;
Img1.PIcture.savetostream(Str);
TBlobField(Adoquery.FieldByName('xxxx')).LoadFromStream(Str);//
//loadfromfile('D:\XXXXX.Jpg');
Adoquery.post;