delphi生命周期中的TAutoObject..？

Question

我有一个像这样的简单自动化类：

type
  TTest_COM = class(TAutoObject, ITest_COM)
  private
    Variable: TClass;
  protected
    procedure Test(parameters...); safecall;
  public
    procedure  Initialize; override;
    destructor Destroy; override;
  end;

implementation

destructor TTest_COM.Destroy;
begin
  Variable.Free;
  inherited;
end;

procedure TTest_COM.Initialize;
begin
  inherited;
  Variable := TClass.Create;
end;

procedure TTest_COM.Test(parameters...); safecall;
begin
  // this method makes use of "Variable"
end;

任何人都可以向我解释充当 msmq 接收器的此类 com 对象的生命周期吗？

问题在于该过程：测试有时会在未分配的“变量”上运行。 当我删除这一行时：Variable.Free;尽管 dllhost.exe 的内存使用量增加了，但它仍然可以正常工作。

为什么会发生这样的事情呢？

编辑：

因为我无法回答我自己的问题。我在这里做这个。

问题解决了。

该类正在分配全局变量。我还没有注意到这一点。

这就是另一个变量被覆盖的问题。

感谢您的帮助！

Answer 1

当引用计数为零时，应释放 AutoObject。

我怀疑错误不在您的代码中，而是在使用该对象的代码中。在使用对象的代码中，引用计数为零并被销毁，但仍从释放对象上的代码调用 Test 过程。这就是为什么 Test 有时会对未分配的变量进行操作：TTest_COM 对象已经被销毁。