网上Delphi的Socket服务器优良代码,实在少见,索性写个简化的异步Socket服务器,虽然代码较少,但却该有的都有了,使用的是异步选择WSAAsyncSelect,减少了编写线程的繁琐.可能会问,性能如何?当然使用窗体消息通知,占用的是主线程,侦听.发送.多个客户端的接收都一个线程,大量数据时,性能当然是差强人意的,编写这个代码目的也不在于此.但是在实际的项目中,大数据量的情况也不多,以下是代码:(Delphi7编译) { 最简化的消息异步Socket 异步选择WSAAsyncSelec