cross socket和msgpack的数据序列和还原

cross socket和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

procedure TForm1.Button1Click(Sender: TObject); begin   var pack: TSimpleMsgPack := TSimpleMsgPack.Create;   pack.ForcePathObject('sql').AsString := '测试';   IdTCPClient1.IOHandler.Write(tidbytes(pack.EncodeToBytes));  //发送TBytes end;   procedure TcrossTcp.OnReceived(Sender: TObject; AConnection: ICrossConnection; ABuf: Pointer; ALen: Integer); begin   var b: tbytes;   SetLength(b, ALen);   Move(ABuf^, b[0], ALen); // 还原TBytes   var pack: TSimpleMsgPack := TSimpleMsgPack.Create;   pack.DecodeFromBytes(b);   Writeln(pack.ForcePathObject('sql').AsString); end;   procedure TForm1.Button1Click(Sender: TObject); begin   var pack: TSimpleMsgPack := TSimpleMsgPack.Create;   pack.ForcePathObject('sql').AsString := '测试';   var ms: TMemoryStream := TMemoryStream.Create;   pack.EncodeToStream(ms);   ms.Position := 0;   IdTCPClient1.IOHandler.Write(ms, ms.Size); //发送流 end;   procedure TcrossTcp.OnReceived(Sender: TObject; AConnection: ICrossConnection; ABuf: Pointer; ALen: Integer); begin   var ms: TMemoryStream := TMemoryStream.Create;   ms.Size := ALen;   ms.Write(ABuf^, ALen);//还原流   var pack: TSimpleMsgPack := TSimpleMsgPack.Create;   ms.Position := 0;   pack.DecodeFromStream(ms);   Writeln(pack.ForcePathObject('sql').AsString); end;