delphi:给数据库通讯贴图片

来源：百度知道 编辑：UC知道 时间：2024/06/22 01:26:24
我用DELPHI做了一个小通讯录，有个DBImage要贴上照片的．实现效果是用一个BUTTON控制，点击后可以查找要贴的照片，并可以保存．
代码及其方法告诉我即可．
答案满意者加10分．

读图片和这个差不多．
//保存图片
procedure TForm1.Button2Click(Sender: TObject);
var
strm: TMemoryStream;
myjpeg: TJPEGImage;
begin
strm := TMemoryStream.Create;
myjpeg := TJPEGImage.Create;
myjpeg.Assign(image1.Picture.Graphic);
myjpeg.SaveToStream(strm);
strm.Position := 0;
tblobfield(adotable1.FieldByName('img1')).LoadFromStream(strm);
strm.Free;
end;
end;
adotable1.Post;
ShowMessage('保存图片成功！');
end
else
ShowMessage('保存图片失败！');
end;

数据库中定义一个大字段（access数据库用“OLE 对象”，sql下用image类型）用来存放图片，程序中的dbimage控件与该字段对应，在程序界面中放置一个图片选择对话框，增加一个“增加图片”按钮，按钮事件如
下：
if OpenPictureDialog1.Execute then
begin
dbimage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

这样就可以把图片放置到dbimage1上，保存记录的同时，该图片被保存在数据库