Changeset 133 for oup/current/Helper

Timestamp:

Mar 28, 2007, 4:23:44 AM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Helper/LevelDB.pas (modified) (2 diffs)

oup/current/Helper/LevelDB.pas

@@ -302 +302 @@
       DatFileStream := TMemoryStream.Create;
       Connection.LoadDatFile(FileID, TStream(DatFileStream));
-      DatFileStream.Seek(4, soFromBeginning);
+      DatFileStream.Seek(0, soFromBeginning);
+      DatFileStream.Write(FileID, 4);
       DatFileStream.Write(LevelID, 4);
 
@@ -392 +393 @@
   DatHeader.NamesSize := Stream_Names.Size;
   DatHeader.DataAddr  := Stream_Dat.Size;
+
   Stream_Body.Seek(0, soFromBeginning);
   Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);