Changeset 3 for trunk/Packages/CoolStreaming

Timestamp:

Jan 27, 2016, 10:32:48 PM (9 years ago)

Author:

chronos

Message:

• Added: Classes for decoding MAP, CPS, SHP and ENG file formats.

Location:

trunk/Packages/CoolStreaming

Files:

• . (modified) (1 prop)
• UStreamHelper.pas (modified) (6 diffs)

trunk/Packages/CoolStreaming/UStreamHelper.pas

@@ -114 +114 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Cardinal));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -121 +121 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Int64));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -298 +298 @@
   Result := 0;
   FStream.ReadBuffer(Result, SizeOf(Word));
-  if SwapData then Result := Swap(Result);
+  if SwapData then Result := SwapEndian(Result);
 end;
 
@@ -358 +358 @@
 procedure TStreamHelper.WriteCardinal(Data: Cardinal);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Cardinal));
 end;
@@ -364 +364 @@
 procedure TStreamHelper.WriteInt64(Data: Int64);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Int64));
 end;
@@ -415 +415 @@
 procedure TStreamHelper.WriteWord(Data: Word);
 begin
-  if SwapData then Data := Swap(Data);
+  if SwapData then Data := SwapEndian(Data);
   Write(Data, SizeOf(Word));
 end;