[教程]如何保证对象释放时,异步调用过程都已经完成

[基本原理]

我们使用一个引用计数可以很简单的完成这一需求。

  • 在触发异步操作时,将此计数加 1;
  • 在异步操作执行完成时,将此计数减 1;
  • 在对象释放前,检查这个计数是否为0,如果不为0,则等待计数变为0。

[实现细节]

type
   TTestObject=class
   private
     FAsyncRefCount:Integer;
     procedure DoAsync;
   public
     destructor Destroy;override;
   end;
...

procedure TTestObject.DoAsync;
begin
  Inc(FAsyncRefCount);
  TThread.ForceQueue(nil,
    procedure
    begin
      Dec(FAsyncRefCount);
      ...
    end);
end;

destructor TTestObject.Destroy;
begin
  //在此检查,保证异步调用完成才真正释放
  while FAsyncRefCount>0 do
    CheckSynchronize(0);
  ...
  inherited;
end;

[进一步的实现]

上面的实现简单可靠,唯一的问题,就是对象释放必需等待异步操作完成。这个时间点是不可靠的,要更好的实现可以将异步调用进行额外的处理,并将其与对象的生命周期进行拦截。

分享到:

评论已关闭。