T语言如何写端口监 听功能

漫天娱乐社区

RT

求例程

chenxiaoman

____________________//服务端代码:__________________ 网络.初始化() //初始化网络环境 服务器套接字句柄=网络.套接字(1) //创建流式(TCP)套接字 网络.绑定(服务器套接字句柄,9999) //开启了计算机的9999端口,供外界连接 网络.**(服务器套接字句柄,5) //**套接字,设置可连接数为5个 返回IP,发送缓存="客户端,你好,我是服务器",接收缓存 循环(真)//循环接受处理连接     客户端套接字句柄=网络.接受(服务器套接字句柄,返回IP)//这里程序会挂起等待,直到有客户端连接到来     网络.发送(客户端套接字句柄,发送缓存)//向指定客户端发送一串字符串     网络.接收(客户端套接字句柄,接收缓存) //接收从客户端发送的字串     辅助.消息框(接收缓存) //打印从客户端接收的字串     网络.关闭套接字(客户端套接字句柄) //关闭套接字释放资源     如果(接收缓存=="关闭") //客户端如果发送 关闭 服务器将关闭         辅助.消息框("服务器关闭")         跳出     如果结束 循环结束 网络.关闭套接字(服务器套接字句柄) //关闭套接字释放资源 网络.关闭() //关闭网络环境释放资源 //____________________客户端代码:__________________ 网络.初始化() //初始化网络环境 客户端套接字句柄=网络.套接字(1) //创建流式(TCP)套接字 网络.连接(客户端套接字句柄,"127.0.0.1",9999) //这里测试所以连接的是本机 发送缓存="服务器,你好,我是客户端",接收缓存 网络.接收(客户端套接字句柄,接收缓存) //接收从服务器发送的字串 辅助.消息框(接收缓存) //打印从服务器接收的字串 网络.发送(客户端套接字句柄,发送缓存)//向指定服务器发送一串字符串 网络.关闭套接字(客户端套接字句柄) //关闭套接字释放资源 网络.关闭() //关闭网络环境释放资源

2645572175

{:soso__243768207940266248_3:}