数据库中的图片数据怎样在Image中显示
procedure TSpczhForm.SpeedButton1Click(Sender: TObject);
begin
OpenPictureDialog1.Execute;
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;
procedure TSpczhForm.SaveSBClick(Sender: TObject);
var
Graphic1:TImage;
begin
Graphic1 := TImage.Create(self);
Graphic1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
FieldByName('sptp').Assign(Graphic1.Picture);
Graphic1.Free;
end;
以上是我往数据库中添加图片的代码,不知有没有更好的办法。
现在我想把它反过来,当单击DBGrid中某一条记录时,把数据库中的图片数据在Image控件中显示出来以便可以进行修改操作,我现在脑子已经一片混乱,希望各位仁兄指点一二!小弟不胜感激!!!
数据库中的图片数据怎样在Image中显示
最新推荐文章于 2023-03-31 19:36:02 发布