Changeset 8 for ProtocolBuffers/UMainForm.pas

Timestamp:

Oct 12, 2009, 7:59:16 AM (15 years ago)

Author:

george

Message:

• Added: Uncompleted proto file loading support.
• Modified: String type serialization implmentation.

File:

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

ProtocolBuffers/UMainForm.pas

@@ -9 +9 @@
   StdCtrls, UProtocolBuffers, UMemoryStreamEx;
 
+const
+  SampleProtoFileName = 'Sample.proto';
+
 type
   { TMainForm }
   TMainForm = class(TForm)
+    Button1: TButton;
+    Button2: TButton;
     Memo1: TMemo;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
-    { private declarations }
+    procedure DisplayStream(Stream: TStream);
   public
     PB: TProtocolBuffer;
@@ -29 +36 @@
 
 procedure TMainForm.FormCreate(Sender: TObject);
+begin
+end;
+
+procedure TMainForm.Button2Click(Sender: TObject);
+var
+  Stream: TMemoryStream;
+  StringList: TStringList;
+begin
+  Stream := TMemoryStreamEx.Create;
+  StringList := TStringList.Create;
+  StringList.LoadFromFile(SampleProtoFileName);
+  PB := TProtocolBuffer.Create;
+  with PB do begin
+    LoadFromProto(StringList);
+    SaveToStream(Stream);
+  end;
+  DisplayStream(Stream);
+  StringList.Free;
+  Stream.Free;
+end;
+
+procedure TMainForm.Button1Click(Sender: TObject);
 var
   Stream: TMemoryStreamEx;
-  Text: string;
-  I: Integer;
   NewItem: TPBItem;
 begin
@@ -45 +72 @@
     end;
     SaveToStream(Stream);
+    DisplayStream(Stream);
   end;
-
-  Stream.Position := 0;
-  Text := '';
-  for I := 1 to Stream.Size do begin
-    Text := Text + IntToHex(Stream.ReadByte, 2) + ' ';
-  end;
-  Memo1.Lines.Text := Text;
   Stream.Free;
 end;
@@ -61 +82 @@
 end;
 
+procedure TMainForm.DisplayStream(Stream: TStream);
+var
+  I: Integer;
+  Text: string;
+begin
+  Stream.Position := 0;
+  Text := '';
+  for I := 1 to Stream.Size do begin
+    Text := Text + IntToHex(Stream.ReadByte, 2) + ' ';
+  end;
+  Memo1.Lines.Text := Text;
+end;
+
 initialization
   {$I UMainForm.lrs}