Changeset 384 for CoolStreaming/UVarBlockSerializer.pas

Timestamp:

Jul 9, 2012, 3:58:43 PM (12 years ago)

Author:

chronos

Message:

 

File:

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

CoolStreaming/UVarBlockSerializer.pas

@@ -40 +40 @@
     function GetVarSize: Integer;
     function GetVarCount: Integer;
+    function TryVarBlock: Boolean;
 
     // Advanced data types
@@ -450 +451 @@
 end;
 
+function TVarBlockSerializer.TryVarBlock: Boolean;
+var
+  Data: Byte;
+  StoredPosition: Integer;
+  Count: Integer;
+begin
+  if Stream.Position < Stream.Size then
+  try
+    StoredPosition := Stream.Position;
+    Data := Stream.ReadByte;
+    if Data = $ff then begin
+      if TryVarBlock then begin
+        Count := ReadVarUInt;
+        Result := Count <= Stream.Size - Stream.Position;
+      end else Result := False;
+    end else begin
+      Count := DecodeUnaryLength(Data) - 1;
+      Result := Count <= Stream.Size - Stream.Position;
+    end;
+    Stream.Position := StoredPosition;
+  except
+    raise Exception.Create(SErrorGetVarSize);
+  end else Result := False;
+end;
+
 procedure TVarBlockSerializer.WriteVarSInt(Value: Int64);
 begin