Delphi - Indy TIdThreadComponent 线程研究
Indy IdThreadComponent 线程研究
前几天在开发数据实时解析功能模块的时候，发现解析数据量巨大，特别耗时，程序一跑起来界面假死。
为了优化用户体验，采用了Indy 自带的IdThreadComponent控件，完美的解决了此问题。
下面就IdThreadComponent一些关键属性和方法做如下记录：
1：IdThreadComponent属性
这里主要记录一下Active、Priority和StopMode属性。
Active：默认False，当需要令IdThreadComponent控件生效时，置为True；
Priority：为避免线程之间相互冲突，选择Normal，让系统自带分配优先级；
StopMode：这里分为Terminate和Suspend两种，Terminate为强行终止，Suspend为延缓、等待终止。
2：IdThreadComponent方法
TIdThreadComponent用的是观察者模式，所有这里的事件都是回调事件。
一般比较耗时的操作放在OnRun中执行。
事件执行顺序如下：
On Before Execute；
On Before Run；
On Run;
On Stopped;
On After Run;
On After Execute;
3：通过如下Demo进行说明
需要说明一下：
在线程里不可以直接操作界面上的控件，因为有时候控件被销毁了而线程还在运行，这时直接操作会抛AV异常，所以在TIdThreadComponent回调事件中，如果有使用到控件的，必须先做控件是否为空的判断。
界面如下：
代码如下：
unit uMain; interface uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton, StdCtrls, RzEdit, IdBaseComponent, IdThreadComponent; type
TMainFrm = class(TForm)
IDTrd: TIdThreadComponent;
mmMsg: TRzMemo;
btnStart: TRzBitBtn;
btnStop: TRzBitBtn;
btnTerminal: TRzBitBtn;
procedure btnStartClick(Sender: TObject);
procedure IDTrdRun(Sender: TIdCustomThreadComponent);
procedure IDTrdBeforeExecute(Sender: TIdCustomThreadComponent);
procedure IDTrdAfterExecute(Sender: TIdCustomThreadComponent);
procedure btnStopClick(Sender: TObject);
procedure btnTerminalClick(Sender: TObject);
procedure IDTrdAfterRun(Sender: TIdCustomThreadComponent);
procedure IDTrdBeforeRun(Sender: TIdCustomThreadComponent);
procedure IDTrdStopped(Sender: TIdCustomThreadComponent);
private
{ Private declarations }
public
{ Public declarations }
end; var
MainFrm: TMainFrm; implementation {$R *.dfm} procedure TMainFrm.btnStartClick(Sender: TObject);
begin
IDTrd.Active := True;
end; procedure TMainFrm.IDTrdRun(Sender: TIdCustomThreadComponent);
var
I: Integer;
begin
for I := to do
begin
mmMsg.Lines.Add(IntToStr(I)); //模拟耗时操作
end;
//在线程里不可以直接操作界面控件，有时候控件被销毁了而线程还在运行，
//此时就会报AV异常，
//所以在TIdThreadComponent回调事件中有使用到控件的，必须添加控件是否为空判断
end; procedure TMainFrm.IDTrdBeforeExecute(Sender: TIdCustomThreadComponent);
begin
if Assigned(mmMsg) then
begin
mmMsg.Lines.Add('Before Execute');
end;
end; procedure TMainFrm.IDTrdAfterExecute(Sender: TIdCustomThreadComponent);
begin
if Assigned(mmMsg) then
begin
mmMsg.Lines.Add('After Execute');
end;
end; procedure TMainFrm.btnStopClick(Sender: TObject);
begin
IDTrd.Stop;
end; procedure TMainFrm.btnTerminalClick(Sender: TObject);
begin
IDTrd.Terminate;
end; procedure TMainFrm.IDTrdAfterRun(Sender: TIdCustomThreadComponent);
begin
if Assigned(mmMsg) then
begin
mmMsg.Lines.Add('After Run');
end;
end; procedure TMainFrm.IDTrdBeforeRun(Sender: TIdCustomThreadComponent);
begin
if Assigned(mmMsg) then
begin
mmMsg.Lines.Add('Before Run');
end;
end; procedure TMainFrm.IDTrdStopped(Sender: TIdCustomThreadComponent);
begin
if Assigned(mmMsg) then
begin
mmMsg.Lines.Add('On Stopped');
end;
end; end.
作者：Jeremy.Wu
出处：https://www.cnblogs.com/jeremywucnblog/
本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。
最新文章
- Maximo 7.5 集成方式 去掉主菜单
- Asp.Net MVC中DropDownListFor的用法（转）
- 解决PHP生成UTF-8编码的CSV文件用Excel打开乱码的问题
- js-原型以及继承小案例
- iOS性能优化：Instruments
- linux包之e2fsprogs之chattr命令
- Part 30 to 31 Talking about Interfaces in c#
- HDU Exponentiation 1063 Java大数题解
- Jsp、Servlet
- 对 sql server 数据库的备份进行加密
- Snacks
- Spring中管理Bean以及解析XML
- 数据库并行读取和写入(Python实现)
- hdu_1506:Largest Rectangle in a Histogram 【单调栈】
- Python----unittest discover()方法与执行顺序
- 1055 - Expression #1 of ORDER BY clause is not in GROUP BY clause and contai
- SpringBoot启动源码探究---listeners.starting()
- http://blog.csdn.net/pipisorry/article/details/51471222
- WinForm 简易仿360界面控件
- SCRUM 12.19