如何将文本和图像存放在数据库中，具体代码如何写？

Question

存图象
var  
  myfilestream:Tfilestream;
  myblob:Tblobfield;
  imagename:string;
begin
   myfilestream:=Tfilestream.Create(imagename,fmOpenRead);
   table1.Edit;
   myblob:=Tblobfield(table1.fieldbyname('p_image'));
   myblob.LoadFromStream(myfilestream); 
   table.post;
end;

Answer 1

TBlobField.LoadFromFile;
TBlobField.LoadFromStream;
TBlobField.SaveToFile;
TBlobField.SaveToStream;
看Help

Answer 2

你在数据库里建一个bolb字段.在form1上放一个dbimageadoquery1.append;
dbimage1.loadformfile("c.bmp');
adoquery1.post;

Answer 3

adoquery1.append;
dbimage1.picture.loadformfile("c.bmp');
adoquery1.post;

Answer 4

当然是存放了。如果是存放.jpg格式的文件,就先uses 　jpegdelphi自带的dbimage组件不支持直接.jpg格式的存入，需要通过流的转换来存取，或者是取出，　不过你可以找到组件来帮你解决这个问题,1stclass3000里面有这个dbimage可以存放.jpg格式的文件，　只要设置存放
的图象类型即可，　可以为.bmp, .jpg, ico,在数据最好不要用.bmp格式文件，　同样一张图象，.bmp格式的文件比.jpg
格式的大得多，　图象越多，速度就会越慢。