Flex与Ruby通过socket实现通简易文本聊天

Socket服务器用Ruby语言实现，代码如下：

require "socket"

server = TCPServer.new("localhost", 5000)
sessions = []
while(session = server.accept)
  sessions << session
  Thread.new(session) do |local_session|
    while(true)
      data = local_session.gets
      puts data
      if data.chop == "quit"
        sessions.delete(local_session)
        local_session.close
      end
      sessions.each do |s|
        s.puts data
      end
    end
  end
end 

flash中有两种类型的socket，分别为XMLSocket和Socket，前者使用起来简单一点，这里我们选用后者，完整代码如下：

 <?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="init()" fontSize="12">
    <mx:Script>
        <![CDATA[
            private var socket:Socket;
            
            private function init():void{
                var host:String = "localhost";
                var port:int = 5000;
                socket = new Socket();
                socket.addEventListener(ProgressEvent.SOCKET_DATA, socketDataHandler);
                socket.addEventListener(Event.CONNECT, connectHandler);
                socket.addEventListener(Event.CLOSE, closeHandler);
                socket.addEventListener(IOErrorEvent.IO_ERROR, ioErrorHandler);
                socket.connect(host, port);
            }
            
            private function connectHandler(event:Event):void{
                sendBtn.enabled = socket.connected;
                connectBtn.enabled = !socket.connected;
            }
            
            private function socketDataHandler(event:ProgressEvent):void{
                while(socket.bytesAvailable){
                    messageTA.text += socket.readMultiByte(socket.bytesAvailable, "UTF-8");
                }
            }
            
            private function closeHandler(event:Event):void{
                sendBtn.enabled = false;
                connectBtn.enabled = true;
            }
            
            private function ioErrorHandler(event:IOErrorEvent):void{
                messageTA.text += event.text + "\n";
            }
            
            private function send():void{
                var bytes:ByteArray = new ByteArray();
                bytes.writeUTFBytes(messageTI.text + "\n");
                socket.writeBytes(bytes);
                socket.flush();
            }
        ]]>
    </mx:Script>
    <mx:VBox width="100%" height="100%" horizontalAlign="center" verticalAlign="middle">
        <mx:TextArea id="messageTA" width="400" height="300" editable="false"/>
        <mx:TextInput id="messageTI"/>
        <mx:HBox width="100%" horizontalAlign="center">
            <mx:Button id="sendBtn" label="发送数据" click="send()" enabled="false"/>
            <mx:Button id="connectBtn" label="链接服务器" click="init()"/>
        </mx:HBox>
    </mx:VBox>
</mx:Application>
当输入"quit"时，断开Socket连接。如果两者不在同一个域内，需要一个策略文件！