中间件集群协议msgpack

中间件集群协议msgpack

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90

/// <author>cxg 2020-8-5</author> /// 集群协议 /// broker：代理服务器   unit groupProtocol;   interface   uses   SysUtils, MsgPack   ,classes   ;   const         //命令字   ConnMiddleWare = 2;   ConnMiddleWareResp = 52;   MiddleHeartBeat = 5;   MiddleHeartBeatResp = 55;   /// <summary> /// 向broker申请连中间件 /// </summary> /// <returns></returns> function connMiddle: TStream; /// <summary> /// broket返回可用中间件的ip和port /// </summary> /// <param name="status"></param> /// <param name="ip"></param> /// <param name="port"></param> /// <returns></returns> function connMiddleResp(const status: Boolean; const ip: string; const port: Integer): TStream; /// <summary> /// 中间件发送心跳给broker /// </summary> /// <param name="ip"></param> /// <param name="port"></param> /// <returns></returns> function middleHeart(const ip: string; const port: Integer): TStream; /// <summary> /// broker返回中间件心跳应答 /// </summary> /// <param name="status"></param> /// <returns></returns> function middleHeartResp: TStream;   implementation   function middleHeartResp: TStream; begin   var p: TMsgPack := TMsgPack.Create;   Result := TMemoryStream.Create;   p.Force('cmd').AsInteger := MiddleHeartBeatResp;   p.EncodeToStream(Result);   p.Free; end;   function middleHeart(const ip: string; const port: Integer): TStream; begin   var p: TMsgPack := TMsgPack.Create;   Result := TMemoryStream.Create;   p.Force('cmd').AsInteger := MiddleHeartBeat;   p.Force('ip').AsString := ip;   p.Force('port').AsInteger := port;   p.EncodeToStream(Result);   p.Free; end;   function connMiddleResp(const status: Boolean; const ip: string; const port: Integer): TStream; begin   var p: TMsgPack := TMsgPack.Create;   Result := TMemoryStream.Create;   p.Force('cmd').AsInteger := ConnMiddleWareResp;   p.Force('status').AsBoolean := status;   p.Force('ip').AsString := ip;   p.Force('port').AsInteger := port;   p.EncodeToStream(Result);   p.Free; end;   function connMiddle: TStream; begin   var p: TMsgPack := TMsgPack.Create;   Result := TMemoryStream.Create;   p.Force('cmd').AsInteger := ConnMiddleWare;   p.EncodeToStream(Result);   p.Free; end;   end.