procedure TForm1.savebuttonClick(Sender: TObject); var picstream:tadoblobstream; begin adoquery1.edit; picstream:=tadoblobstream.Create(tblobfield(adoquery1.fields[1]),bmWrite); if form1.opendialog1.execute then begin picstream.LoadFromFile(opendialog1.filename); picstream.Position:=0; adoquery1.edit; tblobfield(adoquery1.Fields[1]).loadfromstream(picstream); adoquery1.post; end; end;
var
picstream:tadoblobstream;
begin
adoquery1.edit;
picstream:=tadoblobstream.Create(tblobfield(adoquery1.fields[1]),bmWrite);
if form1.opendialog1.execute then
begin
picstream.LoadFromFile(opendialog1.filename);
picstream.Position:=0;
adoquery1.edit;
tblobfield(adoquery1.Fields[1]).loadfromstream(picstream);
adoquery1.post;
end;
end;
如果你希望用数据库来保存图像等流文件,可以考虑用SQL/Oracle。
但数据多的时候Access会很慢的
小的话,
可以用BLOB字段
打开一张图片的,几万张图片七八百M数据库。速度一点也不慢,