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();
??????? }
??? }
}
