Question

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

使用已发布的界面属性在Delphi中并不常见，因此，毫不奇怪，它似乎没有那么好用。

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

与指向另一个表单上的组件的对象链接不同，接口链接似乎不会被IDE识别。我的意思是最好用一个例子来描述，当你在IDE中打开2个表单，并在它们之间有组件之间的链接，然后尝试切换到表单视图作为文本（Alt + F12）将导致IDE正确地抱怨：< / p>

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

但是如果属性是一个接口，那么这不会发生，相反的是链接被切断（当你使用Notification机制来清除引用时，这是最好的情况，否则你＆＃39;留下无效指针）

另一个问题，可能是同一个错误的结果是，当您在IDE中打开项目时，表单将重新打开的顺序是未定义的，因此IDE可以尝试打开包含具有接口链接的组件的表单到另一个表单上的组件，但还没有重新创建其他表单。因此，这有效地导致AV或切断链接。

回到90年代，当我使用Datasets和Datasources时，我记得表格之间的链接消失的类似问题，所以这有点类似。

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

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

我还没有深入流媒体机制，但我怀疑Fixup机制应该处理这个问题。有一个csFixups TComponentState所以我希望可以采取解决方法。

修改：使用 D2007 。

更新

上传到http://www.filedropper.com/fixupbugproject2

的新更新的可重现示例

添加了property ComponentReference: TComponent，以便轻松比较和跟踪界面与组件流。

我将问题缩小到汇编级别，这有点超出我的深度。

在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方法的已发布接口属性上，并且属性指向另一个表单/模块上的组件（并且该表单/模块尚未重新创建）。在这种情况下，恢复形式DFM会导致AV。

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

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

进行注册

已发布的界面属性错误和变通方法

1 个答案: