关于delphi中多线程采用定时器的做法
delphi中的提供了一个tthread的多线程类,开发者可以根据自身的需要,定制相应功能的多线程,而定时器在多线程中有很广泛的应用,在这里,只说关于waitforsingleobject来做定时器的一些关键问题。(关于定时器的相关知识,请阅读《深度历险》)
waitforsingleobject是一个api函数,采用该函数,需要调用createevent,timesetevent,然后才能使用。但是这里使用到的event在线程中声明的位置不一样,效果也不一样,以下给出两种声明方式:
unit PTUnit;
interface
uses
Classes,mmsystem, Windows, sysutils, Forms;
type
TPingThread = class(TThread)
private
{ Private declarations }
{将event声明为该线程类的私有数据成员}
timerid:integer;
htimerevent:Thandle;
fFileName: string;
protected
procedure Execute; override;
public
constructor create;
procedure SetOver;
published
end;
implementation
constructor TPingThread.Create;
begin
FreeOnTerminate := true;
Inherited Create(true);
end;
procedure TPingThread.SetOver;
begin
timerid := timesetevent(5,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
end;
procedure TPingThread.Execute;
begin
htimerevent := CreateEvent(nil, False, False, nil);
timerid := timesetevent(5*1000,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
repeat
if WaitForSingleObject(htimerevent,INFINITE) = WAIT_OBJECT_0 then
begin
if Terminated then break;
dosomething;
end;
until false;
timekillevent(timerid);
CloseHandle(htimerevent);
end;
end.
这种声明方式保证了线程能够正常的执行。但是,下面一种声明方式就不行了,当你只是创建一个线程实例的时候,还能正常的执行,如果创建了两个以上的线程实例,那就不对了。
unit PTUnit;
interface
uses
Classes,mmsystem, Windows, sysutils, Forms;
type
TPingThread = class(TThread)
private
{ Private declarations }
fFileName: string;
protected
procedure Execute; override;
public
constructor create;
procedure SetOver;
published
end;
implementation
{在实现部分声明事件}
var
timerid:integer;
htimerevent:Thandle;
constructor TPingThread.Create;
begin
FreeOnTerminate := true;
Inherited Create(true);
end;
procedure TPingThread.SetOver;
begin
timerid := timesetevent(5,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
end;
procedure TPingThread.Execute;
begin
htimerevent := CreateEvent(nil, False, False, nil);
timerid := timesetevent(5*1000,0,TFNTimecallback(htimerevent),0,time_periodic or time_callback_event_set);
repeat
if WaitForSingleObject(htimerevent,INFINITE) = WAIT_OBJECT_0 then
begin
if Terminated then break;
dosomething;
end;
until false;
timekillevent(timerid);
CloseHandle(htimerevent);
end;
end.
以上两个除了事件声明位置不一样,其他功能均一样的代码在创建了两个以上线程实例的时候,第一个能够正常执行,第二个中的定时器的时间间隔就会出问题,而且当结束其中一个线程的时候,另外一个线程也无法正常工作。
总结:建议使用第一种声明方式,这种方式能确保正常运行。
转载于:https://www.cnblogs.com/MaxWoods/archive/2010/09/08/1821216.html
关于delphi中多线程采用定时器的做法相关推荐
- Delphi中多线程用Synchronize实现VCL数据同步显示
概述: VCL实现同步的另一种方法就是调用线程类的Synchronize的过程,此过程需要一个无参数的procedure,故在此procedure中无法传递参数值,但可以通过类的成员来实现.在类的Ex ...
- C#中多线程和定时器是不是有冲突?
private void button4_Click(object sender, EventArgs e) { DataGetThreads[0] = new Thread(new ThreadSt ...
- idea 断点线程_在IntelliJ IDEA中多线程并发代码的调试方法
通常来说,多线程的并发及条件断点的debug是很难完成的,或许本篇文章会给你提供一个友好的调试方法.让你在多线程开发过程中的调试更加的有的放矢. 我们将通过一个例子来学习.在这里,我编写了一个多线程程 ...
- Delphi关于多线程同步的一些方法
(注:本文为转载 http://hi.baidu.com/navy1130/blog/item/468fcdc448794fce38db49ee.html) 线程是进程内一个相对独立的.可调度的执行 ...
- Delphi实现多线程
线程是进程内一个相对独立的.可调度的执行单元.一个应用可以有一个主线程,一个主线程可以有多个子线程,子线程还可以有自己的子线程,这样就构成了多线程应用了.由于多个线程往往会同时访问同一块内存区域,频繁 ...
- Delphi中线程类TThread实现多线程编程2---事件、临界区、Synchronize、WaitFor……
接着上文介绍TThread. 现在开始说明 Synchronize和WaitFor 但是在介绍这两个函数之前,需要先介绍另外两个线程同步技术:事件和临界区 事件(Event) 事件(Event)与De ...
- delphi 中几种多线程操作方式
在了解多线程之前我们先了解一下进程和线程的关系 一个程序至少有一个主进程,一个进程至少有一个线程. 主线程又程为UI线程. 进程和线程的主要差别在于它们是不同的操作系统资源管理方式.进程有独立的地址空 ...
- Delphi 中 FireDAC 数据库连接(多线程)
参见:Delphi 中 FireDAC 数据库连接(总览) 本主题描述了如何在多线程环境下使用FireDAC. 一.概述 如果满足以下条件,FireDAC是线程安全的. 一个连接对象和所有与之相关的对 ...
- Delphi中实现多线程同步查询
优秀的数据库应用应当充分考虑数据库访问的速度问题.通常可以通过优化数据库.优化 查询语句.分页查询等途径收到明显的效果.即使是这样,也不可避免地会在查询时闪现一个带有 SQL符号的沙漏,即鼠标变成了查 ...
最新文章
- 阅读Book: MultiObjective using Evolutionary Algorithms (1) --prologue 单目标和多目标的不同
- 修罗武神正版游戏服务器,修罗武神正版游戏官网
- python 英语词频统计软件_为了边看美剧边学英语,我写了个字幕处理脚本
- MySQL百万级高并发网站优化
- 4月18日云栖精选夜读 | 阿里靠什么支撑 EB 级计算力?
- http请求出现406错误解决方案
- vue 扁平化_以vue+TreeSelect为例,如何将扁平数据转为tree形数据
- SpringBoot搭建简单留言板项目
- PHP实现队列(二)Redis 实现队列
- 最新杭州公交线路调整,文二路文三路段
- Metasploit为什么选择Ruby语言(部分)
- B站高管解读财报:要更快实现盈亏平衡 陈睿亲自盯减亏工作
- 地理信息系统(GIS)系列——ArcGIS 开发的各种示例
- Joel在耶鲁大学的演讲
- Go开发 之 基础语法(常量、枚举、注释、类型别名、指针)
- 《HelloGitHub》第 49 期
- mirna富集分析_课题研究实验外包高通量测序——miRNA测序
- ionic3 ion-select
- 【java笔记-006】【uni-app】当前运行的基座不包含原生插件[xxx],请在manifest中配置该插件,重新制作包括该原生插件的自定义运行基座
- SHP转换为SLPK
热门文章
- winform中listview选中整行_Excel办公实操,操作区域的3大小技巧,办公中的你使用过吗...
- cdr你的产品已禁用_Coreldraw提示已安装另一版本导致安装失败的解决办法
- 为什么至少三个哨兵_入职第一周,组长让我把部门redis服务搞成哨兵模式...慌-龙跃十二...
- L2-004 这是二叉搜索树吗?(二叉树)
- android 页面icon拉伸_页面转场: 忽略它可能会使你犯错
- R语言︱情感分析—词典型代码实践(最基础)(一)
- 基于Java分词的ikanalyzer工具
- Java 自定义HashSet
- robot frame基础知识--变量
- CentOS7.3上部署安装Oracle12c