与Erlang服务器的闪存通信

这似乎是一个二郎问题。我有这个代码来测试发送数据的客户端,用actionscript 3编写:

var socket:Socket=new Socket("localhost", 2345);
socket.addEventListener(Event.CONNECT, connected);

private function connected(event:Event):void {
    socket.writeInt(12); //packet length, should be correct? 4 bytes each?
    socket.writeInt(3);
    socket.writeInt(6);
    socket.writeInt(9);
    socket.flush();
}

然后我有一个用Erlang编写的小型服务器:

start_nano_server() ->
    {ok, Listen} = gen_tcp:listen(2345, [binary, {packet, 0},
                     {reuseaddr, true},
                     {active, true},
                    {packet_size, 128}]),
    {ok, Socket} = gen_tcp:accept(Listen),
    gen_tcp:close(Listen), 
    receive_data(Socket, []).

receive_data(Socket, SoFar) ->
    receive
    {tcp,Socket,Bin} ->   
        receive_data(Socket, [Bin|SoFar]);
    {tcp_closed,Socket} ->
        Bytes=list_to_binary(reverse(SoFar)),
        io:format("~p~n",[Bytes])
    end.

现在,不管我从客户那里发什么,我总是 [<<0,0,0,4,0,0,0,32>>] 作为回应。我可以尝试将字节直接写入套接字,而不是Ints,我得到了同样的结果。我可以写或多或少的数据,同样的结果。UTF字符串的结果相同。即使将“4”指定为数据包头长度,我也只能得到 [<<0,0,0,32>>] 相反。我不明白我在这里做错了什么。