[转载红鱼儿]kbmmw 开发点滴:TkbmMWLock用法
2012-10-23 11:12
141 查看
TStringList不是线程安全的,当我们在线程用到他是,要做保护。方法有两种,一种是用delphi自带的Critical,另外一种就是kbmMW为我们提供的TkbmMWLock类。
现在我们看看如何用TkbmMWLock为TStringList做线程安全:
1.基于TStringList声明自己的类:
TThreadStringList=class(TStringList)
2.在该类中增加kbmMWLock实例
Private
FLock:TkbmMWLock;
在类的Create及Destructor方法中建立与取消
3.调用方法
当我们在操作ThreadStringList实例时,调用kbmMWLock的的Lock.BeginWriet及Lock.EndWrite方法进行保护就行了。
4.附最后的代码:
TThreadStringList=class(TStringList)
Private
FLock:TkbmMWLock
public
constructor Create;override;
destructor Destroy;override;
property Lock:TkbmMWLock Read FLock;
end;
constructor TThreadStringList.Create;
begin
inherited Create;
FLock:=TkbmMWLock.Create;
end;
destructor TThreadStringList.Destroy;
begin
FLock.Free;
inherited Destroy;
end;
使用该类的代码:
sl:TThreadStringList;
...
sl.Lock.BeginWrite;
try
sl.Add('Test!');
finally
sl.Lock.EndWrite;
end;
当然,这里的操作sl,含读与写两种操作。
通过上面说明,我们看到了TkbmMWLock的用法,就是为一个类增加一个线程锁,实际上,kbmMW本身很多的类,就是用kbmMWLock加线程锁的,我们也可以随时利用kbmMWLock为自己的类加锁。
当然,不喜欢这样,想用Delphi自带的来保护线程也一样,全凭个人喜好了!
现在我们看看如何用TkbmMWLock为TStringList做线程安全:
1.基于TStringList声明自己的类:
TThreadStringList=class(TStringList)
2.在该类中增加kbmMWLock实例
Private
FLock:TkbmMWLock;
在类的Create及Destructor方法中建立与取消
3.调用方法
当我们在操作ThreadStringList实例时,调用kbmMWLock的的Lock.BeginWriet及Lock.EndWrite方法进行保护就行了。
4.附最后的代码:
TThreadStringList=class(TStringList)
Private
FLock:TkbmMWLock
public
constructor Create;override;
destructor Destroy;override;
property Lock:TkbmMWLock Read FLock;
end;
constructor TThreadStringList.Create;
begin
inherited Create;
FLock:=TkbmMWLock.Create;
end;
destructor TThreadStringList.Destroy;
begin
FLock.Free;
inherited Destroy;
end;
使用该类的代码:
sl:TThreadStringList;
...
sl.Lock.BeginWrite;
try
sl.Add('Test!');
finally
sl.Lock.EndWrite;
end;
当然,这里的操作sl,含读与写两种操作。
通过上面说明,我们看到了TkbmMWLock的用法,就是为一个类增加一个线程锁,实际上,kbmMW本身很多的类,就是用kbmMWLock加线程锁的,我们也可以随时利用kbmMWLock为自己的类加锁。
当然,不喜欢这样,想用Delphi自带的来保护线程也一样,全凭个人喜好了!
相关文章推荐
- [转载红鱼儿]kbmmw 开发点滴:QueryService运行机制
- [转载红鱼儿]kbmmw 开发点滴:kbmMW在事务中批量执行SQL
- [转载红鱼儿]kbmmw 开发点滴:kbmMW:Unknown property:indexes
- [转载红鱼儿]kbmmw 开发点滴:kbmMWEventService的本质
- [转载红鱼儿]kbmmw 开发点滴:kbmMW客户端提交事务的现场处理
- [转载红鱼儿]kbmmw 开发点滴:kbmMW 命名查询(Named Query)
- [转载红鱼儿]kbmmw 开发点滴:kbmWTCPIPInfyClientTransport联接状态
- [转载红鱼儿]kbmmw 开发点滴:kbmMW默认服务
- [转载红鱼儿]kbmmw 开发点滴:kbmMWQuery插入记录
- [转载红鱼儿]kbmmw 开发点滴:ErrorTable用法
- [转载红鱼儿]kbmmw 开发点滴:kbmMW数据集流化
- [转载红鱼儿]kbmmw 开发点滴:kbmMW缓存机制
- [转载红鱼儿]kbmmw 开发点滴:kbmmW服务端事务控制
- [转载红鱼儿]kbmmw 开发点滴:解决QueryService重复查询问题
- [转载红鱼儿]kbmmw 开发点滴:EarlyAuthentication
- [转载红鱼儿]kbmmw 开发点滴:There be must at least one field
- [转载红鱼儿]kbmmw 开发点滴:Authorization failed.
- [转载红鱼儿]delphi 实现微信开发(1)
- [转载红鱼儿]delphi 实现微信开发(2)接入微信公众号平台
- [转载红鱼儿]Delphi实现微信开发(3)如何使用multipart/form-data格式上传文件