Delphi中ADO异步执行方式
当ADO开始处理数据后,应用程序必须等到ADO处理完毕之后才可以继续执行。但是除了同步执行方式之外,ADO也提供了异步执行的方式,允许当ADO处理时,应用程序仍然能够先继续执行。而当ADO处理数据完毕之后,ADO会以事件的方式通知应用程序,此时应用程序可以再根据ADO执行的结果来采取相应的动作。使用异步执行方式有许多用途,例如,如果应用程序需要处理花费大量时间的动作,那么ADO可以选择以异步执行方式让ADO在后台执行,而让应用程序继续处理图形用户接口或用户输入的数据。
在ADO中使用异步执行方式非常简单,只需要对ADO数据集的ExecuteOptions属性值进行适当的设定即可。现在就让我们以一实际的范例应用程序来说明如何让ADO以异步的方式来处理数据。
下载
1)在Delphi集成开发环境中关闭所有的项目。
2)建立一个新的应用程序项目,在主窗体中放入TADOConnection对象连接到
数据库。
3)在主窗体中放入TADODataSet组件。设定它的Connection属性值为步骤2)的
TADOConnection,并且在它的CommandText属性值中使用Select*fromADOTestDatas
以取得所有的数据。再设定它的Active属性值为True以打开范例数据表。
4)放入TDataSource组件,设定它的DataSet属性值为步骤3)加入的TADODataSet
组件。
5)放入TDBNavigator和TDBGrid组件,设定它们的DataSource组件为步骤4加
入的TDataSource组件。
6)在主窗体中放入两个TButton组件以及一个TProgressBar组件,并且设定它
的相关属性值。此时主窗体如图3-12所示。
图3-12范例应用程序的主窗体
7)最后在主窗体中放入一个TADOCommand组件。设定它的Connection属性
值为步骤2)的TADOConnection,并且在它的CommandText属性值中使用Select
count(*)fromADOTestDatas以便从ADOTestDatas数据表中取得所有数据的笔数。
8)在主窗体的OnActivate事件处理程序中撰写如下的程序代码:
第3章撰写使用ADO技术的应用系统(二)111
下载
procedureTForm1.FormActivate(Sender:TObject);
var
sRecNo:String;
begin
ProgressBar1.Max:=ADOCommand1.Execute.Fields.Item[0].Value;
sRecNo:=IntToStr(ProgressBar1.Max);
Self.Caption:='共有'+sRecNo+'笔数据';
end;
OnActivate事件处理程序首先执行TADOCmmand的SQL命令,并且从它回传
的暂时Recordset对象中取出ADOTestDatas数据表中所有数据的笔数,然后再指定
给TProgressBar的Max值,最后指定给窗体的Caption属性值。
9)双击窗体中的eoAsyncFetchNonBlocking按钮,并且在它的OnClick事件处
理程序中撰写如下的程序代码:
procedureTForm1.Button2Click(Sender:TObject);
begin
try
ADODataSet1.Active:=False;
ADODataSet1.ExecuteOptions:=[eoAsyncFetchNonBlocking];
finally
lStart:=GetTickCount;
ADODataSet1.Active:=True;
end;
end;
在上面的程序代码中先关闭步骤3)的TADODataSet,再设定它的ExecuteOptions
属性值为使用异步方式来存取数据。最后再打开步骤3)的TADODataSet组件,从
ADOTestDatas数据表中取得数据。
10)双击窗体中的eoAsyncFetch按钮,并且在它的OnClick事件处理程序中撰
写如下的程序代码:
procedureTForm1.Button1Click(Sender:TObject);
begin
try
ADODataSet1.Active:=False;
ADODataSet1.ExecuteOptions:=[eoAsyncFetch];
finally
lStart:=GetTickCount;
112Delphi5.xADO/MTS/COM+高级程序设计篇
下载
ADODataSet1.Active:=True;
end;
end;
在上面的程序代码中先关闭步骤3)的TADODataSet,再设定它的ExecuteOptions
属性值为使用同步方式来存取数据,再打开步骤3)的TADODataSet组件,从
ADOTestDatas数据表中取得数据。
在异步方式中,ADO会以OnFetchProgress事件来通知应用程序ADO还在处理
数据之中,并且以OnFetchComplete事件来通知应用程序ADO已经处理数据完毕了。
程序员可以在这两个事件处理程序中撰写程序代码来处理这两种情形。下面是范
例应用程序在这两个事件处理程序中实现的程序代码。
11)在步骤3)的TADODataSet组件的OnFetchProgress事件处理程序中撰写如下
的程序代码:
procedureTForm1.ADODataSet1FetchProgress(DataSet:TCustomADODataSet;
Progress,MaxProgress:Integer;varEventStatus:TEventStatus);
begin
ProgressBar1.Position:=Progress;
end;
上面的程序代码只是在ADO持续处理数据时不断更新主窗体中TProgressBase
的显示状态。
12)在步骤3)的TADODataSet组件的OnFetchComplete事件处理程序中撰写如
下的程序代码:
procedureTForm1.ADODataSet1FetchComplete(DataSet:TCustomADODataSet;
constError:Error;varEventStatus:TEventStatus);
begin
lEnd:=GetTickCount;
ShowMessage('总共花了'+FloatToStr((lEnd-lStart)/1000.0)+'秒');
end;
上面的程序代码是当ADO处理完数据之后便显示一个对话框,显示ADO处理
数据所花费的时间。
现在请编译并且执行这个范例应用程序。图3-13是以异步的方式来存取
ADOTestDatas这个范例数据表中数据的画面。从图中可以看到,当ADO存取数据
第3章撰写使用ADO技术的应用系统(二)113
下载
时应用程序仍然可以不断地更新主窗体中的TprogressBar。如果使用同步的方式执
行,TProgressBar便无法这样更新状态。此时我们也可以移动主窗体的位置等,可
见应用程序不会因为ADO在存取大量的数据而造成应用程序无法继续工作。
图3-13范例应用程序以异步方式执行的画面
图3-14是当ADO处理数据完毕并且触发OnFetchComplete事件处理程序时显示的
画面。从这两个画面中我们可以看到,当ADO以异步的方式执行时,OnFetchProgress
和OnFetchComplete事件可以帮助程序员取得非常有用的状态信息。
图3-14范例应用程序以异步方式执行的画面
如果你也执行这个范例应用程序,那么可以比较一下当ADO在同步执行模式
和异步执行模式中处理数据时哪一种模式比较有效率。可能你会惊讶地发现异步
异步执行能力
ExecuteOptions
eoAsyncExecute异步执行
eoAsyncFetch异步提取
eoAsyncFetchNonBlocking无阻塞方式异步提取
eoExecuteNoRecords无返回记录执行
onFetchProgressADO执行过程中会调用此事件,直到结束为止,可用于进度条显示
onFetchCompleteADO执行完成后会调用此事件
参考:http://www.cnblogs.com/key-ok/p/3533426.html
Delphi中ADO异步执行方式的更多相关文章
- 深入理解 JS 引擎执行机制(同步执行、异步执行以及同步中的异步执行)
首先明确两点: 1.JS 执行机制是单线程. 2.JS的Event loop是JS的执行机制,深入了解Event loop,就等于深入了解JS引擎的执行. 单线程执行带来什么问题? 在JS执行中都是单 ...
- SpringBoot项目中如何异步执行一个方法
1. SpringBoot上加上开启异步方法注解:@EnableAsync 2. 在需要异步执行的方法上,加上异步方法注解 @Async 3. 测试 5. 测试结果为,访问127.0.0.1:8888 ...
- PHP 异步执行方式
在工作中我们经常遇到一些比较耗时的任务,比如用户注册发送邮件,审核短信通知等功能,同步执行这些功能的话,响应时间就会变长,所以一般我们会用队列去管理这些功能,但是如果条件不允许怎么办,今天get了一个 ...
- ADO异步查询显示进度条
一般,ADO都是以同步的方式来处理数据.这就是说,当ADO开始处理数据后,应用程序必须等到ADO处理完毕之后才可以继续执行.但是除了同步执行方式之外,ADO也提供了异步执行的方式,允许当ADO处理时, ...
- Delphi通过ADO读写数据库
ADO是一种程序对象,用于表示用户数据库中的数据结构和所包含的数据. ADO (ActiveX Data Objects,ActiveX数据对象)是Microsoft提出的应用程序接口(API)用以实 ...
- 转:Delphi中使用比较少的一些语法
http://www.cnblogs.com/Murphieston/p/5577836.html 本文是为了加强记忆而写,这里写的大多数内容都是在编程的日常工作中使用频率不高的东西,但是又十分重要. ...
- Spring异步执行(@Async)2点注意事项
Spring中可以异步执行代码,注解方式是使用@Async注解. 原理.怎么使用,就不说了. 写2点自己遇到过的问题. 1.方法是公有的 // 通知归属人 @Async public void not ...
- Linux下搭建实现HttpRunnerManager的异步执行、定时任务及任务监控
前言 在之前搭建的HttpRunnerManager接口测试平台,我们还有一些功能没有实现,比如异步执行.定时任务.任务监控等,要完成异步执行,需要搭建 RabbitMQ 等环境,今天我们就来实现这些 ...
- PHP提权之异步执行
在服务器上都会定时运行一些脚本以完成周期性的任务. 而这些脚本往往是以root权限启动的, 替换或者改变其中的内容就可以完成提权.而今天在这要讲解的就是php提权中的异步执行方法. 在php中一般大家 ...
随机推荐
- DEPENDENT SUBQUERY” 和 “SUBQUERY”
http://blog.163.com/li_hx/blog/static/183991413201642410122327/ mysql> CREATE TABLE t1 (a INT, b ...
- 使用vi是方向键变乱码 退格键不能使用的解决方法
一.编辑/etc/vim/vimrc.tiny 由于/etc/vim/vimrc.tiny的拥有者是root用户,所以要在root的权限下对这个文件进行修改.很简单,这个文件里面的倒数第二句话是“se ...
- Android实现多次闪退清除数据
背景 很多时候由于后台返回的数据异常,可能会导致App闪退.而如果这些异常数据被App本地缓存下来,那么即使杀掉进程重新进入还是会发生闪退.唯一的解决方法就是清除App数据,但是用户可能没有这个意识或 ...
- Java基础知识强化08:将字符串倒序输出(包括空格)的几种方法
1.最容易想到的估计就是利用String类的toCharArray(),再倒序输出数组的方法了: package himi.hebao05; public class TestDemo02 { pub ...
- linux系统时间同步更新
linux中的时钟分为系统时钟和硬件时钟.硬件时钟通过bioss进行设置,系统时钟通过linux kernel进行设置.当linux启动时,bioss会读取系统时钟的时钟设置.在linux中涉及时间设 ...
- D2JS 的数据绑定
D2JS 将数据绑定视为"对象-路径-渲染/收集 "组成.主要 DOM 元素和对象绑定,称为 d2js.root,非主要元素指定数据路径,通过路径定位到值,根据值可进行渲染或收集 ...
- iBatis 的条件查询
之类以传入ID进行举例 Student.xml 在里面设置一个ID的标志位,设置类型 <select id="selectAllStudentByid" parameterC ...
- HTML5 History对象,Javascript修改地址栏而不刷新页面(二)
一.实例说明: $('#btnOne').click(function () { var stateObject = { id: 1 }; var title = "本地首页"; ...
- oracle服务器端-登陆
由于的的操作系统是windows server版本,所以想装服务器端的server版本,一般的oracle都有'scott'用户,但是貌似服务器端的没有该用户,我用以下方式登陆: sqlplus / ...
- 初试ubuntu14.4问题集锦
接触Linux系统也好长时间了,但每次都是浅尝则止.前几天突发兴趣,想认真地学习一下这个名扬天下的稳定的操作系统.于是试着装了一下炒作的最凶的Ubuntu. 安装的Ubuntu系统版本为14.04. ...