如何将TWSocket的OnDataAvailable()事件推送到我的Delphi 6应用程序中的后台线程？

Question

我有一个Delphi 6应用程序,它使用ICS组件套件来进行套接字通信.我有自己的服务器套接字VCL组件,当新会话可用时创建客户端TWSocket套接字.我创建的客户端套接字确实将Multithreaded属性设置为TRUE,但所做的只是将客户端套接字处理套接字消息的方式更改为对后端线程(非主VCL线程)安全的方式.TWSocket不会产生一个线程来处理套接字数据流量,这正是我所需要的.

我需要在主VCL线程(主用户界面线程)之外进行接收调用,因为到客户端套接字的传入数据是需要在50-100毫秒或更短时间内快速处理的音频数据.换句话说,主VCL线程和音频流上的一次打嗝被中断.这就是为什么我想推送OnDataAvailable()事件,只要传入数据可用于高优先级后台线程,就会触发该事件.换句话说,我想强制属于客户端TWSocket对象的消息处理循环到后台线程.

我相信我可以通过后台线程创建客户端套接字来做到这一点,但我希望避免这种情况,因为目前我使用的VCL组件充当套接字服务器.这是接受传入连接并生成客户端套接字的实体.套接字服务器在主VCL线程上创建.

因此我的问题是,是否有(相对)简单的方法来创建客户端套接字,以便他们使用现有的后台线程来进行套接字处理,尤其是FD_RECV消息处理？如果不是现有的后台线程,那么我将为我创建的每个客户端套接字创建一个,但我需要知道如何确保新的TWSocket对象在运行其处理套接字消息的消息循环时使用该后台线程,那么如何我这样做？

Answer 1

对于其他 ICS/TWSocket 用户，解决方案位于软件包附带的ICS ThrdSrv演示项目中。仔细查看该项目，尤其是它对 ThreadAttach() 和 ThreadDetach() 方法的使用。该示例项目展示了如何创建具有在工作线程上下文中运行的消息泵的客户端套接字。