DELPHI PROTOBUF免费的开源支持库fundamentals5
1、源码URL:
https://github.com/fundamentalslib/fundamentals5
2、编译ProtoCodeGen.exe
下载完上面的文件后,在子目录中找到 ProtocolBuffers\CodeGenApp\ProtoCodeGen.dpr ----- 编译它
3、编译完毕后,得到ProtoCodeGen.exe一个。它就可以把 *.proto 文件,生成为PAS文件了。
4、在D盘下,我新建了一个Google文件夹,把刚刚生成的protocodegen.exe放了进去
在这个文件夹下,我用记事本新建了一个文件,里面的内容如下
message Person {
required string name = 1;
required int32 id = 2;
}
保存为 message.proto
同样,我在Google文件夹下用建立一个叫做 pas_out文件夹
具体编译的指令时这样的。
打开 CMD。(DOS命令行那个,在开始——》运行——》CMD——》回车)
敲入命令
这个时候,去D:\google\pas_out下去找,会发现生成了一个pbMessageMessages.pas文件。
大功告成!!!!!
5、如何使用
新建一个项目
把Fundamentals.ProtoBuf.4.0.01(加压文件夹中的) ProtocolBuffers和Utils目录下的文件拷贝到我们新建的项目下,添加到项目里。
恩,其实并不是都能用的上的。这个自己看生成的pbMessageMessages.pas其他它就需要3个引用
cUtils,
cStrings,
cProtoBufUtils;
加密或者解密(序列化或者反序列化的代码如下)
var p1,p2:TPersonRecord;
len:Integer;
Bt:TBytes;
begin
p1.Name := edtName.Text;
p1.Id := StrToInt(edtID.Text);
SetLength(Bt,100);
//加密
//len := pbEncodeValuePersonRecord(Bt[0],100,p1);
len := pbEncodeValuePersonRecord(Bt[0],100,p1);
SetLength(Bt,len);
mmo1.Lines.Add(IntToStr(len));
//解密
//PersonRecordInit(p2);
len :=pbDecodeValuePersonRecord(Bt[0],len,p2);
mmo1.Lines.Add(IntToStr(len));
mmo1.Lines.Add(p2.Name);
end;
彻底大功告成!!!!!