其他分享
首页 > 其他分享> > 使用TMonitor在线程中加解锁

使用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