Changeset 3 for trunk/Packages

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

Files:

• Common (modified) (1 prop)
• Common/UCommon.pas (modified) (1 diff)
• CoolStreaming (modified) (1 prop)
• CoolStreaming/UStreamHelper.pas (modified) (6 diffs)
• TemplateGenerics (modified) (1 prop)

trunk/Packages/Common/UCommon.pas

@@ -12 +12 @@
 type
   TArrayOfByte = array of Byte;
+  TArrayOfInteger = array of Integer;
+  TArrayOfWord = array of Word;
   TArrayOfString = array of string;
   TExceptionEvent = procedure(Sender: TObject; E: Exception) of object;

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;