erlang 怎么和 c/c++ 发送消息，交互，(send ,receive msg message)

最新推荐文章于 2025-08-13 10:05:15 发布

转载最新推荐文章于 2025-08-13 10:05:15 发布 · 1.4k 阅读

本文深入探讨了使用C语言和Erlang编写客户端与服务器之间的通信过程，详细介绍了设置socket、发送与接收数据的方法，并通过实例演示了如何在不同环境下实现有效的数据交换。

直接链接是个贴吧链接： http://tieba.baidu.com/p/3200946907

注意这里的c代码是错误写法，该吧主试验了服务端可以接受来自c代码的请求，但是c没能接受回应，

因为c把 send 和 receive 写到了一个函数，我认为应当另外写个回调函数，用来接受服务器的response。

但是整套代码还是值得学习。大体思维是正确的。

//////////////////////////////////////////////////////////////////////////////服务器端//////////////////////////////////////////////////////////////////////////////

%% @author google
%% @doc @todo Add description to erlTcpSer.

-module(erlTcpSer).

%% ====================================================================
%% API functions
%% ====================================================================
-export([start/0]).

%%{active, true} 主动模式，客户端速度过快可能导致服务端内存不足而崩溃
%%{active, false} 被动模式, 在接收数据的地方调用 gen_tcp:recv ,可能等待一个具体的客户端而阻塞在那里
%%{active, once} 半阻塞模式, 主动仅针对一个消息，在控制进程发送完一个数据后，必须显示调用inet:setopts(Socket, [{active, once}])
%%重新激活以便接收下一个消息（在次之前处于阻塞状态），可实现流量控制防止服务器被过多消息淹没。

start () ->
case gen_tcp:listen (2345, [binary, {packet, 4}, {reuseaddr, true}, {active, once}]) of
{ok, ListenSocket} ->
spawn (fun () -> accept_client (ListenSocket) end );
_ -> {listen_error}
end.

accept_client (ListenSocket) ->
case gen_tcp:accept (ListenSocket) of
{ok, ClientSocket} ->
spawn (fun () -> accept_client (ListenSocket) end),
loop (ClientSocket);
_ -> {accept_error}
end.

do_recv(ClientSocket) ->
gen_tcp:recv(ClientSocket, 0),
do_recv(ClientSocket).

loop (ClientSocket) ->
%% get_tcp:recv (ClientSocket, Bin),
%% Reply = gen_tcp:recv(ClientSocket, 37),
%% inet:setopts(ClientSocket, [{active, once}]),
%%
%% io:format("Server (unpacked) ~p~n",[Reply]),
%% gen_tcp:send(ClientSocket,term_to_binary(Reply)),
%% loop(ClientSocket).
receive
{tcp, ClientSocket, Bin} ->
io:format ("Server received binary"),
io:format ("Server received binary = ~p ~n ", [Bin]),
Str = binary_to_term(Bin),
io:format("Server (unpacked) ~p~n",[Str]),
Reply = Str,
timer:sleep(5000),
io:format("Server replying = ~p~n",[Reply]),
gen_tcp:send(ClientSocket,term_to_binary(Reply)),
loop(ClientSocket);

{tcp_closed, ClientSocket} ->
io:format("Client closed~n")

end.

//////////////////////////////////////////////////////////////////////////////c 的客户端，直接从网上拷贝下来的 //////////////////////////////////////////////////////////////////////////////

/*
* client.c
*
* Created on: 2014年7月30日
* Author: google
*/

#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <sys/socket.h>
#include <stdlib.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#include <unistd.h>

#define MAXBUF 512

int main(int argc, char **argv)
{
int sockfd, len;
struct sockaddr_in server_addr;
char buffer[MAXBUF + 1];

if (argc != 3) {
printf("参数正确格式如下：\nIP地址端口\n127.0.0.1 4567\n");
exit(0);
}
/* 创建一个 socket 用于 tcp 通信 */
if ((sockfd = socket(AF_INET, SOCK_STREAM, 0)) < 0) {
perror("Socket");
exit(errno);
}
printf("socket created\n");

/* 初始化服务器端（对方）的地址和端口信息 */
bzero(&server_addr, sizeof(server_addr));
server_addr.sin_family = AF_INET;
server_addr.sin_port = htons(atoi(argv[2]));
if (inet_aton(argv[1], (struct in_addr *) &server_addr.sin_addr.s_addr)
== 0) {
perror(argv[1]);
exit(errno);
}

/* 连接服务器 */
if (connect(sockfd, (struct sockaddr *) &server_addr, sizeof(server_addr))
!= 0) {
perror("Connect failure");
exit(errno);
}
printf("server connected\n");

bzero(buffer, MAXBUF + 1);
strcpy(buffer, "客户端发给服务器端的消息\n");
/* 发消息给服务器 */
len = send(sockfd, buffer, strlen(buffer), 0);
if (len < 0)
printf("发送失败！错误代码是%d，错误信息是*%s*\n", errno, strerror(errno));
else
printf("发送成功，共发送了%d个字节！\n", len);

/* 接收对方发过来的消息，最多接收 MAXBUF 个字节 */
bzero(buffer, MAXBUF + 1);

/* 接收服务器来的消息 */
len = recv(sockfd, buffer, MAXBUF, 0);
if (len > 0)
printf("接收消息成功:*%s*，共%d个字节的数据\n", buffer, len);
else
printf("消息接收失败！错误代码是%d，错误信息是*%s*\n", errno, strerror(errno));

/* 关闭连接 */
close(sockfd);
return 0;
}

//////////////////////////////////////////////////////////////////////////////erlang写的客户端就可以收发 //////////////////////////////////////////////////////////////////////////////

%% @author google
%% @doc @todo Add description to erlClient.

-module(erlClient).

%% ====================================================================
%% API functions
%% ====================================================================
-export([nano_client_eval/1]).

nano_client_eval (Str) ->
{ok, Socket} = gen_tcp:connect ("localhost", 2345, [binary, {packet, 4}]),
ok = gen_tcp:send (Socket, term_to_binary (Str)),
receive
{tcp, Socket, Bin} ->
io:format ("Client received binary = ~p ~n", [Bin]),
Val = binary_to_term (Bin),
io:format ("Client result = ~p~n",[Val]),
gen_tcp:close (Socket)
end.

%% ====================================================================
%% Internal functions
%% ====================================================================