Changeset 152 for oup

Timestamp:

Apr 1, 2007, 8:38:11 PM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Helper/LevelDB.pas (modified) (1 diff)
• _exe/OniUnPacker.exe (modified) ( previous)

oup/current/Helper/LevelDB.pas

@@ -359 +359 @@
         ShowMessage(
             IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
-            IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + #13#10 +
+            IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + ' - real: ' + IntToStr(DatFileStream.Size) + ' - 0x' + IntToHex(DatFileStream.Size, 6) + #13#10 +
             IntToStr(Stream_Body.Size) + ' - 0x' + IntToHex(Stream_Body.Size, 6) );
         Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));