我使用 Indy 10 的 TIdCmdTCPServer 组件来实现我的客户端-服务器应用程序。问题是来自客户端的请求可能相当复杂,而且我的服务器应用程序的 GUI 部分会立即失去响应能力。从Indy Documentation,我得到了那个 Indy:
使用线程优先级 tpHighest 为绑定创建和启动侦听器线程。
我可以改变这种行为吗?
我使用 Indy 10 的 TIdCmdTCPServer 组件来实现我的客户端-服务器应用程序。问题是来自客户端的请求可能相当复杂,而且我的服务器应用程序的 GUI 部分会立即失去响应能力。从Indy Documentation,我得到了那个 Indy:
使用线程优先级 tpHighest 为绑定创建和启动侦听器线程。
我可以改变这种行为吗?
为侦听线程设置较低的优先级不会解决您的问题。侦听器线程所做的只是侦听,这不是 CPU 密集型任务。在连接到达之前,该线程根本不做任何事情。您可以使用 Process Explorer 之类的工具来确认这一点;我认为它可以按线程显示 CPU 使用率。
将优先级设置得较低实际上可能会使您的服务器看起来响应速度较慢,因为当连接到达时,侦听该连接的线程将以较低的优先级运行,并且无法立即处理该连接。在您的服务器开始处理其请求之前,客户端将不得不等待一段时间。
请求不在侦听器线程中处理。侦听器线程将大部分工作委托给其他线程。如果您只有一个 TCP 绑定,那么您将只有一个侦听器线程,但您可以处理许多并发连接。尽管只有一个侦听器,但每个连接都将由一个单独的线程处理。
OnBeforeListenerRun
无论如何,您可以通过处理服务器对象的事件来更改优先级。它接收对TIdThread
表示侦听器线程的引用,因此您可以为其Priority
属性分配不同的值。此外,您有源代码,因此您可以进入并更改IdGlobalCore.pastpListener
中常量的定义。代码使用该值,而不是直接使用。tpHighest
正如 Rob 指出的那样,不要更改侦听器线程的优先级,而是降低工作线程的优先级。可以在TIdCmdTCPServer实例的OnConnect()处理程序中访问它,如下所示:
procedure TServerForm.IdCmdTCPServer1Connect(AContext: TIdContext);
begin
// sanity checks need to go here
TIdYarnOfThread(AContext.Yarn).Thread.Priority := tpLower;
end;