Changeset 127 for CoolStreaming/UDynNumber.pas

Timestamp:

Jan 16, 2011, 3:08:56 PM (13 years ago)

Author:

george

Message:

• Přidáno: Kódování a dekódování dynamického čísla. Použita kombinace rekurzivní délky a absolutní binární hodnoty s virtuální nejvyšší jedničkou.

File:

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

CoolStreaming/UDynNumber.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UBitStream;
+  Classes, SysUtils, UBitStream, Math;
 
 type
@@ -26 +26 @@
 procedure TDynamicNumber.Write(Value: QWord);
 var
-  C: Integer;
-  Parts: array of Integer;
+  Bit: Byte;
+  Length: Integer;
 begin
-  C := 0;
-  for C := 0 to Value do
-    Stream.WriteBit(True);
-  Stream.WriteBit(False);
+  Length := Floor(Log2(Value)) + 1;
+  if Length > 1 then begin
+    Stream.WriteNumber(1, 1);
+    Write(Length - 2);
+  end else Stream.WriteNumber(0, 1);
+  if Length > 1 then Length := Length - 1;
+  Stream.WriteNumber(Value, Length);
 end;
 
 function TDynamicNumber.Read: QWord;
+var
+  Bit: Byte;
+  Length: Integer;
 begin
-
+  Bit := Stream.ReadNumber(1);
+  if Bit = 0 then Length := 1
+    else Length := Read + 2;
+  Result := Stream.ReadNumber(Length);
+  if Length > 0 then Result := Result or (1 shl Length);
 end;