Changeset 31 for BitStream/test.lpr

Timestamp:

Jun 24, 2010, 4:18:03 PM (14 years ago)

Author:

george

Message:

• Opravy a rozšíření funkčností některých tříd

File:

• BitStream/test.lpr (modified) (4 diffs)

BitStream/test.lpr

@@ -16 +16 @@
 
   TTest = class(TCustomApplication)
+  private
+    procedure PrintBitStream(Stream:TBitStream);
   protected
     procedure DoRun; override;
@@ -39 +41 @@
   Buffer[2] := $56;
   Buffer[3] := $78;
+  WriteLn('Source data:');
   PrintData(Buffer);
 
-  BitStream.Write(Buffer[0], 27);
+  BitStream.Write(Buffer[0], 28);
+  WriteLn('Write data to stream:');
+  PrintBitStream(BitStream);
   // Write second bit array after first which lead to store data as shifted
-  BitStream.Write(Buffer[0], 27);
-
-  BitStream.Stream.Position := 0;
-  PrintStream(BitStream.Stream);
+  BitStream.Write(Buffer[0], 28);
+  WriteLn('Append shifted data to stream:');
+  PrintBitStream(BitStream);
 
   // Read test of sub bit array
-  BitStream.Position := 5;
-  BitStream.Read(Buffer[0], 18);
+  BitStream.Position := 1;
+  BitStream.Read(Buffer[0], 32);
+  WriteLn('Read bit data part:');
   PrintData(Buffer);
 
   // Test stream copy
-  BitStream.Position := 2;
-  BitStream2.CopyFrom(BitStream, BitStream.Size);
-  PrintStream(BitStream2.Stream);
+  WriteLn('Copy bit block to another stream:');
+  for I := 0 to BitStream.Size do begin
+    BitStream.Position := I;
+    BitStream2.Size := 0;
+    BitStream2.CopyFrom(BitStream, BitStream.Size);
+    PrintBitStream(BitStream2);
+  end;
+  for I := 0 to BitStream.Size do begin
+    BitStream.Position := 0;
+    BitStream2.Size := 0;
+    BitStream2.Position := I;
+    BitStream2.CopyFrom(BitStream, BitStream.Size);
+    PrintBitStream(BitStream2);
+  end;
 
   BitStream.Destroy;
@@ -68 +84 @@
 var
   I: Integer;
+  B: Integer;
+  OneByte: Byte;
 begin
-  for I := 0 to High(Data) do
-    Write(IntToHex(Data[I], 2) + ' ');
+  for I := 0 to High(Data) do begin
+    OneByte := Data[I];
+    for B := 0 to 7 do
+      Write(IntToStr((OneByte shr B) and 1));
+  end;
   WriteLn;
 end;
@@ -77 +98 @@
 var
   I: Integer;
+  B: Integer;
+  Data: Byte;
+begin
+  Stream.Position := 0;
+  for I := 0 to Stream.Size - 1 do begin
+    Data := Stream.ReadByte;
+    for B := 0 to 7 do
+      Write(IntToStr((Data shr B) and 1));
+  end;
+  WriteLn;
+end;
+
+procedure TTest.PrintBitStream(Stream: TBitStream);
+var
+  I: Integer;
 begin
   Stream.Position := 0;
   for I := 0 to Stream.Size - 1 do
-    Write(IntToHex(Stream.ReadByte, 2) + ' ');
+    Write(IntToStr(Integer(Stream.ReadBit)));
   WriteLn;
 end;