ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

使用TMonitor在线程中加解锁

2022-02-27 13:02:14  阅读:65  来源: 互联网

标签:begin end 中加 解锁 TObject GCTokenLock GlobalContextTokenLock TMonitor


今天学习Delphi System.Rtti的源代码,进一步学习到了如何在线程中使用锁。参考官方的代码整理出来分享:

var
  _GlobalContextTokenLock: TObject;

定义一个全局的实例,供TMonitor使用。

再写一个方法,返回_GlobalContextTokenLock:

function GCTokenLock: TObject; inline;
begin
  if _GlobalContextTokenLock = nil then
    _GlobalContextTokenLock := TObject.Create;
  Result := _GlobalContextTokenLock
end;

在这个单元的initialization及finalization段中建立及释放这个对象:

initialization
  GCTokenLock;
finalization
  _GlobalContextTokenLock.Free;
class procedure TRttiContext.DropContext;
begin
  TMonitor.Enter(GCTokenLock);
  try
    //具体的业务代码,线程安全的
  finally
    TMonitor.Exit(GCTokenLock);
  end;
end;

这是从官方源码中整理出来的,参考这个代码,我们可以更简化的使用TMonitor来加锁与解锁。

 

标签:begin,end,中加,解锁,TObject,GCTokenLock,GlobalContextTokenLock,TMonitor
来源: https://www.cnblogs.com/kinglandsoft/p/15942033.html

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有