Zmq使用记录（一）

ZMQ路由模式示例

最新推荐文章于 2025-09-16 20:21:06 发布

原创最新推荐文章于 2025-09-16 20:21:06 发布 · 929 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

14 篇文章

订阅专栏

1、带身份识别的客户端和服务器路由模式。

习惯TCP的Socket编程总会给每个连接客户端一个编号，而用到zmq中间件的时候，怎么来识别是某个客户端发来的数据呢？服务端用路由模式创建后，客户端连接时给该连接设置一个字符串的编号，就可以了。

//服务端
server = class
private
  mqsock: TZMQSocket;
  mqContext: TZMQContext;
end;


//创建
constructor server.create;
begin
  mqsock := mqContext.Socket(stRouter);
  mqsock.bind('tcp://*:5555');
  mqsock.RcvTimeout:= 1000;
end;


//接收
procedure server.recv;
var
  ret, msg_id: integer;
  client_id, msg_data: string;
begin
  ret := mqsock.recv(userid);
  if ret > 0 then
  begin
    ret := mqsock.recv(msgid);
    if ret > 0 then
    begin
      ret := mqsock.recv(data);
      if ret > 0 then
      begin
        //OnRecvMsg(userid, msgid, data);
      end;
    end;
  end;
end;


//发送
procedure server.send(const userId, sData: string; msgId: integer);
begin
  mqsock.send(userId, inttostr(msgId), sData);
end;

//客户端代码
client = class
private
  mqsock: TZMQSocket;
  mqContext: TZMQContext;
end;


//创建
constructor client.create;
begin
  mqsock := mqContext.Socket(stDealer);
  mqsock.Identity := 'client_id_1';  //设置客户端的编号
  mqsock.connect('tcp://*:5555');
end;


//接收
procedure client.recv;
var
  ret: Integer;
  msg_id, msg_data: UTF8String;
begin
  ret := mqsock.recv(msg_id);
  if ret > 0 then
  begin
    ret := mqsock.recv(msg_data);
    if ret > 0 then
    begin
      //OnRecvMsg(msg_id, msg_data);  //处理数据
    end;
  end;
end;


//发送
procedure client.send(const msgId: integer; sData: string);
begin
  mqsock.send([inttostr(msgid), sdata]);
end;

以上服务端和客户端代码中的mqContext在进程中是唯一的，不能创建多份，mqsocket是非线程安全的，不同线程不能使用同一个Socket。以上代码的接收是阻塞的，需要自己在线程中调用。