Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с сервисом [D7, WinXP]

Страницы: < 1 2
serg111111 © (2006-03-16 10:24:00)
Привет умники и умницы :).
Создал сервис как File->New->Other->ServiceApplication, но незнаю как написать обработчик, который проверял бы заланное время с текущим и вслучае совпадения выполнял определенную операцию!

Сергей М. (2006-03-16 11:10:00) [21]

> Что писать в скобочках в процедурах

Можешь вообще ничего там не писать - компилятору достаточно корректной декларации этих методов в декларации класса TMyService.

Либо доверься Инспектору Объектов, который при назначении обработчиков сам свормирует все неоходимые "заготовки" методов-обработчиков.

> какого типа Ftimer

private
FTimer: TTimer; //тут первая F была пропущена, мог бы и сам догадаться дописать ее

serg111111 (2006-03-16 11:04:00) [22]
Что писать в скобочках в процедурах и какого типа Ftimer

serg111111 (2006-03-16 10:49:00) [23]
Спасибо!!!!!!!!!!!!!!

Сергей М. (2006-03-16 10:44:00) [24]
TMyService = class(TService)
..
private
Timer: TTimer;
procedure TimerProc(Sender: TObject);
..
end;

procedure TMyService.MyServiceStart(..); //обработчик события OnStart()
begin
FTimer := TTimer.Create(nil);
FTimer.Interval := 1000;
FTimer.OnTimer := TimerProc;
FTimer.Enabled := True;
Started := True;
end;

procedure TMyService.MyServiceStop(..); //обработчик события OnStop()
begin
FTimer.Free;
Stopped := True;
end;

procedure TMyService.TimerProc(Sender: TObject); //обработчик события OnTimer объекта TTimer
begin
.. читаем тек.сист.время
.. сравниваем с заданным
.. и по результатам сравнения выполняем ту самую "определенную операцию"
end;

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »