草庐IT

windows - 与 GUI 应用程序相比，相同的代码作为 Windows 服务运行得更慢

coder 2024-06-08 原文

我有一些 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:

我终于回到了可以继续关注这个问题的位置。我发现两个过程在五分钟的运行中都具有大致相同的命中数，但在服务中执行时间要长得多。对于 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 的直接后代，没有任何重载。

最佳答案

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

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

关于windows - 与 GUI 应用程序相比，相同的代码作为 Windows 服务运行得更慢，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/13675264/

windowsGUIsectionbeginperformancedelphiwindows-servicesdelphi-2007

有关windows - 与 GUI 应用程序相比，相同的代码作为 Windows 服务运行得更慢的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep，它会中断应用程序。否则，计算机将持续运行数周，直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗？欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数，使应用程序能够通知系统它正在使用中，从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby - 将差异补丁应用于字符串/文件 - 2

    对于具有离线功能的智能手机应用程序，我正在为Xml文件创建单向文本同步。我希望我的服务器将增量/差异(例如GNU差异补丁)发送到目标设备。这是计划:Time=0Server:hasversion_1ofXmlfile(~800kiB)Client:hasversion_1ofXmlfile(~800kiB)Time=1Server:hasversion_1andversion_2ofXmlfile(each~800kiB)computesdeltaoftheseversions(=patch)(~10kiB)sendspatchtoClient(~10kiBtransferred)Cl

  3. ruby - 如何在 buildr 项目中使用 Ruby 代码？ - 2

    如何在buildr项目中使用Ruby？我在很多不同的项目中使用过Ruby、JRuby、Java和Clojure。我目前正在使用我的标准Ruby开发一个模拟应用程序，我想尝试使用Clojure后端(我确实喜欢功能代码)以及JRubygui和测试套件。我还可以看到在未来的不同项目中使用Scala作为后端。我想我要为我的项目尝试一下buildr(http://buildr.apache.org/)，但我注意到buildr似乎没有设置为在项目中使用JRuby代码本身!这看起来有点傻，因为该工具旨在统一通用的JVM语言并且是在ruby中构建的。除了将输出的jar包含在一个独特的、仅限ruby​​

  4. ruby - 如何指定 Rack 处理程序 - 2

    Rackup通过Rack的默认处理程序成功运行任何Rack应用程序。例如:classRackAppdefcall(environment)['200',{'Content-Type'=>'text/html'},["Helloworld"]]endendrunRackApp.new但是当最后一行更改为使用Rack的内置CGI处理程序时，rackup给出“NoMethodErrorat/undefinedmethod`call'fornil:NilClass”:Rack::Handler::CGI.runRackApp.newRack的其他内置处理程序也提出了同样的反对意见。例如Rack

  5. ruby-on-rails - Rails 源代码 : initialize hash in a weird way? - 2

    在rails源中:https://github.com/rails/rails/blob/master/activesupport/lib/active_support/lazy_load_hooks.rb可以看到以下内容@load_hooks=Hash.new{|h,k|h[k]=[]}在IRB中，它只是初始化一个空哈希。和做有什么区别@load_hooks=Hash.new 最佳答案 查看rubydocumentationforHashnew→new_hashclicktotogglesourcenew(obj)→new_has

  6. ruby - 在 Ruby 中编写命令行实用程序 - 2

    我想用ruby​​编写一个小的命令行实用程序并将其作为gem分发。我知道安装后，Guard、Sass和Thor等某些gem可以从命令行自行运行。为了让gem像二进制文件一样可用，我需要在我的gemspec中指定什么。 最佳答案 Gem::Specification.newdo|s|...s.executable='name_of_executable'...endhttp://docs.rubygems.org/read/chapter/20 关于ruby-在Ruby中编写命令行实用程序

  7. ruby-on-rails - Rails 应用程序之间的通信 - 2

    我构建了两个需要相互通信和发送文件的Rails应用程序。例如，一个Rails应用程序会发送请求以查看其他应用程序数据库中的表。然后另一个应用程序将呈现该表的json并将其发回。我还希望一个应用程序将存储在其公共(public)目录中的文本文件发送到另一个应用程序的公共(public)目录。我从来没有做过这样的事情，所以我什至不知道从哪里开始。任何帮助，将不胜感激。谢谢! 最佳答案 无论Rails是什么，几乎所有Web应用程序都有您的要求，大多数现代Web应用程序都需要相互通信。但是有一个小小的理解需要你坚持下去，网站不应直接访问彼此

  8. ruby - 无法运行 Rails 2.x 应用程序 - 2

    我尝试运行2.x应用程序。我使用rvm并为此应用程序设置其他版本的ruby​​:$rvmuseree-1.8.7-head我尝试运行服务器，然后出现很多错误:$script/serverNOTE:Gem.source_indexisdeprecated,useSpecification.Itwillberemovedonorafter2011-11-01.Gem.source_indexcalledfrom/Users/serg/rails_projects_terminal/work_proj/spohelp/config/../vendor/rails/railties/lib/r

  9. ruby - RSpec - 使用测试替身作为 block 参数 - 2

    我有一些Ruby代码，如下所示:Something.createdo|x|x.foo=barend我想编写一个测试，它使用double代替block参数x，这样我就可以调用:x_double.should_receive(:foo).with("whatever").这可能吗？ 最佳答案 specify'something'dox=doublex.should_receive(:foo=).with("whatever")Something.should_receive(:create).and_yield(x)#callthere

  10. ruby-on-rails - Rails 应用程序中的 Rails : How are you using application_controller. rb 是新手吗？ - 2

    刚入门rails，开始慢慢理解。有人可以解释或给我一些关于在application_controller中编码的好处或时间和原因的想法吗？有哪些用例。您如何为Rails应用程序使用应用程序Controller？我不想在那里放太多代码，因为据我了解，每个请求都会调用此Controller。这是真的？ 最佳答案 ApplicationController实际上是您应用程序中的每个其他Controller都将从中继承的类(尽管这不是强制性的)。我同意不要用太多代码弄乱它并保持干净整洁的态度，尽管在某些情况下ApplicationContr

随机推荐