技术笔记：Delphi多线程应用读写锁

小程序：扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序

在多线程应用中锁是一个很简单又很复杂的技术，之所以要用到锁是因为在多进程/线程环境下，一段代码可能会被同时访问到，如果这段代码涉及到了共享资源（数据）就需要保证数据的正确性。也就是所谓的线程安全。之前写过一篇着于Java线程安全的博客：链接

我是在写一个服务端程序时应用到读写锁，在一个内存缓存。先来看看排斥锁的写法，代码如下：

function TValueCalc.GetValue(const key: string): TCache;
var
objCache: TCache;
begin
Result := nil;
//加锁
FRead2Lock.Enter;
try
objCache := GetCacheInstance.GetCache(sKey);
if objCache <> nil then
begin
//缓存正在更新，直接退出，不让线程等待，以提高性能
if objCache.IsUpdating then
Exit;
//是否过期，未过期直接返回
if MilliSecondsBetween(Now, objCache.LastTime) < Expires then
begin
Result := objCache;
Exit;
end; objCache.IsUpdating := True;
end;
//更新缓存
Result := UpdateCache(key);
finally
//释放锁
FRead2Lock.Leave;
end;
end;

但是这个缓存有一个特点，就是每个缓存项存活的时间很短，这就会导致大量的缓存更新操作，而这些更新操作由于业务不同耗时也不同。这就导致线程都在等待缓存的更新。为了解决这个问题引入了读写锁。让读锁可以在写数据时释放，让后面的线程继续执行查找缓存数据。

function TValueCalc.GetValue(const key: string): TCache;
var
objCache: TCache;
begin
Result := nil;
FRead2Lock.Enter;
try
objCache := GetCacheInstance.GetCache(sKey);
if objCache <> nil then
begin
//缓存正在更新，直接退出，不让线程等待，以提高性能
if objCache.IsUpdating then
Exit;
//检查缓存是否过期
if MilliSecondsBetween(Now, objCache.LastTime) < Expires then
begin
Result := objCache;
Exit;
end; objCache.IsUpdating := True;
end; //先释放读锁，后面线程可以继续读数据
FRead2Lock.Leave;
//加写锁
FWriteLock.Enter;
try
//更新缓存
Result := UpdateCache(key);
finally
//数据更新完毕，重新加上读锁
FRead2Lock.Enter;
//释放写锁
FWriteLock.Leave;
end;
finally
//释放读锁
FRead2Lock.Leave;
end;
end;