Erlang 聊天室程序( 一)

         http://www.cnblogs.com/yjl49/archive/2012/02/24/2371920.html

为了熟悉Erlang的套接字编程开始编写一个“聊天室”程序。基本流程如下：

             1.服务器启动监听指定端口

             2.启动一个gen_server 作为聊天室进程，里面使用ets 保持当前所有客户端连接信息，并负责将某个客户端的消息广播到所有在线客户端

             3.服务器接受客户端连接，并绑定到一个gen_server进程

             4.客户端维护进程接受客户端发送的消息，调用聊天室进程函数进行广播

             5.客户端维护进程接受聊天室发送的消息，转发给客户端

             客户端信息包括id、pid、socket、nickname、sex、age、province 等。

             目前包括以下几个模块：

           echatServer.erl  ：服务器端程序启动模块。

           chat_room.erl ：聊天室模块，一个gen_server负责处理客户端请求，保存了所有客户端的连接信息。

           id_generator.erl：负责为每一个连接的客户端生成唯一ID

           client_session.erl：与客户端socket绑定的gen_server回调模块，接收和发送消息

           chat_acceptor.erl：负责监听端口和处理连接的客户端socket

           代码如下：

           echatServer.erl:

          

           chat_room.erl:

 

 

        id_generator.erl:

 

 

       client_session.erl:

 

 

         chat_acceptor.erl:

 

 

 

                  为了测试这个服务器程序，我用JAVA写了个简单的client端程序，如下： 

    MainForm.java

 

 

             SocketClient.java

 

 

                  测试方法：

                  启动服务器端：

                       >echatServer:start().

                  启动两个客户端：

                        run as java Application

                  效果图：

发送：

发送：

                 服务器端打印出的日志：

 

 

至此基本的聊天功能实现了。顺便说下，以上的服务器端程序将监听到的socket连接交由单独的进程处理了。

还有不足就是客户端退出时会引发服务器端异常退出，这个需要对socket连接断开进行处理，下一步对这个进行修改。