ACCESS存储二进制图片问题?
我有个源文件,里面有几张图片是用OLE添加的,我想再添加几张,可为什么我用OLE添加之后显示的总是“包”而不是我想要的“二进制数据”请达人指点多谢了!!!(有人说是OLE...
我有个源文件,里面有几张图片是用OLE添加的,我想再添加几张,可为什么我用OLE添加之后显示的总是“包”而不是我想要的“二进制数据” 请达人指点 多谢了!!!
(有人说是OLE注册问题,我也不懂啊)最好告诉我把图片存入ACCESS中的具体方法 谢谢!!!
达人能解释楼下这段代码具体怎么应用吗 小菜不明白啊 展开
(有人说是OLE注册问题,我也不懂啊)最好告诉我把图片存入ACCESS中的具体方法 谢谢!!!
达人能解释楼下这段代码具体怎么应用吗 小菜不明白啊 展开
1个回答
展开全部
存入
var
Field1:TBlobField;
begin
.................
qzybody.Append;
qzybody.FieldByName('object_id').Value:=qzy.FieldByName('object_id').Value;
Field1:=TBlobField(qzybody.Fieldbyname('object_body'));
Field1.LoadFromFile(filename);
qzybody.Post;
..........
end
取出大字段
var
Field1:TBlobField;
filename:string;
begin
Field1:=TBlobField(qzybody.Fieldbyname('object_body'));
filename:=dmPublic.dqc.File_CreateTempFile(qzy.Fieldbyname('object_name').AsString);
Field1.SaveToFile(filename);
end;
lxl lxlbody 两个表,主从结构,后者有大字段
这是delphi程序写的代码。qzybody.Fieldbyname('object_body')是数据库中的一个ole字段。转化为delphi定义的大字段(TBlobField)后保存到磁盘或者从磁盘读。
var
Field1:TBlobField;
begin
.................
qzybody.Append;
qzybody.FieldByName('object_id').Value:=qzy.FieldByName('object_id').Value;
Field1:=TBlobField(qzybody.Fieldbyname('object_body'));
Field1.LoadFromFile(filename);
qzybody.Post;
..........
end
取出大字段
var
Field1:TBlobField;
filename:string;
begin
Field1:=TBlobField(qzybody.Fieldbyname('object_body'));
filename:=dmPublic.dqc.File_CreateTempFile(qzy.Fieldbyname('object_name').AsString);
Field1.SaveToFile(filename);
end;
lxl lxlbody 两个表,主从结构,后者有大字段
这是delphi程序写的代码。qzybody.Fieldbyname('object_body')是数据库中的一个ole字段。转化为delphi定义的大字段(TBlobField)后保存到磁盘或者从磁盘读。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询