ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Helper/LevelDB.pas

Comparing oup/current/Helper/LevelDB.pas (file contents):
Revision 150 by alloc, Sun Apr 1 18:26:35 2007 UTC vs.
Revision 154 by alloc, Sun Apr 1 20:36:23 2007 UTC

#	Line 202 | Line 202 | begin
202		Stream_Names := TMemoryStream.Create;
203		Stream_Dat   := TFileStream.Create(Target, fmCreate);
204		Stream_Raw   := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.raw'), fmCreate);
205	+	Stream_Raw.Write(EmptyBytes[0], 32);
206		if Connection.DataOS in [DOS_WINDEMO, DOS_MAC, DOS_MACBETA] then
207	+	begin
208		Stream_Sep := TFileStream.Create(AnsiReplaceStr(Target, '.dat', '.sep'), fmCreate);
209	+	Stream_Sep.Write(EmptyBytes[0], 32);
210	+	end;
211	+
212
213		DoStep('Creating header');
214		progress.Position      := 0;
#	Line 358 | Line 363 | begin
363		begin
364		ShowMessage(
365		IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
366	<	IntToStr(Stream_Body.Size));
366	>	IntToStr(FileInfo.Size) + ' - 0x' + IntToHex(FileInfo.Size, 6) + ' - real: ' + IntToStr(DatFileStream.Size) + ' - 0x' + IntToHex(DatFileStream.Size, 6) + #13#10 +
367	>	IntToStr(Stream_Body.Size) + ' - 0x' + IntToHex(Stream_Body.Size, 6) );
368		Stream_Body.Write(EmptyBytes[0], 32 - (Stream_Body.Size mod 32));
369		end;
370		end

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)