delphi 数据库存取图片

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

Adoquery查询数据集open后；
插入数据时可以adoquery.append;adocommand是执行sql语句的adoquery.sql.text:='selecte * from table' adoquery.open;
adoquery.append;

Answer 5

存：
  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')) ;

Answer 6

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

Answer 7

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

Answer 8

  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;