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

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;

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

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

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

• 3D MAX модель древне русского или древне украинского дома
• Скачать файл из интернета
• Что такое полиморфизм?
• Как можно сделать чтобы текст из memo по таймеру добавлялся в буфер обмена?
• Генерация слов из listbox
• УРОК 7. ПРОГРАММА ПРИНИМАЕТ РЕШЕНИЕ
• Посчитать количество пустых значений в полях
• Как проверить установлена ли программа на компьютере?
• Программирование на ассемблере на платформе x86-64
• УРОК 39. ИСПОЛЬЗОВАНИЕ ИСКЛЮЧИТЕЛЬНЫХ СИТУАЦИЙ C++ ДЛЯ ОБРАБОТКИ ОШИБОК