Erlang与Flash的Socket通讯－01

晚上做了下实验，Erlang端用{packet,2}格式，Flash端使用writeUTF和readUTF函数，正好格式一致，不需要自己解析两个字节长度信息。

Erlang端的代码：
-module(server).
-export([start/1, server_proc/1]).

start (Port) ->
??? {ok, Sock} = gen_tcp:listen(Port, [binary, {packet, 2}, {active, false}]),

??? server_loop(Sock).

server_loop (LSock) ->
??? {ok, Sock} = gen_tcp:accept(LSock),

??? spawn(?MODULE, server_proc, [Sock]),

??? server_loop(LSock).

server_proc (Sock) ->
??? Request = case gen_tcp:recv(Sock, 0) of
??????? {ok, ReqBin}??? ->
??????????? binary_to_list(ReqBin);
??????? {error, closed} ->
??????????? io:format("Client closed~n"), exit(closed);
??????? {error, Reason} ->
??????????? io:format("Error: ~s~n", Reason), exit(Reason)
??? end,

??? io:format("Received: ~p~n", [Request]),

??? Response = "Done!",

??? gen_tcp:send(Sock, Response),

??? server_proc(Sock).

Flash端实验代码：
package
{
??? import flash.net.Socket;
??? import flash.display.Sprite;
??? import flash.events.ProgressEvent;

??? public class Main extends Sprite
??? {
??????? private var sock:Socket;

??????? public function Main ()
??????? {
??????????? sock = new Socket();

??????????? sock.addEventListener(ProgressEvent.SOCKET_DATA, function (event:ProgressEvent):void
??????????? {
??????????????? trace(sock.readUTF());
??????????????? sock.close();
??????????? });

??????????? sock.connect("localhost", 10086);

??????????? sock.writeUTF("Hello World!");

??????????? sock.flush();
??????? }
??? }
}