Проблемы с наследованием форм от TService

← →
vlv © (2003-05-21 17:30) [0]

Создаю совершенно пустой класс
TMyParentService = class(TService).
Служба работает без проблем.

Создаю совершенно пустой класс
TMyChildService = class(TMyParentService).
Вроде служба инсталится, запускается, но при остановке происходит задержка, после чего мне сообщают, что служба слишком долго не отвечает на запросы.

Может, кто сталкивался с подоюной ситуацией?

← →
Ihor Osov'yak © (2003-05-21 18:46) [1]

procedure TТраЛяляService.ServiceStop(Sender: TService;
var Stopped: Boolean);
begin
wasStop := true; // это случаем не забыто?

да, о наследовании форм.. При чем здесь оно?

Проблемы с наследованием форм от TService Найти похожие ветки