M-OSCAR

仅仅作为测试，Flex用Socket连接用Erlang写的服务器，发送一串字符串到服务器，然后Erlang原样发回给Flex～～

Erlang服务端：

server() ->
    {ok,Server} = gen_tcp:listen(1121,[binary,{active,false}]),
    {ok,Client} = gen_tco:accept(Server),
    {ok,Msg} = gen_tcp:recv( Client,0),
    io:format("Received > ~p\n",[Msg]),
    gen_tcp:send(Client,Msg),
    gen_tcp:close(Client),
    gen_tcp:close(Server).

Flex客户端：

private var socket:Socket;

//调用此函数开始连接服务器
private function init():void{
    socket=new Socket();
    socket.addEventListener( Event.CONNECT, onConnect );
    socket.addEventListener( ProgressEvent.SOCKET_DATA, onData );
    socket.connect( “localhost”, 1121 );
    trace(”Connecting ….”);
}

//连接成功后发送数据到服务端
private function onConnect( e:Event ):void{
    trace(”Connected. Sending data ….”);
    socket.writeUTFBytes( “This is just a test” );
}

//输出来自服务端的数据
private function onData( e:ProgressEvent ):void{
    var msg:String=socket.readUTFBytes( socket.bytesAvailable );
    trace( “Received > “+msg );
}