protobuf(fpc)

protobuf(fpc)

?

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 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154

//cxg 2021-8-11 protobuf unit Unit1;   {$mode objfpc}{$H+}   interface   uses   protobuf_fpc, protobuf_fpc_types,   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;   type   { TPeople }   //message People {   //  required Int32 Code = 1;   //  required string FirstName = 2;   //  optional string LastName = 3;   //}   TPeople = class(TSerializationObject) //message People   private     FCode: Int32;     FFirstName: string;     FLastName: string;   protected     procedure InternalRegisterProperty; override;     procedure InternalInit; override;   public   published     property Code:Int32 read FCode write FCode; //1;     property FirstName:string read FFirstName write FFirstName;//2;     property LastName:string read FLastName write FLastName;//3;   end;     TPeoples = specialize GSerializationObjectList<TPeople>;     { TPeopleArr }     TPeopleArr = class(TSerializationObject)   private     FPeopleArr: TPeoples;   protected     procedure InternalRegisterProperty; override;     procedure InternalInit; override;   published     property PeopleArr: TPeoples read FPeopleArr write FPeopleArr;   end;   type     { TForm1 }     TForm1 = class(TForm)     Button1: TButton;     Button2: TButton;     Memo1: TMemo;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     public     end;   var   Form1: TForm1;   implementation   {$R *.lfm}   { TPeopleArr }   procedure TPeopleArr.InternalRegisterProperty; begin   inherited InternalRegisterProperty;   RegisterProp('PeopleArr', 1); end;   procedure TPeopleArr.InternalInit; begin   inherited InternalInit;   FPeopleArr := TPeoples.create; end;   { TForm1 }   procedure TForm1.Button1Click(Sender: TObject); var P, p2: TPeople;   b: tbytesstream; begin   p:=TPeople.Create;   p.Code:=1;   p.FirstName:='第一名称';   p.LastName:='第二名称';   b := tbytesstream.Create;   p.SaveToStream(b);   p.free;     p2 := TPeople.Create;   p2.LoadFromStream(b);   b.free;   memo1.Lines.Add(p2.Code.tostring);   memo1.Lines.Add(p2.FirstName);   memo1.Lines.Add(p2.LastName);   p2.free; end;   procedure TForm1.Button2Click(Sender: TObject); var   arr, arr2: tpeoplearr;   p, p2: TPeople;   b: tbytesstream; begin   arr := tpeoplearr.Create;   p := arr.PeopleArr.AddItem;   p.Code:=1;   p.FirstName:='第一名称';   p.LastName:='第二名称';   p := arr.PeopleArr.AddItem;   p.Code:=2;   p.FirstName:='fname2';   p.LastName:='lname2';   b := tbytesstream.Create;   arr.SaveToStream(b);   arr.Free;     arr2 := tpeoplearr.Create;   arr2.LoadFromStream(b);   b.free;   for p2 in arr2.PeopleArr do   begin     memo1.Lines.Add(p2.Code.tostring);     memo1.Lines.Add(p2.FirstName);     memo1.Lines.Add(p2.LastName);   end;   arr2.free; end;   { TPeople }   procedure TPeople.InternalRegisterProperty; begin   inherited InternalRegisterProperty;   RegisterProp('Code', 1);   RegisterProp('FirstName', 2);   RegisterProp('LastName', 3); end;   procedure TPeople.InternalInit; begin   inherited InternalInit; end;   end.