代码如下:用的是Access的数据库,字段类型为Ole的
var
a:OleVariant;
begin
a:=adodataset1.fieldbyname('pic').AsVariant;
adodataset1.Edit;
MetaDraw1.SavePicture(a,PIC_PICTURE,PICTYPE_METAFILE);
adodataset1.Post;
end;
var
a:OleVariant;
begin
a:=adodataset1.fieldbyname('pic').AsVariant;
adodataset1.Edit;
MetaDraw1.SavePicture(a,PIC_PICTURE,PICTYPE_METAFILE);
adodataset1.Post;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货