怎样实现向数据库添加查询图片？

Question

如题！

Answer 1

转贴：
读出、写入借助stream。
写入：
var 
ms：tmemorystream；
begin
  ms:=TmemoryStream.Create；
  ms.Loadfromfile（“1.jpg”）；
 if ms.size>0 then
 begin
   ms.position:=0;
   (ADOqry.fieldbyname('dipicture') as Tblobfield).loadfromstream(ms);
 end ;
end;读出：
 var 
  ms:tstream；
  myjpg:tjpegImage;
begin
  ms:=ADOqry.createblobstream(clientdataset1.fieldbyname('dipicture'),bmread);
if ms.size>0 then
begin
  ms.position:=0;
  myJpg:=tjpegimage.create;
  myJpg.loadFromstream(ms);
  Image1.Picture.assign(myjpg);//在Image1中显示出来
end;
end；

Answer 2

可以想数据库中存如地址，如果直接存图片，也有很多中方法，这样应该可以的
var pic:Tpicture;
begin
pic:=Tpicture.create;
if openpicdia.execute then
begin
pic.loadfromfile(openpicdia.filename);
table1pic.value.assign(pic);
pic.free;
end;
应该就可以了！

Answer 3

to soaringsouth(栈桥捉鳖): 
        ms.position:=0; －－－ 什么意思？to modoffsis(阿里阿多先生)：
        怎么没有图片的位置？

Answer 4

存到数据库
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pjpg.LoadFromFile(F:\JPG.jpg);
pic:=TMemoryStream.Create;
pjpg.SaveToStream(pic);
pic.Position:=0;
TBlobField(dataset.FieldByName('Img')).LoadFromStream(pic);
dataset.post;
pic.Free;
pjpg.free;
end;
从数据库取出
var
pjpg:tjpegimage;
pic:TMemoryStream;
begin
pjpg:=tjpegimage.Create;
pic:=TMemoryStream.Create;
TBlobField(dataset.FieldByName('Img')).savetoStream(pic);
pic.positon:=0;
pjpeg.LoadFromStream(pic);
image.graphi.bmp.assign(pjpeg);
end;end;屡试不爽，可以接贴了！

Answer 5

to soaringsouth(栈桥捉鳖): 
        ms.position:=0; －－－ 什么意思？
//流位置，从0开始，保证完全存入。
to modoffsis(阿里阿多先生)：
        怎么没有图片的位置？
//这段程序图象位置是程序所在路径下的1.jpg

Answer 6

我想存储 gif 的图片要用到什么类？如果我想存储不同格式的图片，那上面的程序还行吗？

Answer 7

楼上的，帮我写下用 TFileStream 怎么存取好吗？

Answer 8

KAO...去下一个DELPHI未证实KUI花宝典..上面有详细的流机制说明..

Answer 9

http://expert.csdn.net/Expert/topic/1805/1805818.xml?temp=.5124933
这里也有说..