菜鸟的提问:怎么把图象存进数据库

Question

老师要求作得 唉大家都知道当学生的痛苦啊
菜鸟的提问:怎么把图象存进数据库怎么对于图象文本段要能查的到,在dbgrid显示
图象文件字段用鼠标双击后可弹出一窗体怎么实现当然主要事想知道怎么把图象存储进数据库

Answer 1

procedure TForm1.Button1Click(Sender:TObject);
var
  bmp:TBitmap;
begin
bmp:=TBitmap.Create;
bmp.assign(Image1.Picture.Bitmap);
Table1.append;
table1.fieldbyname('name').asstring:=edit1.text;
table1.fieldbyname('telephone').asstring:=edit2.text;
table1.fieldbyname('address').asstring:=edit3.text;
table1.fieldbyname('zip').asstring:=edit4.text;
table1.fields[4].assign(bmp);
table1.post;
bmp.free;
end;
有问题请发信息到我的E-mail:[email protected]