Changeset 262

Timestamp:

Aug 15, 2011, 11:57:32 AM (13 years ago)

Author:

george

Message:

• Added: GetVarCount method to get count of varblock in stream.

File:

• CoolStreaming/UVarBlockSerializer.pas (modified) (2 diffs)

CoolStreaming/UVarBlockSerializer.pas

@@ -39 +39 @@
     procedure ReadVarStream(AStream: TStream);
     function GetVarSize: Integer;
+    function GetVarCount: Integer;
 
     // Advanced data types
@@ -423 +424 @@
 end;
 
+function TVarBlockSerializer.GetVarCount: Integer;
+var
+  Data: Byte;
+  StoredPosition: Integer;
+  Skip: Integer;
+begin
+  StoredPosition := Stream.Position;
+  Result := 0;
+  while Stream.Position < Stream.Size do begin
+    Data := Stream.ReadByte;
+    if Data = $ff then Skip := ReadVarUInt
+      else Skip := DecodeUnaryLength(Data) - 1;
+    Stream.Seek(Skip, soCurrent);
+    Inc(Result);
+  end;
+  Stream.Position := StoredPosition;
+end;
+
 procedure TVarBlockSerializer.WriteVarSInt(Value: Int64);
 begin