Хочу проверить
совет, в связи с чем решил собрать безгуевое приложение.
Помогите, пожалуйста, ума не приложу, почему не выводится нужная информация. Я сделал, чтобы приложение принудительно ждало, пока не произойдут вычисления, процедура Do так вроде и не запускается ни разу.
Код:
MODULE MyFpstest;
IMPORT Kernel, Win := WinApi, Log, Services;
TYPE
Action = POINTER TO RECORD (Services.Action) END;
VAR
time, counter: LONGINT;
fpsR: REAL;
ra: Action;
PROCEDURE ProcessMessages;
VAR msg: Win.MSG; res: INTEGER;
BEGIN
WHILE Win.PeekMessage(msg, 0, 0, 0, Win.PM_REMOVE) # 0 DO
res := Win.TranslateMessage(msg);
res := Win.DispatchMessageA(msg)
END
END ProcessMessages;
PROCEDURE (a: Action) Do;
BEGIN
fpsR := 1000 / (Kernel.Time() - time);
time := Kernel.Time();
Log.Real(fpsR); Log.Ln;
IF counter < 100 THEN
INC(counter);
Services.DoLater(a, Services.now)
END
END Do;
PROCEDURE Start*;
BEGIN
NEW(ra);
counter := 0;
Services.DoLater(ra, Services.now);
Log.String("Start"); Log.Ln;
WHILE counter < 100 DO
ProcessMessages;
Win.Sleep(100);
END;
END Start;
BEGIN
Start
END MyFpstest.
MyFpstest.Start
DevLinker.LinkExe dos test.exe := Kernel$+ Files HostFiles Dates Meta Log Dialog Math Strings WinConsole Meta Services MyFpstest~