2

我正在编写一个多线程聊天服务器应用程序。因此临界区是非常必要的。我刚刚为线程树视图制作了一个包装类。它在客户端中完美运行，但服务器引发了 AV。

有两种形式，FormServer（除了 gui 绘画几乎不做任何处理）和 DataModuleServer，它完成了所有繁重的工作。

首先创建 FormServer。

实际上，线程树视图位于另一个包装类 TRoomTree 中。

TDataModuleServer.Create

procedure TDataModuleServer.cr(Sender: TObject);
begin
  Rooms := TRoomTree.Create (FormServer.tvRooms);

tvRooms : 可视化树视图

T RoomTree.创建

constructor TRoomTree.Create (TV : TTreeView);
begin

  if Assigned (TV) then
    fTreeView.Create (TV)
  else
    exit;

fTreeView : 线程树视图；

TThreadTreeView.Create

constructor TThreadTreeView.Create (TreeView : TTreeView = nil);
begin

  fLock := TCriticalSection.Create;

  if Assigned (TreeView) then
    fTreeView := TreeView
  else
    fTreeView := TTreeView.Create (nil);

end;

fTreeView : 正常的树视图；

现在 TCriticalSection.Create 在 ntdll.dll 中引发 AV 异常。

调用堆栈

:76cac41f KERNELBASE.RaiseException + 0x58
:0040469c NotifyNonDelphiException + $1C
:77ecb42b ; ntdll.dll
uThreadTreeView.TThreadTreeView.Create($26B4300) 
uRoomTree.TRoomTree.Create($26B4300)
uServer.TDataModuleServer.cr($26A48B0)
Classes.TDataModule.DoCreate
Classes.TDataModule.AfterConstruction
System.@AfterConstruction($26A48B0)
Classes.TDataModule.Create(???)
Forms.TApplication.CreateForm(???,(no value))
PlayburnServer.PlayburnServer
:773833aa kernel32.BaseThreadInitThunk + 0x12
:77ea9ef2 ntdll.RtlInitializeExceptionChain + 0x63
:77ea9ec5 ntdll.RtlInitializeExceptionChain + 0x36

任何帮助将不胜感激。

4

1 回答 1

7

中TRoomTree.Create，这行代码

fTreeView.Create(TV);

对您的访问违规负责。那是因为fTreeView在您尝试对其调用方法之前尚未初始化。

Delphi 实例是这样创建的：

fTreeView := TThreadTreeView.Create(TV);

我不确定您的线程模型，但我相信您知道 VCL 控件只能从 GUI 线程访问。

于 2012-10-26T11:08:00.793 回答