delphi将*.proto转换为pascal工具

*.proto是google protobuf的结构描述语言。

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

　　运行codegen.bat

自动生成pbTablesMessages.pas

{ Unit pbTablesMessages.pas }
{ Generated from tables.proto }
{ Package Tables }
 
unit pbTablesMessages;
 
interface
 
uses Grijjy.ProtocolBuffers, SysUtils;
 
{ TRes }
 
type
  TRes = record
    [Serialize(1)] Status : Integer;
    [Serialize(2)] Exception : String;
    [Serialize(3)] Message : 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)] Status : Integer;
    [Serialize(2)] Exception : String;
    [Serialize(3)] Message : String;
    [Serialize(4)] Goodss : TArray<TGoods>;
    [Serialize(5)] Unitss : TArray<TUnits>;
  end;
 
implementation
 
end.