Скорость передачи данных

[Человек_Борща]

Доброго времени!

Голова гудит, наткнулся на грабли.
Дико туплю в самых простых задачах, просто дичайше забирает и полностью

Как правильно изменять скорость отдачи/приема данных и оставшееся время?


Есть дистанция - размер файла, размер уже переданных/принятых байт
Есть время - Фиксируется старт

Скорость - это дистанция div время, результат - размер в байтах(БИТАХ?).
Оставшееся время - это разность между (размером файла и объемом принятых данных) умноженное на скорость, результат - милисекунды.

Вроде правильно, но нет. Не едут лыжи. Скорость передачи почему-то зашкаливает за 180 МБ/сек.

{
iData - размер текущего, принятого пакета данных
fWork_WorkSizeCurrent - всего принято
fWork_WorkSizeBegin - размер файла
fWork_TimeStart - время старта
fWork_TimeCurrent - разница времени для текущего пакета данных

}
  // Distance
  fWork_WorkSizeCurrent := fWork_WorkSizeCurrent + iData;

  // Time
  fWork_TimeCurrent := GetTickCount - fWork_TimeStart;

  // Speed
  if not(fWork_TimeCurrent <= 0) then
    fWork_SpeedCurrent := fWork_WorkSizeCurrent div fWork_TimeCurrent;

  // Time left: (TotalDistance-CurrentDistance)*Curent speed
  fWork_TimeLeft := (fWork_WorkSizeBegin - fWork_WorkSizeCurrent) *
    fWork_SpeedCurrent;

end;

Код переворота байтов в размерности:

function TMainForm.Size2Str(const aInt: Int64;
  const IsSpeed: Boolean = False): string;
const
  cKByte = 1024; // 1 Kilobyte = 1024 bytes
  cMByte = 1024 * cKByte; // 1 Megabyte = 1024 kilobytes
  cGByte = 1024 * cMByte; // 1 Gigabyte = 1024 megabytes
var
  Int: Int64;

  s: string;
begin
  //Crazy style
  FormatSettings.DecimalSeparator:='.';
  Int := aInt;
  if Int >= cGByte then
  begin
    s := Format(' %s GB', [FloatToStrF(Int / cGByte, ffFixed, 4, 2)]);
    if IsSpeed then
      s := Format(' %s GB/s', [FloatToStrF(Int / cGByte, ffFixed, 4, 2)]);
    result := s;
    Exit;
  end;

  if (Int >= cMByte) and (Int < cGByte) then
  begin
    s := Format(' %s MB', [FloatToStrF(Int / cMByte, ffFixed, 4, 2)]);
    if IsSpeed then
      s := Format(' %s MB/s', [FloatToStrF(Int / cMByte, ffFixed, 4, 2)]);
    result := s;
    Exit;
  end;

  if (Int >= cKByte) and (Int < cMByte) then
  begin
    s := Format(' %s KB', [FloatToStrF(Int / cKByte, ffFixed, 4, 2)]);
    if IsSpeed then
      s := Format(' %s KB/s', [FloatToStrF(Int / cKByte, ffFixed, 4, 2)]);
    result := s;
  end
  else
  begin
    s := Format(' %d.0 b', [Int]);
    if IsSpeed then
      s := Format('%d.0 b/s', [Int]);
    result := s;
  end;
  FormatSettings.DecimalSeparator:=',';
end;

Собственно прошу помощи....

[Аватар]

fWork_TimeCurrent := GetTickCount - fWork_TimeStart в милисекундах, в секунды где-то есть перевод?

[Человек_Борща]

Во время милисекунды переводятся в последствии, сейчас это результат работы метода класса.

Скорость оно не верно измеряет.. или измеряет но в последствии что-то не так?

[kangreon]

В вашем коде измеряется средняя скорость, с которой происходит получение данных. т.к. происходит деление всего полученного на весь промежуток времени. Более точная скорость получится если рассчитывать время, за которое происходит получение одного пакета. Со вторым способом у меня никогда не возникало проблем.

[fucil]

Так просто компакнее может кому нужно !

function BitsToString(Value : DWord) : string;
const
 OneKB=1024;
 OneMB=OneKB*1024;
 OneGB=OneMB*1024;
begin
 if Value<OneKB
 then Result:=FormatFloat('#,##0.00 байт',Value)
 else
  if Value<OneMB
  then Result:=FormatFloat('#,##0.00 Кбайт', Value/OneKB)
  else
   if Value<OneGB
   then Result:=FormatFloat('#,##0.00 Мбайт', Value/OneMB)
end;

lbl2.Caption :=BitsToString(Sockets.Files.ReceiveSize);