Changeset 126 for CoolStreaming/UBitStream.pas

Timestamp:

Jan 15, 2011, 10:03:27 PM (14 years ago)

Author:

george

Message:

• Added: Generating encoded numbers for DynNumber demo.

File:

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

CoolStreaming/UBitStream.pas

@@ -36 +36 @@
     function ReadBit: Boolean;
     procedure WriteBit(AValue: Boolean);
-    function ReadByte: Byte;
-    procedure WriteByte(AValue: Byte);
+    function ReadNumber(Count: Byte): QWord;
+    procedure WriteNumber(AValue: QWord; Count: Byte);
   end;
 
@@ -155 +155 @@
 end;
 
-function TBitStream.ReadByte:Byte;
-begin
-  Read(Result, 8);
-end;
-
-procedure TBitStream.WriteByte(AValue:Byte);
-begin
-  Write(AValue, 8);
+function TBitStream.ReadNumber(Count: Byte): QWord;
+begin
+  Read(Result, Count);
+end;
+
+procedure TBitStream.WriteNumber(AValue: QWord; Count: Byte);
+begin
+  Write(AValue, Count);
 end;