2008年11月18日
使用TServerSocket构件提供多线程服务
摘要： 对于一个socket来说，很容易提供一个侦听消息的多线程服务。Delphi自身也提供了这样的构件：TServerSocket。 不过这里边也需要一点小技巧。 为此，我们要做以下几件事： -将TServerSocket加入main窗体中 -设置Servertype属性为stThreadBlocking -生成一个新单元（如下）来包含服务线程 将下面的代码赋给OnGetThread事件响应函数 ... 阅读全文
posted @ 2008-11-18 15:12 打不死的小强 阅读(278) 评论(0) 推荐(1) 编辑