4925
社区成员
如何在DELPHI中使用原生ADO，进行存取长二进制数据？
请教各位大虾：
在ORACLE9I中，有一表，其中有一字段为长二进制类型，如何利用原生ADO进行存取？
最好给段DEMO。
谢谢！
在ORACLE9I中，有一表，其中有一字段为长二进制类型，如何利用原生ADO进行存取？
最好给段DEMO。
谢谢！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
hthunter 2003-12-05
SeaWave(NoSound)你的方法效率比较低，因为两次对同一个大容量的数据进行操作（LoadFromFile和Move），用TBlobField的话只需要进行一次操作（LoadFromFile或者LoadFromStream）。
TBlobField(ADODataSet1.FieldByName(sFieldName)).LoadFromFile(sFileName);
//or LoadFromStream，取数据时是SaveToFile或者SaveToStream
TBlobField(ADODataSet1.FieldByName(sFieldName)).LoadFromFile(sFileName);
//or LoadFromStream，取数据时是SaveToFile或者SaveToStream
SeaWave 2003-12-04
用VarArray就行啦，下面这个DEMO把任意文件存进去
var
p: Pointer;
v: Variant;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile('c:\tmp.bin');
v := VarArrayCreate([0,ms.Size-1], varByte);
p := VarArrayLock(v);
try
Move(ms.Memory^, p^, ms.Size);
finally
VarArrayUnlock(v);
end;
finally
ms.Free;
end;
ADOCommand1.CommandText := 'insert into MyTable (MyField) values (:@V)';
ADOCommand1.Parameters.ParamByName('@V').Value := v;
ADOCommand1.Execute;
end;
var
p: Pointer;
v: Variant;
ms: TMemoryStream;
begin
ms := TMemoryStream.Create;
try
ms.LoadFromFile('c:\tmp.bin');
v := VarArrayCreate([0,ms.Size-1], varByte);
p := VarArrayLock(v);
try
Move(ms.Memory^, p^, ms.Size);
finally
VarArrayUnlock(v);
end;
finally
ms.Free;
end;
ADOCommand1.CommandText := 'insert into MyTable (MyField) values (:@V)';
ADOCommand1.Parameters.ParamByName('@V').Value := v;
ADOCommand1.Execute;
end;
cutelocust 2003-12-04
李维的书上讲过，好像是Ado/Mts/COM+什么的,你自己看看吧
hthunter 2003-12-04
不需要用原生ADO也可以进行二进制数据的存取啊，用TBlobField的相关方法就行了
或者你非要用原生ADO的话，可以参考李维写的《DELPHI5数据库开发技术》（不知道我有没有记错书名）
或者你非要用原生ADO的话，可以参考李维写的《DELPHI5数据库开发技术》（不知道我有没有记错书名）
Delphi编写ActiveX控件及程序中嵌入word方案 在创建包括ActiveX程序时，主要的工作就是组件，一个可以自足的在ActiveX网络（现在的网络主要包括 Windows和Mac）中任意运行的程序。这个组件就是ActiveX近控件。ActiveX是Microsoft为抗衡Sun Microsystems的...
delphi 各新版本特性收集 delphi 各新版本特性收集 Delphi XE6新增了一些特性并增强了原有的功能，主要有以下几个方面： IDE（整合开发环境） Internet XML（扩展标记语言） Compiler（编译器） COM/Active X ...
delphi 各版本的特性 delphi 各新版本特性收集 Delphi XE6新增了一些特性并增强了原有的功能，主要有以下几个方面： IDE（整合开发环境） Internet XML（扩展标记语言） Compiler（编译器） COM/Active X Database support...
长长见识,编程语言大赏 这里就梳理一下那些出现过的编程语言,可能不一定都用得到,长长见识就行。当别人说起来的时候至少听说过,不会一脸懵逼。 编程语言会根据编程范式、应用的平台、应用的场景三个维度进行分类,方便大家理解的记忆。 ...
核心概念之二---编程语言（Programming Language） 一种计算机语言让程序员能够准确地定义计算机所需要使用的数据，并精确地定义在不同情况下所应当采取的行动。[1]最早的编程语言是在电脑发明之后产生的，当时是用来控制提花织布机及自动演奏钢琴的动作。在电脑领域...
常用iOS、Mac框架和库及常用中文开发博客 ClassyLiveLayout - ClassyLiveLayout通过结合Classy stylesheets与Masonry一起使用，能够在运行的模拟器中微调Auto Layout约束实时显示效果的工具，Masonry、Classy、ClassyLiveLayout介绍。 Snap - Snap是...
编程语言种类这么多，学过5种以上就是大神！ 编程，是指让计算机为解决某个问题，而使用某种程序语言编写程序代码，并最终得到结果的过程。为了使计算机能够理解人的意图，人类就必须要将需解决的问题的思路、方法、和手段通过计算机能够理解的形式告诉计算机，...
编程语言 在使用web窗体时，你能感受到AAuto这种混合语言带来的巨大方便，较之传统编程语言，AAuto 可以更快更加方便的创建 WEB UI 程序，在AAuto自带的范例中，就有一个多窗口浏览器的范例，仅仅使用了一页300行源码就实现了...
CGI ASP PHP JSP ASP.net 比较 缺陷：在数据量大（１０万以上）的情形下，采纳Ａｃｃｅｓｓ数据库速度要缓，须要采用Ｍｓｓｑｌ数据库。一般邦外Ｗｉｎｄｏｗｓ空间价钱要绝对高面。 鉴别：文件一般以.asp解尾 4、Jsp，Jsp是采取...
JAVA开发全集 //4���创建QName来指定消息中传递数据���� QName ename = new QName(ns,"add","nn");// SOAPBodyElement ele = body.addBodyElement(ename); ele.addChildElement("a").setValue("22"); ...
杂合 无刷新显示即时更新数据两例无刷新显示即时更新数据两例因最近做网站需要用到无刷新数据，所以在网上查了一些资料，无刷新数据的实现无外乎用javascript或xmlhttp或iframe来实现。在网上找到一代码不是不能用就是...
