相同的代码作为 Windows 服务运行比 GUI 应用程序慢

Question

我有一些 Delphi 2007 代码在两个不同的应用程序中运行，一个是 GUI 应用程序，另一个是 Windows 服务。奇怪的是，虽然 GUI 应用程序在技术上似乎有更多“要做”，绘制 GUI，计算一些统计数据等等，但 Windows 服务在运行时始终使用更多的 CPU。 GUI 应用程序使用大约 3-4% 的 CPU 功率，服务使用在 6-8% 的区域。

同时运行它们时，两个应用程序的 CPU 负载大约翻倍。

两个应用程序的基本代码相同，只是在 Windows 窗体应用程序中添加了 GUI 代码。

这种行为有什么原因吗？ Windows 服务应用程序是否有某种固有的开销，或者我是否需要查看代码以在我的书中找到这种意外行为的来源？

编辑：

有时间更仔细地查看代码后，我认为下面关于 GUI 应用程序花费一些时间等待重绘，从而导致 CPU 负载下降的建议可能是不正确的。这两个应用程序都是线程化的，这意味着 GUI 重绘不应影响 CPU 负载。

为了确保我首先尝试从应用程序中删除所有 GUI 组件，只留下一个空白表单。这并没有增加程序的 CPU 负载。然后，我在用于更新 UI 的工作线程中删除了所有对 Synchronize 的调用。这具有相同的结果：CPU 负载没有改变。

服务中的代码如下所示：

procedure TLsOpcServer.ServiceExecute(Sender: TService);
begin
  // Initialize OPC server as NT Service
  dmEngine.AddToLog( sevInfo, 'Service', 'Name', Sender.Name );
  AddLocalServiceKeysToRegistry( Sender.Name );

  dmEngine.AddToLog( sevInfo, 'Service', 'Execute', 'Started' );
  dmEngine.Start( True );
  //
  while not Terminated do
  begin
    ServiceThread.ProcessRequests( True );
  end;

  dmEngine.Stop;
  dmEngine.AddToLog( sevInfo, 'Service', 'Execute', 'Stopped' );
end;

dmEngine.Start 将启动并注册 OPC 服务器并初始化一个套接字。然后它启动一个线程，对传入的 OPC 信号做一些事情。在 GUI 应用程序的主窗体上的 FormCreate 中进行了完全相同的调用。

接下来我将研究 GUI 应用程序是如何启动的，我没有编写这段代码，所以试图弄清楚它是如何工作的有点冒险:)

编辑2

这有点有趣。我分别运行这两个应用程序正好 1 分钟，运行 AQTime 对它们进行基准测试。这是结果中最有趣的部分：

在服务中：

过程名称： TSignalList::HandleChild

执行时间： 20.105963821084

点击次数： 5961231

在 GUI 应用程序中：

过程名称： TSignalList::HandleChild

执行时间： 7.62424101324976

点击次数： 6383010

编辑 3：

我终于回到了可以继续关注这个问题的位置。我发现两个程序在运行 5 分钟后都具有大致相同的命中数，但在服务中执行时间要长得多。对于 HandleValue，命中计数为 4 300 258，服务中的执行时间为 21.77 秒，而在 GUI 应用程序中，命中计数为 4 254 018，执行时间为 9.75 秒。

代码如下所示：

function TSignalList.HandleValue(const Signal: string; var Tag: TTag; const CreateIfNotExist: Boolean):        HandleStatus;
var
  Index: integer;
begin
  result := statusNoSignal;
  Tag := nil;

  if not Assigned( Values ) then
  begin
    Values := TValueStrings.Create;
    Values.CaseSensitive  := defDefaultCase;
    Values.Sorted         := True;
    Values.Duplicates     := dupIgnore;
    Index := -1;  // Garantied no items in list
  end else
  begin
    Index := Values.IndexOf( Signal );
  end;

  if Index = -1 then
  begin
    if CreateIfNotExist then
    begin
      // Value signal does not exist create it
      Tag := TTag.Create;
      if Values.AddObject( Signal, Tag ) > -1 then
      begin
        result := statusAdded;
      end;
    end;
  end else
  begin
    Tag := TTag( Values.Objects[ Index ] );
    result := statusExist;
  end;
end;

两个应用程序进入“CreateIfNotExist”案例的次数完全相同。 TValueStrings 是 TStringList 的直接后代，没有任何重载。

Answer 1

您是否为核心功能的执行计时？如果是这样，您是否测量了差异？我认为，如果您这样做，您不会发现它们之间有太大区别，除非您在该核心功能的代码中添加其他功能，例如更新 GUI。

消耗更少的 CPU 并不意味着它运行得更慢。 GUI 应用程序可能会更频繁地等待重绘，这也取决于 GPU（可能还有系统的其他部分）。因此，GUI 应用程序可能会消耗更少的 CPU 功率，因为​​ CPU 正在等待系统的其他部分才能继续执行下一条指令。