Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.12.10;
Скачать: CL | DM;

Вниз

Консоль и таймер   Найти похожие ветки 

 
loooo1   (2006-11-23 09:52) [0]

Возможно ли в консольном приложении на дельфи организовать таймер?


 
RWolf ©   (2006-11-23 09:57) [1]

можно. API-шный таймер может вызывать callback при срабатывании.


 
Anatoly Podgoretsky ©   (2006-11-23 10:03) [2]

> loooo1  (23.11.2006 09:52:00)  [0]

Возможно


 
loooo1   (2006-11-23 10:22) [3]

Ну сочинил я полную ерунду одним словом:
program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils, Windows, Messages;

var
 msg: TMsg;
begin
   SetTimer(0, 1, 2000, 0);
   while(GetMessage(msg, 0, 0, 0)) do
     if msg.Message = WM_TIMER then begin
       MessageBoxA(0, "", "", 0);
       Break;
     end;
   KillTimer(0, 1);
end.

Видимо такой подход далеко не корректен? И как осуществить в такой ситуации коллбэк?


 
Сергей М. ©   (2006-11-23 10:47) [4]


> как осуществить в такой ситуации коллбэк?


А никак.
Чтобы осуществить колбэк, нужно указать адрес колбэк-процедуры 4-ым параметром ф-ции SetTimer() и организовать цикл иного вида:

 while(GetMessage(msg, 0, 0, 0)) do
   DispatchMessage(Msg);


 
RWolf ©   (2006-11-23 10:49) [5]

чтобы принимать сообщения, необходимо сначала создать окно. Без него - только callback. Как - написано в справке по SetTimer.


 
Сергей М. ©   (2006-11-23 10:49) [6]

А чем, кстати, TTimer не угодил ?



Страницы: 1 вся ветка

Текущий архив: 2006.12.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.051 c
2-1164199029
Виктор1
2006-11-22 15:37
2006.12.10
Получение компонентов окна


15-1163787017
antonn
2006-11-17 21:10
2006.12.10
Установка компонент в BSD 2006


15-1164005896
vidiv
2006-11-20 09:58
2006.12.10
Вопрос по MSSQL


15-1164201013
Тульский
2006-11-22 16:10
2006.12.10
Победить глюк №2328 в Windows 2000 Server (SP3)


2-1164482398
koha
2006-11-25 22:19
2006.12.10
Распознавание файлов?