ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Helper/LevelDB.pas
(Generate patch)

Comparing oup/current/Helper/LevelDB.pas (file contents):
Revision 132 by alloc, Wed Mar 28 01:41:10 2007 UTC vs.
Revision 134 by alloc, Wed Mar 28 17:53:54 2007 UTC

# Line 301 | Line 301 | begin
301        FilesHeader[FileID].DataAddr := Stream_Body.Size + 8;
302        DatFileStream := TMemoryStream.Create;
303        Connection.LoadDatFile(FileID, TStream(DatFileStream));
304 <      DatFileStream.Seek(4, soFromBeginning);
304 >      DatFileStream.Seek(0, soFromBeginning);
305 >      DatFileStream.Write(FileID, 4);
306        DatFileStream.Write(LevelID, 4);
307  
308        QueryPerformanceCounter(tempticks2);
# Line 355 | Line 356 | begin
356        rawsum := rawsum + (tempticks2 - tempticks1);
357      end
358      else
359 <      FilesHeader[i].DataAddr := 0;
359 >      FilesHeader[FileID].DataAddr := 0;
360      if Length(fileinfo.Name) > 0 then
361      begin
362 <      FilesHeader[i].NameAddr := Stream_Names.Size;
362 >      FilesHeader[FileID].NameAddr := Stream_Names.Size;
363        temps := fileinfo.Extension + fileinfo.Name + Chr(0);
364        Stream_Names.Write(temps[1], Length(temps));
365      end
366      else
367 <      FilesHeader[i].NameAddr := 0;
368 <    FilesHeader[i].FileSize := fileinfo.Size;
369 <    FilesHeader[i].FileType := fileinfo.FileType;
367 >      FilesHeader[FileID].NameAddr := 0;
368 >    FilesHeader[FileID].FileSize := fileinfo.Size;
369 >    FilesHeader[FileID].FileType := fileinfo.FileType;
370  
371      if ((FileID mod 10) = 0) and (FileID >= 100) then
372        lbl_estimation.Caption := 'Estimated time left: ' + TimeToStr(
# Line 391 | Line 392 | begin
392    DatHeader.DataSize  := Stream_Body.Size;
393    DatHeader.NamesSize := Stream_Names.Size;
394    DatHeader.DataAddr  := Stream_Dat.Size;
395 +
396    Stream_Body.Seek(0, soFromBeginning);
397    Stream_Dat.CopyFrom(Stream_Body, Stream_Body.Size);
398    DatHeader.NamesAddr := Stream_Dat.Size;
# Line 446 | Line 448 | begin
448  
449  
450   procedure TForm_LevelDB.CreateDatabase(Source, target: String);
451 + var
452 +  DataBase:  TABSDatabase;
453   {
454   var
455    DataBase:    TABSDatabase;
# Line 507 | Line 511 | begin
511    absolutebegintime := Time;
512  
513    DataBase := TABSDatabase.Create(Self);
514 + }
515 +  DataBase.MaxConnections := 1;
516 + {
517    DataBase.DatabaseName := 'OLDB';
518    DataBase.DatabaseFileName := target;
519    DataBase.CreateDatabase;

Diff Legend

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