(1)图像( .bmp文件)打开的处理。
procedureTForm1.pictopenbtnClick(Sender:TObject);
beginopendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end;
(2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用assing()函数传递到相应数据库中保存。具体程序如下:
procedureTform1.Savebtnclick(sender:TObject);
vargraphic1:TGraphic;
begin
graphic1:=TGraphic.Create;
graphic1.loadfromfile(opendialog1.filename);
ADOtable1.insert;
ADOtable1.fieldbyname(′name′).asstring:=edit1.text;
ADOtable1.fieldbyname(′telephon′).asstring:=edit2.text;
ADOtable1.fieldbyname(′address′).asfloat:=(edit3.text);
ADOtable1.fieldbyname(′zip′).asfloat:=(edit4.text);
ADOtable1.fields[4].assign(graphic1);
ADOtable1.post;
graphic1.free;
end;
二、图像数据的读取
TDBImage只要将datafield属性设置为其相对应的域;
我打字打得很累
分就给我吧