delphi - 已发布的接口(interface)属性错误和解决方法

Question

我编写了一组通过已发布的接口(interface)属性相互链接的组件。它们在设计包中注册并安装。

使用已发布的接口(interface)属性在 Delphi 中并不常见，因此，毫不奇怪，似乎效果不太好。

当组件驻留在同一表单上时它工作正常，但是不同表单上的组件之间的接口(interface)属性链接会导致问题。

与其他窗体上组件的对象链接不同，IDE 似乎无法识别界面链接。我的意思最好用一个例子来描述，当您在 IDE 中打开 2 个表单，并且它们上的组件之间有链接时，尝试切换到文本形式的表单 View (Alt+F12) 将导致 IDE 正确地提示:

Module 'UnitXXX.pas' has open descendents or linked modules. Cannot close.

但是如果该属性是一个接口(interface)，那么这种情况就不会发生，而是链接被切断(这是当您使用通知机制清除引用时的最佳情况，否则您会留下一个无效的指针)

另一个问题(可能是同一错误的结果)是，当您在 IDE 中打开项目时，重新打开表单的顺序是未定义的，因此 IDE 可以尝试打开包含具有界面链接的组件的表单到另一个表单上的组件，但尚未重新创建另一个表单。因此，这实际上会导致 AV 或链接断开。

上世纪 90 年代，我使用 Datasets和Datasources我记得表单之间的链接消失的类似问题，所以这有点相似。

作为临时解决方法，我添加了重复的已发布属性，对于每个接口(interface)属性，我添加了另一个声明为 TComponent 的属性。 。这使得 Delphi 意识到表单之间存在链接，但至少可以说这是一个丑陋的解决方法。

所以我想知道是否可以做些什么来解决这个问题？这是一个 IDE 错误，可能无法直接修复，但也许我可以覆盖某些内容或以其他方式连接到流机制，以更有效地解决此错误。

我还没有深入研究过流机制，但我怀疑 Fixup 机制应该可以处理这个问题。有一个csFixups TComponentState所以我希望有一个解决方法是可能的。

编辑:使用D2007。

更新:

新更新的可重现示例已上传至 http://www.filedropper.com/fixupbugproject2

已添加property ComponentReference: TComponent这样就可以轻松比较和跟踪接口(interface)与组件流。

我将问题范围缩小到了汇编程序级别，这有点超出了我的理解范围。

程序中GlobalFixupReferences在classes它调用的单位:

(GetOrdProp(FInstance, FPropInfo) <> 0)

最终执行:

function TInterfacedComponent.GetInterfaceReference: IInterface;
begin
// uncomment the code bellow to avoid exception
{  if (csLoading in ComponentState) and (FInterfaceReference = nil) then
  // leave result unassigned to avoid exception
  else
}
    result := FInterfaceReference; // <----- Exception happens here
end;

正如您从评论中看到的，我发现避免异常的唯一方法是将结果保留为未分配状态，但这会破坏自上面 GlobalFixupReferences 中的比较以来的功能由于 GetOrdProp <> 0 失败，这会切断链接。

跟踪得越深入，异常所在的位置就越准确

procedure _IntfCopy(var Dest: IInterface; const Source: IInterface);在system单位

这一行特别引发了 read of address 0x80000000

{   Now we're into the less common cases.  }
@@NilSource:
        MOV     ECX, [EAX]      // get current value

那么，为什么MOV失败了，ECX 有什么问题吗？或EAX我不知道。

Answer 1

总而言之，该问题仅发生在具有 getter 方法的已发布接口(interface)属性上，并且该属性指向另一个表单/模块上的组件(并且该表单/模块尚未重新创建)。在这种情况下，恢复表单 DFM 会导致 AV。

我很确定该错误存在于 GetOrdProp 中的 ASM 代码中，但它超出了我修复的能力，因此最简单的解决方法是使用 Field 而不是 getter 方法，并直接在属性中读取它。幸运的是，这对于我目前的情况来说已经足够好了。

或者，您可以将属性声明为 TComponent 而不是接口(interface)，然后编写 TComponentProperty 后代，重写 ComponentMayBeSetTo 以过滤不支持的组件不支持所需的接口(interface)。当然，使用 RegisterPropertyEditor

注册它