AV 当使用一个组件中的过程被另一组件调用时

Question

我不确定我是否已尽我所能解释这一点，但是，我们开始...

我在表单上有 2 个自定义组件，它们在设计时通过 IDE 链接在一起。 每当我从组件调用过程时，我都会遇到访问冲突，

地址 0049A614 处的访问冲突 在模块“Project2.exe”中。 读过 地址00000034。

这是我代码的一小部分

TMyClient = class(TClientSocket)
{...}
end;

，...

TPresence = class(TComponent) 
 private
  ftheClient: TMyClient 
 public 
  procedure SetStatus(status: string);

 published
  property UserName : string read fUserName write fUserName;
  property theClient: TMyClient read ftheClient write ftheClient;
 end;   



procedure TPresence.SetStatus(status: string);
begin
 try
*****   if theClient = nil then
     Exception.Create('theClient  is Nil');
 except
   on e:Exception do
   MessageDlg(e.classname+', '+e.message, mtWarning, [mbOK], 0);
 end;
  {...}
end;

0049A614 位于 *****，IDE 停在这里。

我还尝试在运行时进行分配，但

Presence1.theClient := MyClient1;

没有成功，

使用来自 Presence1 或 MyClient1 的程序，这些程序彼此不依赖，工作正常。

德尔福7

后续： 从 mghie 的评论中，我重新考虑了这一点。

我从表单中删除了 TPresence 组件（这导致了一些奇怪的 IDE 错误，这可能与它有关）并在设计时创建了它，分配了所需的所有内容。 现在它可以工作了，但是将 TPresence 组件放回原处会再次出现错误。

谢谢你们的帮助，如果我不能重新打开另一个问题，我现在应该能够解决这个问题了:)

Answer 1

您似乎认为引发异常是因为 Presence1 的 client 字段未设置 - 如果您确实收到异常“Read of address 00000034”，则意味着 SetStatus() 中的 Self 指针> 调用nil。 这表明您对未分配的 TPresence 引用调用 SetStatus()。 从您发布的代码片段中实际上不可能说出其原因，但它应该让您开始调试。

我仍然建议您为自己的自定义组件中的所有组件引用编写适当的 setter 方法 - 首先是因为在调试此类问题时您有更好的钩子（您可以在那里设置断点），其次是因为您应该始终调用TComponent.FreeNotification() 能够跟踪其破坏并将内部引用设置为 nil。

Answer 2

我们可能需要您的更多代码。 您可能没有正确创建 TPresence 实例，这会导致您遇到错误。 尝试给我们一个尽可能简单的导致您的错误的代码片段。