Как узнать FPS моего приложения?

[rareMax]

Привет.

Как можно узнать сколько кадров в секунду рисует мой компонент?

Пытался сделать так:

procedure TCoordinatePlane.Paint;
var
  aBM: TStopwatch;
begin
  aBM := TStopwatch.Create;
  try
    aBM.Start;
    inherited Paint;
    FCells.DrawShape(Self);
    PaintXY;
    PaintAllShapes;
    PaintDebugInfo;
    aBM.Stop;
    Canvas.TextOut(0, 20, (1 / aBM.Elapsed.TotalSeconds).ToString);
  finally
    // aBM.Free;
  end;
end; 

Выдает значения довольно разные(В зависимости от масштаба) от 30 .. >1000. Как то не доверяю этим значениям. Можете подсказать как правильно сделать замер FPS?

[krapotkin]

нужно не каждый paint замерять, а усреднять по некторому их кол-ву 

тогда измерения будут иметь смысл

[Error]

Привет.

Как можно узнать сколько кадров в секунду рисует мой компонент?

Пытался сделать так:

procedure TCoordinatePlane.Paint;
var
  aBM: TStopwatch;
begin
  aBM := TStopwatch.Create;
  try
    aBM.Start;
    inherited Paint;
    FCells.DrawShape(Self);
    PaintXY;
    PaintAllShapes;
    PaintDebugInfo;
    aBM.Stop;
    Canvas.TextOut(0, 20, (1 / aBM.Elapsed.TotalSeconds).ToString);
  finally
    // aBM.Free;
  end;
end; 

Выдает значения довольно разные(В зависимости от масштаба) от 30 .. >1000. Как то не доверяю этим значениям. Можете подсказать как правильно сделать замер FPS?

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

[rareMax]

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

 

Спасибо, уже так и сделал. 

 

Кому нужно - вот код GitHub. Данные почти точные(получение данных идет стандартным таймером, который не так уж и точный). Чуть позже сделаю более точный вывод значения FPS.

Изменено 14 ноября, 2015 пользователем Сысоев Максим