用delphi的SocketServer控件实现远程传输,多个客户端可以连接一个服务器,并且服务器可以选择性地给客户端发数据。第一次发源代码,写的不好请见谅!