Changeset 233 for CoolStreaming/UStreamHelper.pas

Timestamp:

Apr 14, 2011, 12:51:20 PM (13 years ago)

Author:

george

Message:

• Modified: Unit UStreamHelper no longer define TThreadStreamHelper.

File:

• CoolStreaming/UStreamHelper.pas (modified) (7 diffs)

CoolStreaming/UStreamHelper.pas

@@ -6 +6 @@
 
 uses
-  Classes, DateUtils, syncobjs, UMicroThreading;
+  Classes, DateUtils, syncobjs;
 
 type
@@ -19 +19 @@
     FEndianness: TEndianness;
     SwapData: Boolean;
+    function GetItem(Index: Integer): Byte;
     procedure SetEndianness(const AValue: TEndianness);
+    procedure SetItem(Index: Integer; const AValue: Byte);
   public
     procedure WriteByte(Data: Byte);
@@ -50 +52 @@
     constructor Create; overload;
     constructor Create(AStream: TStream); overload;
+    procedure Clear;
     destructor Destroy; override;
     function GetSize: Int64; override;
@@ -58 +61 @@
     property Endianness: TEndianness read FEndianness write SetEndianness;
     property Stream: TStream read FStream write FStream;
-  end;
-
-  { TThreadStreamHelper }
-
-  TThreadStreamHelper = class(TStreamHelper)
-    Lock: TMicroThreadCriticalSection;
-    procedure Clear;
-    constructor Create;
-    destructor Destroy; override;
+    property Items[Index: Integer]: Byte read GetItem write SetItem; default;
   end;
 
@@ -195 +190 @@
 end;
 
+procedure TStreamHelper.Clear;
+begin
+  Stream.Size := 0;
+end;
+
 destructor TStreamHelper.Destroy;
 begin
@@ -273 +273 @@
 end;
 
+function TStreamHelper.GetItem(Index: Integer): Byte;
+begin
+  Position := Index;
+  Result := ReadByte;
+end;
+
+procedure TStreamHelper.SetItem(Index: Integer; const AValue: Byte);
+begin
+ Position := Index;
+ WriteByte(AValue);
+end;
+
 procedure TStreamHelper.WriteAnsiString(Data: string);
 var
@@ -348 +360 @@
 end;
 
-{ TThreadStreamHelper }
-
-procedure TThreadStreamHelper.Clear;
-begin
-  try
-    Lock.Acquire;
-    Size := 0;
-  finally
-    Lock.Release;
-  end;
-end;
-
-constructor TThreadStreamHelper.Create;
-begin
-  inherited Create;
-  Lock := TMicroThreadCriticalSection.Create;
-end;
-
-destructor TThreadStreamHelper.Destroy;
-begin
-  Lock.Free;
-  inherited Destroy;
-end;
 
 end.