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连接断开进行处理,下一步对这个进行修改。

展开阅读全文

没有更多推荐了,返回首页