Changeset 247 for CoolStreaming/UBitStream.pas

Timestamp:

May 24, 2011, 12:36:12 PM (13 years ago)

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

File:

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

CoolStreaming/UBitStream.pas

@@ -28 +28 @@
     function CopyFrom(Source: TBitStream; Count: LongInt): LongInt;
     function Write(const Buffer; Count: Longint): Longint; virtual;
+    function EqualTo(Source: TBitStream): Boolean;
     function GetString: string;
     procedure SetString(const AValue: string);
     procedure ReadBuffer(var Buffer; Count: Longint);
     procedure WriteBuffer(const Buffer; Count: Longint);
-    property Position: LongInt read GetPosition write SetPosition;
-    property Size: LongInt read GetSize write SetSize;
-    property Bit[Index: Integer]: Boolean read GetBit write SetBit;
-
     function ReadBit: Boolean;
     procedure WriteBit(AValue: Boolean);
     function ReadNumber(Count: Byte): QWord;
     procedure WriteNumber(AValue: QWord; Count: Byte);
+    property Position: LongInt read GetPosition write SetPosition;
+    property Size: LongInt read GetSize write SetSize;
+    property Bit[Index: Integer]: Boolean read GetBit write SetBit;
     property AsString: string read GetString write SetString;
   end;
@@ -64 +64 @@
   end;
 
+
 implementation
 
@@ -133 +134 @@
 begin
   Result := 0;
+end;
+
+function TBitStream.EqualTo(Source: TBitStream): Boolean;
+var
+  I: Integer;
+begin
+  if Size = Source.Size then begin
+    I := 0;
+    Result := True;
+    Position := 0;
+    Source.Position := 0;
+    while (I < Size) and (ReadBit = Source.ReadBit) do Inc(I);
+    if I < Size then Result := False;
+  end else Result := False;
 end;