Changeset 307 for CoolStreaming/UStreamHelper.pas

Timestamp:

Jan 3, 2012, 10:36:55 AM (13 years ago)

Author:

chronos

Message:

• Modified: Assign methods of TStreamHelper, TVarBlockSerializer and TVarBlockIndexed.

File:

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

CoolStreaming/UStreamHelper.pas

@@ -23 +23 @@
     procedure SetItem(Index: Integer; const AValue: Byte);
   public
+    procedure Assign(Source: TStreamHelper);
     procedure WriteByte(Data: Byte);
     procedure WriteWord(Data: Word);
@@ -281 +282 @@
 end;
 
+procedure TStreamHelper.Assign(Source: TStreamHelper);
+var
+  OldPosition: Integer;
+begin
+  OldPosition := Source.Position;
+  Clear;
+  WriteStream(Source, Source.Size);
+  Source.Position := OldPosition;
+  Position := OldPosition;
+end;
+
 procedure TStreamHelper.WriteAnsiString(Data: string);
 var