关于gen_tcp:controlling_process函数的使用
2013-05-10 15:53
218 查看
网上的文档:
http://blog.csdn.net/skyman_2001/article/details/6582938
http://erlang-china.org/misc/using-gen_tcp-controlling_process.html
对于该函数的理解:
最初紧紧知道该函数是将一个Socket和一个进程的Pid绑定在一起,但是对于“发送给这个Socket的信息就相当于发送到绑定的进程Pid”不是很理解。如果绑定的Pid是一个gen_server或者是个gen_fsm该怎么接受发送到这个Socket上的数据。百思不得其解啊,后来问了一个大牛,才知道可以在handle_info函数里面接受数据,此时对上面的话立刻理解。
测试代码如下:
client:
server:采用的是非阻塞模式,{active, true}。gen_tcp:controlling_process() 函数也相当重要。
player就是相应起的gen_server。
总结:
(1)、gen_tcp:controlling_process
(2)、在handle_info里面处理信息。
http://blog.csdn.net/skyman_2001/article/details/6582938
http://erlang-china.org/misc/using-gen_tcp-controlling_process.html
对于该函数的理解:
最初紧紧知道该函数是将一个Socket和一个进程的Pid绑定在一起,但是对于“发送给这个Socket的信息就相当于发送到绑定的进程Pid”不是很理解。如果绑定的Pid是一个gen_server或者是个gen_fsm该怎么接受发送到这个Socket上的数据。百思不得其解啊,后来问了一个大牛,才知道可以在handle_info函数里面接受数据,此时对上面的话立刻理解。
测试代码如下:
client:
-module(client). -compile(export_all). connect(Port)-> {ok, Socket} = gen_tcp:connect("localhost", Port, [binary, {packet, 0}]), Socket. say(Socket, Data) -> ok = gen_tcp:send(Socket, term_to_binary(Data)), receive {tcp, Socket, Bin} -> io:format("Client received: ~p~n", [binary_to_term(Bin)]) % gen_tcp:close(Socket) end.
server:采用的是非阻塞模式,{active, true}。gen_tcp:controlling_process() 函数也相当重要。
-module(server). -compile(export_all). start(Port) -> {ok, Listen} = gen_tcp:listen(Port, [binary, {packet, 0}, {reuseaddr, true}, {active, true}]), spawn(fun() -> loop(Listen) end). loop(Listen) -> {ok, Socket} = gen_tcp:accept(Listen), {ok, Pid} = player:start_link(), gen_tcp:controlling_process(Socket, Pid), loop(Listen).
player就是相应起的gen_server。
%%-------------------------------------------------------------------- %% @doc %% Starts the server %% %% @spec start_link() -> {ok, Pid} | ignore | {error, Error} %% @end %%-------------------------------------------------------------------- start_link() -> gen_server:start_link(?MODULE, [], []).该函数可能需要更改,因为每次spwan一个新的server的时候,默认是要为该server注册名字的,所以多个连接时就会出错。
%%-------------------------------------------------------------------- %% @private %% @doc %% Handling all non call/cast messages %% %% @spec handle_info(Info, State) -> {noreply, State} | %% {noreply, State, Timeout} | %% {stop, Reason, State} %% @end %%-------------------------------------------------------------------- handle_info({tcp, Socket, Data}, State)-> io:format("Pid:~p Socket:~p Data:~p~n", [self(), Socket, binary_to_term(Data)]), gen_tcp:send(Socket, term_to_binary("haha")), {noreply, State}; handle_info(_Info, State) -> {noreply, State}.该函数是最重要的,这里面可以收到这个gen_server对应的socket收到的消息。
总结:
(1)、gen_tcp:controlling_process
(2)、在handle_info里面处理信息。
相关文章推荐
- erlang节点间通信使用erlang send 和使用gen_tcp socket性能的对比(
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 使用netty4.x 编写TCP服务器关于握手问题
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 关于使用TCP或者其他链接方式时数据接收问题
- gen_tcp:send的深度解刨和使用指南(初稿)
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 关于tcp 创建用来listen的socket时使用的地址
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 关于使用VS进行网络编程中Tcp\Udp的使用
- 关于使用UDP(TCP)跨局域网,NAT穿透
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 关于使用UDP(TCP)跨局域网,NAT穿透的心得
- 使用Eclipse-Maven-git做Java开发(4)--关于eclipse的更详细介绍
- 关于MySQL在内网中使用另一台机器访问的问题
- 关于TCP编程,你是否为此迷惑过
- 【PHP】中关于session使用
- 关于TCP连接建立与终止那点事
- 关于git的使用