flex聊天室程序

<?xml version="1.0" encoding="utf-8"?>
<mx:Application xmlns:mx="http://www.adobe.com/2006/mxml" layout="absolute" creationComplete="initApp()">


<mx:Script>
<![CDATA[
  import flash.events.SecurityErrorEvent;
  import flash.events.IOErrorEvent;
  import flash.events.ProgressEvent;
 
  import flash.net.Socket;
 
  import flash.utils.ByteArray;
 
  private var socket:Socket = new Socket();
  internal function initApp():void
  {
   //socket.addEventListener(Event.CLOSE,closeHandler);
   socket.addEventListener(Event.CONNECT,connectHandler);
   socket.addEventListener(IOErrorEvent.IO_ERROR,ioErrorHandler);
   socket.addEventListener(SecurityErrorEvent.SECURITY_ERROR,securityErrorHandler);
   socket.addEventListener(ProgressEvent.SOCKET_DATA,socketDataHandler);
  }
 
  internal function closeHandler(evt:Event):void
  {
   output("connect fail and close");
  }
 
  internal function connectHandler(evt:Event):void
  {
   output("connect success");
  }
 
  internal function ioErrorHandler(evt:IOErrorEvent):void
  {
   output("io error:"+evt.text);
  }
 
  internal function securityErrorHandler(evt:SecurityErrorEvent):void
  {
   output("security error :"+evt.text);
  }
 
  internal function doConnect():void
  {
   var server:String = server_txt.text;
   var port:Number =Number(port_txt.text);
  
   socket.connect(server,port);
  
  }
 
  internal function socketDataHandler(evt:ProgressEvent):void
  {
   var msg:String;
   while(socket.bytesAvailable)
   msg+=socket.readMultiByte(socket.bytesAvailable,"utf8");
   var arr:Array = msg.split('\n');
   for(var i:int=0;i<arr.length;i++)
   {
    if(arr[i].length>1)
    {
     var myPattern:RegExp=/\r/;
     arr[i]=arr[i].replace(myPattern,'');
     output(arr[i]);
    }
   }
  }
 
  internal function sendMessage(msg:String):void
  {
 
    var message:ByteArray= new ByteArray();
message.writeMultiByte(msg, "gb2312");  //指定字符编码集
message.length = 32;
socket.writeBytes(message);
    socket.flush();
  }
 
  internal function output(msg:String):void
  {
   msg=msg+"\n";
   output_txt.text+=msg;
  }
 
]]>
</mx:Script>
<mx:Panel x="362" y="26" width="360" height="336" layout="absolute" title="输出信息" fontSize="12">
<mx:TextArea x="0" y="73" width="100%" height="213" id="output_txt" fontSize="12"/>
<mx:TextInput x="23" y="37" id="input_txt" text="输入信息" enter="sendMessage(input_txt.text)" fontSize="12"/>
<mx:Button x="246" y="37" label="发送" click="sendMessage(input_txt.text)" fontSize="12"/>

</mx:Panel>
<mx:Panel x="57" y="38" width="250" height="200" layout="absolute" title="登陆窗口" fontSize="12">
  <mx:Label x="10" y="10" text="服务器地址" fontSize="12"/>
  <mx:TextInput x="73" y="8" width="147" id="server_txt" text="127.0.0.1" fontSize="12"/>
  <mx:Label x="10" y="51" text="端口" fontSize="12"/>
  <mx:TextInput x="73" y="49" width="147" id="port_txt" text="8600" fontSize="12"/>
  <mx:Button x="73" y="109" label="连接" click="doConnect()" fontSize="12"/>
</mx:Panel>
<mx:VSlider x="82" y="286" enabled="true"/>
</mx:Application>