在ACCESS中的一个表中定义了一个字段是OLE 对象
用来存储一个二进制文件(*.bin)
用下列语句可以保存(但不知道是不是应该这么写)adoquery1.Append ;
adoquery1['temp']:=extractfilename('E:\256.bin');
adoquery1.FieldByName('id').AsString:='v3.0';
adoquery1.SaveToFile('E:\256.bin');如果是对的如何把它取出来赋给一个FILE类型的变量
用来存储一个二进制文件(*.bin)
用下列语句可以保存(但不知道是不是应该这么写)adoquery1.Append ;
adoquery1['temp']:=extractfilename('E:\256.bin');
adoquery1.FieldByName('id').AsString:='v3.0';
adoquery1.SaveToFile('E:\256.bin');如果是对的如何把它取出来赋给一个FILE类型的变量
解决方案 »
- 求用delphi(pascal)脚本写一个用于程序安装时向系统写入一个服务的代码
- QuickBurro中间件 V3.01版本发布
- 关于登陆窗口的问题了,
- 困惑:谁能告诉我IW窗口切换的问题
- 为什么用icmp.dll实现ping不行?具体代码如下,各位牛人,请进入
- Interface not supported?
- 请问高手,一个查询表单当输入条件查询后退出,当第二次进入此表单时,显示的还是刚才查的数据(工程运行未退出)
- 初学者之问,想拿分的人快来哦!!
- 求一个delphi全角转半角的源码
- 请个位老师帮我解决一个问题很急此程序关系到就业编译时出现一个警示框不知道怎么解决。谢谢
- 一个很莱的问题
- 请教Delphi和SQL Server(T-SQL程序设计)结合的问题
var
Stm:TFileStream;Stm:=TFileStream.Create('你的文件名',fmOpenRead);//打开文件读取到流Stm.Position:=0;
TBlobField(Adoquery1.FieldByname('temp')).LoadFromStream(Stm);//存文件流到字段
Stm.Free;
//---------------------------------------------------------------------------
var
Stm:TFileStream;Stm:=TFileStream.Create('你的文件名',fmWrite);//打开文件读取到流Stm.Position:=0;TBlobField(Adoquery1.FieldByname('temp')).SaveToStream(Stm);//取字段内容到文件流
Stm.Free;