Erlang与Flash的Socket通讯－01

最新推荐文章于 2021-06-19 22:31:53 发布

z8214540

最新推荐文章于 2021-06-19 22:31:53 发布

阅读量338

点赞数

分类专栏： Erlang

Erlang 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用Erlang作为服务器端语言与Flash客户端进行网络通信的实验案例。Erlang端通过监听特定端口接收来自Flash客户端的数据，并响应确认信息。Flash端则连接到指定地址并发送消息，接收服务器回应。

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