Changeset 7 for ProtocolBuffers/UMainForm.pas

Timestamp:

Oct 9, 2009, 2:15:48 PM (15 years ago)

Author:

george

Message:

• Přidáno: Některé funkce pro dekódování.

File:

• ProtocolBuffers/UMainForm.pas (modified) (1 diff)

ProtocolBuffers/UMainForm.pas

@@ -33 +33 @@
   Text: string;
   I: Integer;
+  NewItem: TPBItem;
 begin
   Stream := TMemoryStreamEx.Create;
   PB := TProtocolBuffer.Create;
   with PB do begin
-    BaseMessage := TPBMessage.Create;
-    BaseMessage.Name := 'SampleMessage';
-    BaseMessage.Tag := $aaaa;
+    with BaseMessage do begin
+      Name := 'SampleMessage';
+      NewItem := TPBIntegerItem.Create;
+      TPBIntegerItem(NewItem).Value := $5555555;
+      Items.Add(NewItem);
+    end;
     SaveToStream(Stream);
   end;