Системный таймер

Тема в разделе "Pascal and Delphi", создана пользователем fonochka, 22 дек 2010.

  1. fonochka

    fonochka Гость

    Необходимо разработать и реализовать в оо-классе интерфейс, т.е. использовать понятие интерфейса interface (нет в работе) и затем его реализовать (есть).
    Код (Text):
    type
    IHRTimer = interface
    ['{87ED4E58-83C0-40D2-9D56-3095B5F738E2}']
    function StartTimer: Boolean;
    function ReadTimer: Double;
    procedure SetPeriod();
    procedure SetInterval();
    end;

    THRTimer = class(IHRTimer, TInterfacedObject)
    ...
    Также реализовать методы задания периода и интервала срабатывания, ввести событие пользователя на "тик".
    Изначально задача состояла в следующем:
    Разработать и реализовать в оо-классе интерфейс таймерного сервиса на основе Win32 функций QueryPerformanceCounter() и QueryPerformanceFrequency(). Интерфейс должен включать объявления методов для задания интервала срабатывания таймера (мс.), времени работы (мс.) и события на срабатывание.
     

    Вложения:

  2. mss

    mss Гость

    icq 169527143
     
Загрузка...

Поделиться этой страницей