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连接。如果两者不在同一个域内，需要一个策略文件！