闲着没事,写一个socket的基本应用,针对初学者,老鸟们可以掠过。本示例采用Delphi2010编写。
本示例中,涉及到的缓冲,均采取1024长度,采用的select轮询,现在select轮询已经被认为是比较低级的方法了,微软也不推荐使用,这里就以它开头吧,有时间,大家可以研究其他用法,比如WSAAsyncSelect模型 ,WSAEventSelect模型 ,Overlapped I/O 事件通知模型 ,Overlapped I/O 完成例程模型 ,IOCP模型 。下面开始贴代码了:
服务端单元:SocketServer
服务端窗体:ServerMain
下面是客户端,客户端比较简单,只是实现了发送字符串。
客户端单元:SocketClient
客户端窗体:ClientMain