Скачать: CL | DM;

Как изменить во время (Pause, Resume) TimeOut сервиса?   Найти похожие ветки 

← →
Erik1   (2004-08-30 17:09) [0]

У меня в TService стоит 1 секунда, но Pause, Resume выполняются намного быстрее. Я хочу сразу после выполнения, проинформировать видовый сервис менаджер, что операция завершина.
Примерно так:
procedure TSrvDJP.ServicePause(Sender: TService; var Paused: Boolean);
begin
 RealEvent.Suspend;
 Paused := True;
 ReportStatus; //--Это непомогло.
end;

---

← →
Erik1   (2004-08-31 10:54) [1]

Что неужели никто неразбирался как работает TServiceApplication. Проблема в том, что при изменении TimeOut, реальное оповещение об этом отрабатывает только после окончания событий OnPause и пр..

---

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

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.101 c