把图片保存到image字段中
var myfilestream:tfilestream;
myblob:tblobfield;
begin
adoquery1.edit;
picturepath:='c:/a.bmp';
myfilestream:=tfilestream.Create(picturepath,fmopenread);
myblob:=tblobfield(adoquery1.FieldByName('Photo'));
myblob.LoadFromStream(myfilestream);
myfilestream.Free;
adoquery1.Post;
把字段中的图片读出到image控件中
Image1.Picture.bitmap.assign(tblobfield(adoquery1.fieldbyname('Photo')));