摘要：对于一个socket来说，很容易提供一个侦听消息的多线程服务。Delphi自身也提供了这样的构件：TServerSocket。 不过这里边也需要一点小技巧。 为此，我们要做以下几件事： -将TServerSocket加入main窗体中 -设置Servertype属性为stThreadBlocking -生成一个新单元（如下）来包含服务线程 将下面的代码赋给OnGetThread事件响应函数 ... 阅读全文