Delphi 中 CPU 使用率 100%

Question

我使用 Indy 9 和 Delphi 5。在我的应用程序中，我想通过 UDP 与网络设备通信。 所以我使用UDPServer comp。 在从 TThread 派生的类中。 当我编写类似以下代码时，CPU 使用率为 100%。

在线程中：

while not terminated do begin
  if GetMessage(Msg, 0, 0, 0) then begin
    if Msg.message = WM_UDPMSG then
      Break
    else
      DispatchMessage(Msg);
  end;
end;

和 OnUDPRead 事件：

  try    
    // Processing the data here
  except
    PostThreadMessage(ThreadId, WM_UDPMSG, 0, 0);
  end;

当我在 while-do 循环或 OnUDPRead 事件中使用 Sleep 函数时，没有任何变化。 CPU使用率仍然是100%。

我的线程优先级是正常。

我该如何解决我的问题？

Answer 1

您遇到的问题是因为您在 GUI 线程中接收 UDP 数据，但想要在另一个线程中处理该数据。

真正的问题是您尝试以阻塞方式使用异步组件。 更好的解决方案是使用真正的阻塞 UDP 通信库，例如 synapse 。 然后就很容易等待线程中接收新数据。

你可以这样写：

while not Terminated do
begin
  BytesRead := FSocker.RecvBufferEx(@(Buffer[0]), BufferSize, Timeout);
  if (BytesRead = 0) then
  begin
    // continue or exit if the receiving Failed
    case FSocket.LastError of
      0, WSAETIMEDOUT: Continue;
      WSAECONNRESET, WSAENETRESET,
        WSAENOTCONN, WSAECONNABORTED,
        WSAENETDOWN:
        begin
          CloseConnection;
          Exit;
        end;
    else
      CloseConnection;
      Exit;
    end;    
  end;
  // process the data in the buffer
end;

Answer 2

我对delphi代码不熟悉，但是你正在运行busy-wait 正在磨你的CPU的机制。

在循环中引入睡眠或延迟只会隐藏问题。 我建议使用更好的方法来接收消息/事件。 存在许多解决方案，例如观察者-侦听器模式或线程等待和通知方案。

---

Some helpful links in response to your comment:

• delphi 中的线程等待通知
• 观察者模式

Answer 3

1 我认为您需要高于 9.0.0.18 的 Indy 版本。 较旧的有令人停止的线程错误。 其中包括随 Delphi 一起提供的 Indy 版本，直至版本 7。

2 查看有关如何使用 Indy 的示例代码。

http://www.indyproject.org/demos/index.html

Answer 4

是否有一个 GetMessage 版本可以等待（阻塞线程）直到消息到达？

Answer 5

我不知道 GetMassage 的版本。 但它在 Windows.pas 中声明如下

function GetMessage; external user32 name 'GetMessageA';

Answer 6

这个项目是一个非常大的项目。 所以更新 Indy 对我来说很困难。 但如果你确定问题是因为旧版本的 Indy，我会更新它。

我看过所有印地演示。 这些演示非常简单。 在我的项目中，我的数据传输速度非常快。 （如实时录音机）