Менеджер таймеров

Posted by bullvinkle under Пост-обзор, Топик-обзор

Ситуация:

Для двига делаю возможность созания таймера средствами самого двига.

 Function CreateTimer(Freq : Integer; Proc : TSimplyProcedure) : Integer;

TSimplyProcedure — это процедура без параметров.
Так вот, как особо продвинутые из Вас знают, способов создания таймера два:

1) Через получение формой сообщения WM_TIMER.
2) Через callback функцию.

Первый способ мне не подходит по одной простой причине:

Если я (пользователь) буду банально вертеть мышью — до таймера дело так и не дойдет.

А вот со вторым заковырка.

 Function CreateTimer(Freq : Integer; Proc : TSimplyProcedure) : Integer;

Пользователь дает мне просто процедуру без параметров. Запихнуть её на место каллбачной в SetTimer просто так нельзя — несоответствие типов и памяти. Хотя такой вариант тоже в принципе (теоретически, через большой геморрой) тоже можно организовать.

Обсудив этот вопрос по аське со Stilet`ом пришли к выводу, что наиболее простым и работающим вариантом будет создание потока и передача ему в параметрах процедуры, переданной пользователем, а всамо потоке создать callback, в котором вызывать пользовательскую…

НО!

Сейчас dll двигла весит 42 кб в непожатом и 21 в пожатом состояниях. Номально и даже превосходно для двигла для создания окон на WinAPI. А вот при подключении Classes для созания потоков размер уходит в 200 кб, что не приемлемо для проекта такого рода.

Что предложите, господа присяжные заседатели?

——————————————————————————————————————————————————————-

ну я вижу два выхода:
1)потоки на АПИ.
2)сделать список/массив соответствия ID->обработчик

ListEntry=record 
 ID:integer; 
 Proc:TSimplyProcedure;  
end; 

//список сам организуешь:)

далее делаем так 
procedure TimerHandler(H:THandle;uMsg:UINT;ID:UINT;Time:DWORD);stdcall;
begin
 TimerList[ID].Proc();//вроде так можно, но в общем намек понял, что нужно с нашего списка по идентификатору получить процедуру.
end;

Function CreateTimer(Freq : Integer; Proc : TSimplyProcedure) : Integer;
begin 
 Result:=TimerList.Add(SetTimer(0,0,Frec,TimerHandler),Proc);  
end;

Procedure DestroyTimer(ID:Integer);
begin 
 KillTimer(TimerList[ID].ID);
 TimerList.Delete(ID);
end;

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

Перейти к теме на форуме.

Случайные статьи

• Рассылка. Выпуск 125
• Управление windows с помощью delphi
• Блокирование события
• Снять все Checked из пунктов меню
• Как в Word сделать элементы управления невидимыми для печати?
• Функция генерации ников
• Удаление файла без возможности восстановления
• Как узнать внешний IP-адрес?
• Дождаться завершения другой программы
• Как суммировать Edit-ы у которых фон зелёного цвета?