Changeset 233 for CoolStreaming

Timestamp:

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

Author:

george

Message:

• Modified: Unit UStreamHelper no longer define TThreadStreamHelper.

Location:

CoolStreaming

Files:

• CoolStreaming.lpk (modified) (2 diffs)
• UStreamHelper.pas (modified) (7 diffs)

CoolStreaming/CoolStreaming.lpk

@@ -6 +6 @@
     <Author Value="Chronos"/>
     <CompilerOptions>
-      <Version Value="10"/>
+      <Version Value="9"/>
       <PathDelim Value="\"/>
       <SearchPaths>
@@ -49 +49 @@
     </Files>
     <Type Value="RunAndDesignTime"/>
-    <RequiredPkgs Count="3">
+    <RequiredPkgs Count="2">
       <Item1>
-        <PackageName Value="MicroThreading"/>
+        <PackageName Value="TemplateGenerics"/>
       </Item1>
       <Item2>
-        <PackageName Value="TemplateGenerics"/>
-      </Item2>
-      <Item3>
         <PackageName Value="FCL"/>
         <MinVersion Major="1" Valid="True"/>
-      </Item3>
+      </Item2>
     </RequiredPkgs>
     <UsageOptions>

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.