delphi 自定义网络函数：unit net interface uses sysutils ,windows ,dialogs ,winsock ,classes ,comobj ,wininet //得到本机的局域网ip地址 function getlocalip(var localip:string): boolean //通过ip返回机器名 function getnamebyipaddr(ipad

基于MFCSOCKET编程的聊天室程序，在本机运行即本机既当客户端又当服务器，IP地址为127.0.0.1。