Попытка создать калькулятор скорости передачи данных с использованием Lazarus и Freepascal

Question

Я пытаюсь добавить в свой интерфейс приложения функцию "Скорость передачи: XGb p\min". Я вычисляю это на миллисекундном уровне, используя Lazarus 1.2.2 и Freepascal 2.6.4.

У меня есть цикл, который читает блоки размером 64 КБ с диска, выполняет работу с каждым блоком размером 64 КБ и повторяет их до тех пор, пока не будет прочитан весь диск или пока пользователь не нажмет кнопку "Прервать". Я пытаюсь определить, сколько времени занимает каждое чтение 64 КБ, а затем вычислить среднюю скорость чтения данных в минуту, то есть "3 ГБ в минуту".

У меня есть пользовательская функция GetTimeInMilliseconds, которая вычисляет стандартное время в миллисекундах.

Кроме того, чтобы избежать обновления интерфейса хотя бы частичной миллисекунды, у меня есть счетчик, который пытается гарантировать, что интерфейс обновляется только каждые 50 раз по циклу, то есть, когда фрагменты 64 КБ были прочитаны 50 раз, тогда счетчик сбрасывается в 0.

Проблема в том, что дисплей передачи либо не заполняется, либо заполняется неточной цифрой, такой как "234Mb p\min" для устройства RAID0! В других случаях он получает что-то более реалистичное, например, "3.4Gb п \ мин". Он должен быть неизменно точным, если он запускался неоднократно на одном и том же ПК и одном и том же диске, а не ошибочно.

Вот мой цикл Try...finally, который выполняет цикл. Он также называется FormatByteSize, который представляет собой пользовательскую функцию, которая обрабатывает целочисленные размеры и преобразует их в XMb, XGb, XTb и т. Д.

var

ProgressCounter, BytesTransferred, BytesPerSecond : integer;

Buffer : array [0..65535] of Byte;   // 65536, 64Kb buffer

ctx : TSHA1Context;

Digest : TSHA1Digest;

NewPos, ExactDiskSize, SectorCount, TimeStartRead, TimeEndRead,
  MillisecondsElapsed, BytesPerMillisecond, BytesPerMinute : Int64;

StartTime, EndTime, TimeTaken : TDateTime;
...
begin
... // Various stuff related to handles on disks etc
 try
    SHA1Init(ctx);
    FileSeek(hSelectedDisk, 0, 0);
    repeat
      ProgressCounter := ProgressCounter + 1; // We use this update the progress display occasionally, instead of every buffer read
      TimeStartRead   := GetTimeInMilliSeconds(Time); // Starting time, in Ms

      // The hashing bit...

      FileRead(hSelectedDisk, Buffer, 65536);  // Read 65536 = 64kb at a time
      NewPos := NewPos + SizeOf(Buffer);
      SHA1Update(ctx, Buffer, SizeOf(Buffer));
      FileSeek(hSelectedDisk, NewPos, 0);
      lblBytesLeftToHashB.Caption := IntToStr(ExactDiskSize - NewPos) + ' bytes, ' + FormatByteSize(ExactDiskSize - NewPos);

      // End of the hashing bit...

      TimeEndRead      := GetTimeInMilliSeconds(Time);;  // End time in Ms
      MillisecondsElapsed := (TimeEndRead - TimeStartRead); // Record how many Ms's have elapsed 

      // Only if the loop has gone round a while (50 times?), update the progress display
      if ProgressCounter = 50 then
        begin
          if (TimeStartRead > 0) and (TimeEndRead > 0) and (MillisecondsElapsed > 0) then // Only do the divisions and computations if all timings have computed to a positive number
            begin
              BytesTransferred := SizeOf(Buffer);
              BytesPerMillisecond := BytesTransferred DIV MilliSecondsElapsed; // BytesPerMillisecond if often reported as zero, even though BytesTRansferred and MilliSecondsElapsed are valid numbers? Maybe this is the fault? 
              BytesPerSecond := BytesPerMillisecond * 1000;  // Convert the bytes read per millisecond into bytes read per second
              BytesPerMinute := BytesPerSecond * 60; // Convert the bytes read per second into bytes read per minute
              lblSpeedB.Caption := FormatByteSize(BytesPerMinute) + ' p\min'; // now convert the large "bytes per minute" figure into Mb, Gb or Tb

              // Reset the progress counters to zero for another chunk of looping
              ProgressCounter := 0;
              BytesPerMillisecond := 0;
              BytesPerSecond := 0;
              BytesPerMinute := 0;
              ProgressCounter := 0;
            end;
        end;
      Application.ProcessMessages;
    until (NewPos >= ExactDiskSize) or (Stop = true); // Stop looping over the disk
    // Compute the final hash value
    SHA1Final(ctx, Digest);
    lblBytesLeftToHashB.Caption:= '0';
  finally
    // The handle may have been released by pressing stop. If not, the handle will still be active so lets close it.
    if not hSelectedDisk = INVALID_HANDLE_VALUE then CloseHandle(hSelectedDisk);
    EndTime := Now;
    TimeTaken := EndTime - StartTime;
    lblEndTimeB.Caption := FormatDateTime('dd/mm/yy hh:mm:ss', EndTime);
    if not stop then edtComputedHash.Text := SHA1Print(Digest);
    Application.ProcessMessages;
...

Function GetTimeInMilliSeconds(theTime : TTime): Int64;
// http://www.delphipages.com/forum/archive/index.php/t-135103.html
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(theTime,Hour, Min, Sec, MSec); 
  Result := (Hour * 3600000) + (Min * 60000) + (Sec * 1000) + MSec;
end;

Пример:

Form1.Caption: = IntToStr (GetTimeInMilliSeconds (Time));

Answer 1

Я чувствую, что вы сделали это намного сложнее, чем нужно.

Переместите ваш код обработки файлов в отдельный поток. В этом коде, когда вы закончите обработку байтов из файла, используйте InterlockedAdd вести подсчет общего количества обработанных байтов.

В вашем GUI-потоке, используя какой-то таймер, используйте InterlockedExchange читать значение, которое InterlockedAdd был модифицирован и обнулен. Затем вычислите количество времени, прошедшее с момента последнего таймера. Учитывая общее количество байтов, обработанных за прошедшее время, рассчитайте количество байтов в минуту и ​​обновите свой графический интерфейс.

Поскольку файловая операция выполняется в отдельном потоке, вам не нужно беспокоиться о том, как часто вы обновляете графический интерфейс (хотя слишком частое выполнение будет пустой тратой времени).

Если вы хотите рассчитать среднее число байтов в минуту за всю операцию, не сбрасывайте общий счетчик байтов на каждом такте.