Delphi基于UDP实现P2PChatPlus聊天功能的程序源码，只是实现了基本的基于UDP穿NAT的P2P，其他还有TCP和UPNP等大家一起研究吧。之前一直有人问TMMessageMemo找不到，其实自己的开发包里面的一个小组件，仅仅是用来显示消息的，如果你稍微用心地读一下代码，就会发现用一个Memo就可以替换掉了。这次为了避免再有这样的事情出现，我把“MMessageMemo.pas”一起打包进来了，自己装一下吧，如果你连安装组件都不会，我就不说什么了……