Замена TTimer

[Сергей Смирнов]

Может туплю, но не могу сообразить, чем заменить TTimer так, чтобы не было зависимости от LCL. Не обязательно компонент, достаточно просто кода, выполнение которого приводит к периодическому запуску указанной процедуры. Неужто в FCL такого нет? Куда копать-то?

PS: Это всё к тому, чтобы избавиться от LCL-зависимости у FIBL. Периодический запуск процедуры там реально нужен для проверки соединения.

[Гость_SergKam]

В unix для этого используется сигнал ALARM, его и программе подается сигнал через указаное количество секунд.
А вообще, не пробовал посмотрель реализацию самого компонента TTimer?

[Cтас]

Используй SetTimer, описание в МСДН.

[Сергей Смирнов]

Э нет, так не пойдёт. Я хочу платформонезависимую реализацию (т.е. желательно средствами rtl, ну или fcl). TTimer в этом смысле мне не помошник, потому как уходит корнями в TWidgetSet, следовательно зависит от платформы и реализован только для того, для чего реализована lcl.

[Sega-Zero]

Я так понимаю, проги будут писаться, в основном под линь и вынь?
Почему бы не сделать
{$IFDEF WIN32}
//code for win
{$ELSE}
//code for *nix
{$ENDIF}

[shraibikus]

Используй SetTimer, описание в МСДН.

ок.
В Delphi этот код работает:

Код: Выделить всё

SetTimer(0,1,1000,@OnTimer);

в Lazarus сообщает:

RDM.lpr(24,40) Error: Incompatible type for arg no. 4: Got "<address of procedure;Register>", expected "<procedure variable type of procedure(LongWord, LongWord, LongWord, LongWord);StdCall>"

Как быть, кроме

Код: Выделить всё

{$mode delphi}{$h+}

?

[Mr.Smart]

Функция обработчик должна выглядеть так:

Код: Выделить всё

procedure OnTimerProc(_para1:HWND; _para2:UINT; _para3:UINT; _para4:DWORD); stdcall;

[shraibikus]

Mr.Smart спасибо! =)

[Odyssey]

В рассылке только что пробегал вопрос по TFPTimer.