Delphi Indy 聊天实例源代码.rar

DelphiIndy聊天实例，基于CS结构（服务端和客户端）的聊天程序实例，其实，我们不要仅限于聊天程序，在程序添加聊天功能也是聊天，本聊天采用Indy组件实现，你可了解一些Indy的用法。 　　关于CmdType:Integer;的定义：0:发送到指定人,1:发送到指定一批人,2:系统广播 　　另外还有登录判断消息的说明： 　　AErrIDof 　　0:FCommError.ErrMsg:='聊天用户登录成功'; 　　1:FCommError.ErrMsg:='非法登录'; 　　2:FCommError.ErrMsg:='此聊天帐号已登录';