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 146 by alloc, Sun Apr 1 15:40:16 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 355 | Line 360 | begin
360		DatFileStream.Seek(0, soFromBeginning);
361		Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
362		if (Stream_Body.Size mod 32) > 0 then
363	+	begin
364	+	ShowMessage(
365	+	IntToStr(FileID) + '-' + FileInfo.Name + '.' + FileInfo.Extension + #13#10 +
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
371		else
372		FilesHeader[FileID].DataAddr := 0;

Diff Legend

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