Changeset 9 for ProtocolBuffers/UMainForm.pas

Timestamp:

Oct 12, 2009, 11:01:02 AM (15 years ago)

Author:

george

Message:

• Modified: Enhanced loading from stream.
• Added: Demo form is displaying original PB tree and target loaded PB tree.

File:

• ProtocolBuffers/UMainForm.pas (modified) (8 diffs)

ProtocolBuffers/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, UProtocolBuffers, UMemoryStreamEx;
+  StdCtrls, ComCtrls, UProtocolBuffers, UMemoryStreamEx;
 
 const
@@ -18 +18 @@
     Button2: TButton;
     Memo1: TMemo;
+    TreeView1: TTreeView;
+    TreeView2: TTreeView;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
@@ -24 +26 @@
   private
     procedure DisplayStream(Stream: TStream);
+    procedure DisplayTree(ProtocolBuffer: TProtocolBuffer; TreeView: TTreeView);
+    procedure MessageToNode(PBMessage: TPBMessageItem; Node: TTreeNode);
   public
-    PB: TProtocolBuffer;
-  end; 
+  end;
 
 var
@@ -43 +46 @@
   Stream: TMemoryStream;
   StringList: TStringList;
+  PB: TProtocolBuffer;
 begin
   Stream := TMemoryStreamEx.Create;
@@ -61 +65 @@
   Stream: TMemoryStreamEx;
   NewItem: TPBItem;
+  PB: TProtocolBuffer;
 begin
   Stream := TMemoryStreamEx.Create;
@@ -68 +73 @@
       Name := 'SampleMessage';
       NewItem := TPBIntegerItem.Create;
-      TPBIntegerItem(NewItem).Value := $5555555;
+      TPBIntegerItem(NewItem).Name := 'Height';
+      TPBIntegerItem(NewItem).Tag := 1;
+      TPBIntegerItem(NewItem).Value := 12;
+      Items.Add(NewItem);
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Name := 'Width';
+      TPBIntegerItem(NewItem).Tag := 2;
+      TPBIntegerItem(NewItem).Value := 34;
+      Items.Add(NewItem);
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Name := 'Age';
+      TPBIntegerItem(NewItem).Tag := 3;
+      TPBIntegerItem(NewItem).Value := 45;
       Items.Add(NewItem);
     end;
+    DisplayTree(PB, TreeView1);
     SaveToStream(Stream);
-    DisplayStream(Stream);
+    Free;
+  end;
+
+  DisplayStream(Stream);
+  Stream.Position := 0;
+
+  PB := TProtocolBuffer.Create;
+  with PB do begin
+    with BaseMessage do begin
+      Name := 'SampleMessage';
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Name := 'Height';
+      TPBIntegerItem(NewItem).Tag := 1;
+      Items.Add(NewItem);
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Name := 'Age';
+      TPBIntegerItem(NewItem).Tag := 3;
+      Items.Add(NewItem);
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Name := 'Weight';
+      TPBIntegerItem(NewItem).Tag := 4;
+      Items.Add(NewItem);
+    end;
+    LoadFromStream(Stream);
+    DisplayTree(PB, TreeView2);
+    Free;
   end;
   Stream.Free;
@@ -79 +122 @@
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  PB.Free;
 end;
 
@@ -95 +137 @@
 end;
 
+procedure TMainForm.DisplayTree(ProtocolBuffer: TProtocolBuffer;
+  TreeView: TTreeView);
+begin
+  with TreeView do begin
+    BeginUpdate;
+    Items.Clear;
+    TopItem := Items.Add(nil, 'message');
+    MessageToNode(ProtocolBuffer.BaseMessage, TopItem);
+    TopItem.Expand(True);
+    EndUpdate;
+  end;
+end;
+
+procedure TMainForm.MessageToNode(PBMessage: TPBMessageItem; Node: TTreeNode);
+var
+  I: Integer;
+  NewNode: TTreeNode;
+begin
+  for I := 0 to PBMessage.Items.Count - 1 do begin
+    NewNode := Node.Owner.AddChild(Node, '');
+    if TPBItem(PBMessage.Items[I]) is TPBStringItem then begin
+      NewNode.Text := IntToStr(TPBItem(PBMessage.Items[I]).Tag) + ': string ' +
+        TPBItem(PBMessage.Items[I]).Name + ' = ' +
+        TPBStringItem(PBMessage.Items[I]).Value;
+    end else
+    if TPBItem(PBMessage.Items[I]) is TPBIntegerItem then begin
+      NewNode.Text := IntToStr(TPBItem(PBMessage.Items[I]).Tag) + ': uint32 ' +
+        TPBItem(PBMessage.Items[I]).Name + ' = ' +
+        IntToStr(TPBIntegerItem(PBMessage.Items[I]).Value);
+    end else
+    if TPBItem(PBMessage.Items[I]) is TPBMessageItem then begin
+      NewNode.Text := IntToStr(TPBItem(PBMessage.Items[I]).Tag) + ': message ' +
+        TPBItem(PBMessage.Items[I]).Name;
+      MessageToNode(TPBMessageItem(PBMessage.Items[I]), NewNode);
+    end;
+
+  end;
+end;
+
 initialization
   {$I UMainForm.lrs}