关于TScreen::TDataModule没有互斥，在Datasnap中引出的BUG

最新推荐文章于 2021-08-13 13:53:40 发布

he_Fly

最新推荐文章于 2021-08-13 13:53:40 发布

阅读量737

点赞数

分类专栏： VCL 文章标签： destructor

本文链接：https://blog.csdn.net/he_Fly/article/details/7387644

版权

VCL 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

Datasnap中的TDSServerModule是继承于TDataModule，TDSServerModule实例的Destory，没有做互斥

destructor TDSServerModuleBase.Destroy;
begin
  //TDataModule
  if OldCreateOrder then DoDestroy;
  if Assigned(RemoveDataModule) then
    RemoveDataModule(Self);
  //TComponent
  Destroying;
  RemoveFreeNotifications;
  DestroyComponents;
  // TPersistent
  RemoveFixups(Self);
  //TProviderDataModule
  CleanProviders;
end;

RemoveDataModule(Self);

解决方法：

对全局的Classes.RemoveDataModule的函数重新赋值自己写的RemoveDataModuleFix，并在函数内互斥

procedure TDataModuleFix.RemoveDataModuleFix(DataModule: TDataModule);
begin
  GlobalNameSpace.BeginWrite;
  try
    g_SaveRemoveDataModule(DataModule);
  finally
    GlobalNameSpace.EndWrite;
  end;
end;