TThread是一个抽象类,可以创建几个独立的线程。
类关系 TObject
在一个多线程的应用程序中创建一个TThread的后子类代表一个线程。每一新子类的TThread对象的实例是一个新的线程。从TThread派生的多线程实例可以构成Delphi的多线程应用程序。
当一个应用程序运行时,应用程序就被载入内存准备执行。此时,它成为包含一个或多个线程的进程,每个线程含有数据、代码和系统资源。线程执行应用程序的部分内容,并由系统分配CPU时间。同一进程的所有线程共享同一地址空间,可以访问进程的全局变量。线程通过以下工作改善应用的性能:
管理多通信设备的输入。
区分任务的优先级。优先级高的处理紧急的任务。优先级低的处理其他任务。
以下是使用线程的一些建议:
同时跟踪太多的线程消耗CPU时间。对单处理器系统,一个进程最多有16个线程。
当多个线程更新相同的资源时,应使线程同步以避免冲突。
大多数访问VCL对象和更新窗体的方法必须从主VCL线程内部调用。
以下为创建和使用一个新线程的过程:
(1)单击File|New|Thread菜单项,创建一个包含对象的新单元,该对象源于TThread类。
(2)定义新线程对象和Create方法。
(3)通过插入线程执行时需要的代码定义线程对象和Execute方法。
(4)将使用VCL组件的任何调用传递给Synchronize方法,以避免多线程冲突。
属性列表
FreeOnTerminate 线程终止时该对象是否自动删除
Handle 包含线程句柄
Priority 确定该线程相对于进程中其他线程的优先级
ReturnValue 返回线程值
Suspended 指示一线程是否被挂起
Terminated 表明线程被要求终止
ThreadID 标识贯穿系统的线程
方法列表
~TThread 删除线程对象并释放其战用的内存空间
DoTerminate 产生一个OnTerminate事件
Execute 提供包含线程执行时所需代码的抽象方法
Resume 重新执行一个挂起的线程
Suspend 挂起一个运行中的线程
Synchronize 在主VCL线程中执行Method
Terminate 将Ternimated属性设置为True通知线程终止
TThread 创建一个线程对象的实例
WaitFor 等待线程终止并返回ReturnValue属性值
事件列表
OnTerminateExecute 方法已返回且该线程被删除前发生
属性
TThread::FreeOnTerminate
__property bool FreeOnTerminate = {read=FFreeOnTerminate,write=FFreeOnTerminate,nodefault};
确定当线程终止时,该线程对象是否自动删除。
FreeOnTerminate默认值为False,线程对象必须在代码中显示删除。
包含线程句柄。
当调用Win32API函数处理线程时,使用Handle.
TThread::Priority
__property TThreadPriority Priority = {read=GetPriority,write=SetPriority,nodefault};
确定该线程相对于进程中其他线程的优先级。
Priority属性为一枚举类型,其默认为tpNormal.
TThreadPriority类型定义了TThread组件的Priority属性的可能值,如下表所述。Windows根据优先级确定每一个线程的CPU周期。
_____________________________________________________________________
值 含义
_____________________________________________________________________
tpIdle 只有当系统空闲时该线程执行
tpLowest 线程优先级比正常低2点
tpLower 线程优先级比正常低1点
tpNormal 线程优先级为正常值
tpHigher 线程优先级比正常高1点
tpHighest 线程优先级比正常高2点
tpTimeCritical 线程优先级最高
TThread::ReturnValue
__property int ReturnValue = {read=FReturnValue,write=FReturnValue,nodefault};
返回线程值。
使用ReturnValue应用为其他线程指示其成功/失败或数字结果/输出。WaitFor方法返回存储在ReturnValue中的值。
TThread::Suspended
__property bool Suspended = {read=FSuspended,write=SetSuspended,nodefault};
指示一线程是否被挂起。
除非重新执行,否则被挂起的线程不会继续执行。若将Suspended设置为True将挂起一个线程;若设置为False,则继续执行该线程。
TThread::Terminated
__property bool Terminated = {read=FTerminated,nodefault};
表明线程被要求终止。Terminate方法将Terminated属性设置为True。
线程的Execute方法和任何Execute调用的方法将周期性地检查Terminated,当其为True时,将终止执行。
TThread::ThreadID
__property int ThreadID = {read=FhreadID,nodefault};
标识贯穿系统的线程。
当调用Win32API函数处理线程时,ThreadID将十分有用。
注意:ThreadID与Handle属性不同。
方法
TThread::~TThread
__fastcall virvual ~TThread(void);
删除线程对象并释放其战胜的内存空间。
在应用中不要调用~TThread。用delete替代。
~TThread通知线程终止,并在调用Destroy方法前等待该线程返回。
TThread::DoTerminate
virtual void __fastcall DoTerminate(void);
产生一个OnTerminate事件。
DoTerminate调用OnTerminate时间句柄,但并不终止该线程。
TThread::Execute
virtual void __fastcall Execute(void) =0;
提供包含线程执行时所需代码的抽象方法。
Execute查看Terminated属性值以决定该线程是否需要终止。
当CreateSuspended被设置为False,当调用Create时,一线程执行;在线程创建后先调用了Resume且CreateSuspended为True,一线程执行。
注意:不要在线程的Execute方法中直接调用其他对象的属性和方法。应该将对其他对象的使用分成几个不同的过程,将其作为一个传递到Synchronize方法的参数分别调用。
TThread::Resume
void __fastcall Resume(void);
重新执行一个挂起的线程。
调用Suspend可以嵌套。因此调用Resume必须注意次序。
TThread::Suspend
void __fastcall Suspend(void);
挂起一个运行中的线程。
调用Resume可以继续运行。调用Suspend可以嵌套。因此调用Resume必须次序。
TThread::Synchronize
typedef void __fastcall(__closure* TThreadMethod)(void);
void __fastcall Synchronize (TThreadMethod&Method);
在主VCL线程中执行Method。
Synchronize方法由Method指定的调用被主VCL线程执行。
注意:当在主VCL线程中执行Method时,当前的线程被挂起。
TThread::Terminate
void __fastcall Terminate(void);
通过将Terminated属性设置为True通知线程终止。
线程的Execute方法以及Execute调用的任何方法应周期性的检查Terminated,当其为True时终止运行。
TThread::TThread
__fastcall TThread(bool CreateSuspended);
创建一个线程对象的实例。
在应用中不要直接使用TThread来创建线程。用new替代,传递CreateSuspended参数argument。若CreateSuspended为False,Execute被立即调用。若CreateSuspended为True,Execute直到Resume被调用后才被调用。
TThread::WaitFor
int __fastcall WaitFor(void);
等待线程终止并返回ReturnValue属性值。
直到线程终止时WaitFor才返回,因此线程一定是因为结束了Execute方法或因Terminated属性为了True而终止。如果该线程使用Synchronize,则不要在主VCL线程中调用WaitFor,否则或者引起系统死机,或者产生一个EThread异常。
Synchronize在允许该方法生效前等待主VCL线程进入信息回路。若主VCL线程已经调用了WaitFor,它将不会进入信息回路,Synchronize也永远不会返回。此时,TThread将产生一个EThread意外并使该线程终止;而且如果该意外没有被Execute方法截获,该应用也将终止。如果调用WaitFor时,Synchronize已经在VCL线程中等待,TThread将不会干预,应用程序将死机。
事件
TThread::OnTerminate
__property TNotifyEvent OnTerminate = {read=FOnTerminate,write=FOnTerminate};
当线程的Execute方法已经返回且在该线程被删除之前发生。
OnTerminate事件句柄在主VCL线程被调用。该线程对象也可在该事件中被释放。
分享到:
相关推荐
`TThread` 是 Delphi 中用于创建和管理线程的类,而 `CreateAnonymousThread` 是一个方便的方法,用于快速创建不具有界面的线程。然而,原生的 `TThread.CreateAnonymousThread` 并不直接支持参数传递。这个压缩包...
在Delphi中,多线程编程是通过TThread类实现的。TThread是VCL(Visual Component Library)框架的一部分,位于Classes单元中,为开发者提供了一种方便的方式来创建和管理线程。它对Windows API的线程创建和管理进行...
Delphi tthread类用法实例,一个多线程的Demo源码,lvThread=class(tthread)//定义线程类,constructor lvthread.create();//实现构造 begin freeonTerminate:=true;//当执行完后是否自动销毁 inherited ...
Delphi 中多线程类 TThread 中文帮助
### Delphi TThread详解:构建高效线程管理 在Delphi编程环境中,`TThread`类作为线程处理的核心组件,扮演着极其重要的角色。它继承自`TObject`类,为开发人员提供了创建和管理多线程应用程序的能力。本文将深入...
- 考虑使用异步消息队列:除了Synchronize,还可以使用TThread.Queue或TThread.CreateAnonymousThread来异步地更新UI,这样工作线程不会被阻塞,但需要注意的是,这些方法不会自动在主线程中执行,需要手动检查执行...
`CreateAnonymousThreadX`是Delphi社区中广泛使用的一个扩展函数,用于解决原生`TThread.CreateAnonymousThread`不支持直接传递参数的问题。下面将详细探讨`CreateAnonymousThreadX`的工作原理、使用方法以及如何...
本示例中,我们关注的是如何在Delphi环境中使用TThread组件进行多线程编程,以便并行读取文本文件数据。下面将详细阐述这个主题。 首先,TThread是Delphi提供的一个类,它是Windows API中的线程概念的具体实现,...
例如,`TThread.Synchronize`和`TThread.Queue`方法可以确保在主线程中安全地执行代码。`TThread.OnTerminate`事件可用于在线程结束时执行清理工作。 5. **示例代码** 下面是一个简单的示例,展示如何创建一个...
TThread.CreateAnonymousThread()匿名开线程demo,同步和异步都有,线程同步也只是说明使用方法,进水采用同步去支持线程。
在Delphi中,我们可以使用TThread类来创建和管理线程。TThread提供了创建新线程、执行线程代码、同步线程等方法。例如,当服务器接收到新的客户端连接时,可以创建一个新的线程来处理这个连接,避免主线程被阻塞,...
TThread类是VCL(Visual Component Library)框架提供的一种用于创建线程的抽象类。它继承自TComponent,因此可以像其他组件一样在设计时添加到表单上,也可以在运行时动态创建。要创建一个线程实例,你需要创建...
egThread_ 一个简单的使用 TThread 的例子_20200129 Delphi7下的一个线程例子,《Delphi高级编程_刘啸_汪启伟_茹黎元涛_人民邮电》 没事学习下么,使用的SQL2000下的数据库(pubs),本人是将它导入到SQL2014中...
在C++ Builder中实现这个模型,首先需要理解和使用`TThread`类,它是VCL(Visual Component Library)框架下的一个基础线程类。通过继承`TThread`并重写其`Execute`方法,我们可以定义每个线程的行为。 生产者线程...
在Delphi中,我们可以使用TThread类或VCL库中的其他多线程组件来创建和管理线程。例如,`Unit1`和`Unit2`可能是两个不同的线程类,分别实现了对数据库的不同访问逻辑。 `Unit1.pas`和`Unit2.pas`是Delphi的源代码...
在C++Builder中,我们可以使用其内置的`TThread`类来创建和管理线程。线程是操作系统分配CPU时间的基本单元,允许程序同时执行多个任务,提高应用程序的响应性和效率。在硬件数据收集的场景中,使用线程可以将数据...
- **创建步骤**:继承自TThread类,重写Execute方法,在Execute方法中编写线程执行的代码,然后调用Create(false)方法启动线程。 3. **线程同步与通信**: - **同步机制**:包括消息队列、事件(TEvent)、互斥量...
通常,这些代码应该避免与主线程进行直接交互,除非使用同步机制(如TThread.Synchronize或TThread.Queue)。 3. **启动线程**: 在主程序中,实例化线程对象并调用其`Start`方法来启动线程: ```delphi uses ...
本主题将深入探讨Delphi中的多线程技术,特别是如何利用TThread类来提高数据读写的性能。 首先,我们要了解什么是多线程。多线程是指一个应用程序内可以同时执行多个线程(或称为子任务)的能力。这种机制允许程序...
Delphi中的线程类是实现多线程编程的关键工具,主要由TThread类提供支持。TThread类位于Delphi的Classes单元中,它为开发者提供了一种更方便、更安全的方式来管理和控制线程的生命周期。多线程允许程序在单个进程中...