Datasnap - 防止用户运行另一个实例[重复]答案

【问题标题】：Datasnap - prevent users from running another instance [duplicate]Datasnap - 防止用户运行另一个实例[重复]
【发布时间】：2013-12-08 16:36:09
【问题描述】：

如果 Datasnap 服务器的一个实例正在运行，尝试打开另一个实例会使第二个实例崩溃。如何防止用户打开多个 datasnap 服务器实例？

在创建服务器应用程序时：

Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TServerContainer1, ServerContainer1);
  Application.Run;

我尝试将 LMDOneInstance 放在 Form1 上，但服务器仍然不断打开另一个实例（在 Windows 任务管理器中可见）。它不会使新创建的实例崩溃，而只是创建另一个进程。

【问题讨论】：

当你说“试图打开另一个”时，你的意思是“试图启动另一个服务器实例”吗？我问的原因是我不清楚您为什么首先允许最终用户启动服务器...
创建一个全局互斥体（SyncObjs.TMutex）来检查计算机上是否已经有一个实例在运行
MartynA - 这不会发生（我希望如此），但以防万一......
@user763539。避免它的最好方法是不允许他们执行对服务器的访问。
@MartynA 是对的。试图阻止用户这样做只会混淆你的代码。告诉他们不要这样做。

标签： delphi delphi-xe4 datasnap

【解决方案1】：

将JvAppInstance 放在数据模块上，它会处理其余部分。

【讨论】：

没有用于delphi xe4的jedi vcl组件
这是评论，不是答案。它应该按原样发布到原始问题中。