我试了没有错误,读取用的也是dbimage
存储用的是
procedure TForm1.Button1Click(Sender: TObject);
var
myfilestream:tfilestream;
myblob:tblobfield;
picturepath:string;
begin
adoquery1.Append ;
picturepath:='d:/skin3.bmp';
adoquery1.Fields[0].AsString :='1';
adoquery1.Fields[1].AsString :='1';
myfilestream:=tfilestream.Create(picturepath,fmopenread);
myblob:=tblobfield(adoquery1.FieldByName('image'));
myblob.LoadFromStream(myfilestream);
myfilestream.Free;
adoquery1.Post;
end;