Changeset 132 for oup/current/Helper

Timestamp:

Mar 28, 2007, 3:41:10 AM (18 years ago)

Author:

alloc

Message:

 

File:

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

oup/current/Helper/LevelDB.pas

@@ -66 +66 @@
   Stream_Dat, Stream_Raw, Stream_Sep: TFileStream;
 
-//  Data, rawdata: Tdata;
   BeginTime, FileTime: Double;
   Step:     Integer;
-//  rawlist:  TRawDataList;
-//  datlinks: TDatLinks;
   OniImage:   TOniImage;
   LevelID:    Integer;
@@ -91 +88 @@
 
   DatFileStream, RawFileStream: TMemoryStream;
+
+// ###########################
+  datsum, linksum, rawsum: Int64;
+  freq: Int64;
+  tempticks1, tempticks2: Int64;
+// ###########################
 const
   Steps: Byte = 3;
@@ -281 +284 @@
   Application.ProcessMessages;
 
+  QueryPerformanceFrequency(freq);
+  datsum := 0;
+  linksum := 0;
+  rawsum := 0;
+
   FileTime := Time;
   for FileID := 0 to DatHeader.Files - 1 do
@@ -289 +297 @@
     if FileInfo.Size > 0 then
     begin
+      QueryPerformanceCounter(tempticks1);
+
       FilesHeader[FileID].DataAddr := Stream_Body.Size + 8;
       DatFileStream := TMemoryStream.Create;
@@ -294 +304 @@
       DatFileStream.Seek(4, soFromBeginning);
       DatFileStream.Write(LevelID, 4);
+
+      QueryPerformanceCounter(tempticks2);
+      datsum := datsum + (tempticks2 - tempticks1);
 
       DatLinks := Connection.GetDatLinks(FileID);
@@ -308 +321 @@
         end;
       end;
+
+      QueryPerformanceCounter(tempticks1);
+      linksum := linksum + (tempticks1 - tempticks2);
 
       RawLinks := Connection.GetRawList(FileID);
@@ -335 +351 @@
       DatFileStream.Seek(0, soFromBeginning);
       Stream_Body.CopyFrom(DatFileStream, DatFileStream.Size);
+
+      QueryPerformanceCounter(tempticks2);
+      rawsum := rawsum + (tempticks2 - tempticks1);
     end
     else
@@ -356 +375 @@
     Application.ProcessMessages;
   end;
+
+  ShowMessage('AvgDats: ' + FloatToStr((datsum / progress.Max) / freq) + #13#10 +
+      'AvgLinks: ' + FloatToStr((linksum / progress.Max) / freq) + #13#10 +
+      'AvgRaws: ' + FloatToStr((rawsum / progress.Max) / freq)
+   );
 
   Stream_Dat.Write(DatHeader, SizeOf(DatHeader));