консоль

← →
Dennnis (2002-10-03 10:33) [0]

помогите пллиз.

пишу так:

program dd;
uses ...
var ...

procedure rer;
begin
...
end;

begin
...
settimer(application.hwnd,1,1000,@rer)
...
end.

если это юнит то вызов функции rer работает, а если консоль то почемуто нет, подскажите в чем моя ошибка.

← →
Ketmar © (2002-10-03 11:45) [1]

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

Satanas Nobiscum! 03-Oct-XXXVII A.S.

← →
vidiv (2002-10-03 11:50) [2]

Если ты используешь Read или Readln во время, когда таймер должен работать, то оно и не будет работать, т.к. твое приложение на это время не отвечает, можно создать окно, которое будет накапливать сообщения, а между Readln ами выплескивать его.

Кстати, на счет консоли, умеешь выводить в нее с цветом, и вообще знаешь как получить InputHandle, OutputHandle или ErrorHandle, твоей консоли

← →
dennnis (2002-10-03 16:30) [3]

то есть всетаки через юнит и окно и по другому никак :(

← →
dennnis (2002-10-03 18:26) [4]

если будет окно то можно обойтись и vcl компонентой timer, а мне хотелось бы чтобы вообще без окна

собственно, никто ведь не мешает завести отдельный тред со слипом внутри. и аккуратненько вызывать после слипа нужную процедуру...

Satanas Nobiscum! 03-Oct-XXXVII A.S.

← →
dennnis (2002-10-04 10:37) [6]

оригинально, надо попробовать

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