带临界区的先进先出FIFO队列

最新推荐文章于 2022-01-07 14:20:07 发布

weixin_30270889

最新推荐文章于 2022-01-07 14:20:07 发布

阅读量154

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/redprince/archive/2009/12/28/1633801.html

本文介绍了一种使用临界区确保多线程环境中TObjectQueue安全访问的方法。通过在队列的基本操作如Push、Pop和Peek前后加入EnterCriticalSection和LeaveCriticalSection，实现了线程安全的队列TObjectCriticalSectionQueue。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

｛建议在多线程中使用或共享缓冲区使用如果不加临界区，TobjectQueue在多线程访问中，

如果count=0时，调用pop会出现异常｝

TObjectCriticalSectionQueue = class(TObjectQueue)
    private
      FCriticalSection: TRTLCriticalSection;
    public
      function Push(AObject: TObject): TObject;
      function Pop: TObject;
      function Peek: TObject;
      constructor Create;
      destructor Destroy; override;
end;

constructor TObjectCriticalSectionQueue.Create;
begin
inherited Create;
InitializeCriticalSection( FCriticalSection);
end;
destructor TObjectCriticalSectionQueue.Destroy;
begin
DeleteCriticalSection( FCriticalSection);
inherited;
end;
function TObjectCriticalSectionQueue.Peek: TObject;
begin
try
    EnterCriticalSection(FCriticalSection);
    Result := inherited Peek;
finally
    LeaveCriticalSection(FCriticalSection);
end;
end;
function TObjectCriticalSectionQueue.Pop: TObject;
begin
try
    EnterCriticalSection(FCriticalSection);
    Result := inherited Pop;
finally
    LeaveCriticalSection(FCriticalSection);
end;
end;
function TObjectCriticalSectionQueue.Push(AObject: TObject): TObject;
begin
try
    EnterCriticalSection(FCriticalSection);
    Result := inherited Push(AObject);
finally
    LeaveCriticalSection(FCriticalSection);
end;
end;