//存入数据库之前将图片显示出来 procedure TForm4.SpeedButton1Click(Sender: TObject); begin if self.OpenPictureDialog1.Execute then self.Image1.Picture.Bitmap.LoadFromFile(self.OpenPictureDialog1.FileName); end; //存入数据库 var im:Tmemorystream; begin dm.Table2.Open;//bm是一个datamodule dm.Table2.Append; im:=TMemoryStream.Create; form4.Image1.Picture.Bitmap.SaveToStream(im); im.Position:=0; TBlobField(dm.Table2.FieldByName('照片')).LoadFromStream(im); dm.Table2.Post; end; 然后在显示图片界面,加一个dbimage与存图片的数据库关联起来,就可以了
将图片放到数据库中,然后,加上一个dbimage控件,加两个按钮,上一页、下一页,控制数据库中记录的移动,就可以了。
2
不知道,关注
procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
if self.OpenPictureDialog1.Execute then
self.Image1.Picture.Bitmap.LoadFromFile(self.OpenPictureDialog1.FileName);
end;
//存入数据库
var
im:Tmemorystream;
begin
dm.Table2.Open;//bm是一个datamodule
dm.Table2.Append;
im:=TMemoryStream.Create;
form4.Image1.Picture.Bitmap.SaveToStream(im);
im.Position:=0;
TBlobField(dm.Table2.FieldByName('照片')).LoadFromStream(im);
dm.Table2.Post;
end;
然后在显示图片界面,加一个dbimage与存图片的数据库关联起来,就可以了