delphi proto工具

delphi proto工具

1）编辑.proto

?

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

//protobuf模板文件 syntax="proto3"; package tables;   //返回结果 message Res {     bool ok = 1;     string err = 2; }   //商品资料 message Goods {     string goodsid = 1;     string goodsname = 2; }   //计量单位 message Units {     string unitid = 1;     string unitname = 2; }   //主从表 message Tables {     repeated Goods Goodss = 1;     repeated Units Unitss= 2; }

　　笔者有一个工具，可以将数据表自动生成.proto

2）使用工具将.proto生成pascal结构代码

?

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

{ Unit pbTablesMessages.pas } { Generated from tables.proto } { Package Tables }   unit pbTablesMessages;   interface   uses Grijjy.ProtocolBuffers, SysUtils;   { TRes }   type   TRes = record     [Serialize(1)] Ok : Boolean;     [Serialize(2)] Err : String;   end;   { TGoods }   type   TGoods = record     [Serialize(1)] Goodsid : String;     [Serialize(2)] Goodsname : String;   end;   { TUnits }   type   TUnits = record     [Serialize(1)] Unitid : String;     [Serialize(2)] Unitname : String;   end;   { TTables }   type   TTables = record     [Serialize(1)] Goodss : TArray<TGoods>;     [Serialize(2)] Unitss : TArray<TUnits>;   end;   implementation   end.