Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

сервис [D6, WinXP]


anarhi ©   (2005-06-07 11:40:00) 

Доброго времени суток всем!
Хочу сделать прогу что-бы она работала сервисом, делаю
File | New... | New | Service Application
как сделать чтобы прога через определенный интервал времени
выполняло какое-нибудь действие, например писала некоторую информацию в файл.


Digitman   (2005-06-07 12:00:00) [1]

обычным ..

AssignFile(), TFileStream, Create/WriteFile и т.д. и т.п.


anarhi   (2005-06-07 11:57:00) [2]

и каким образом в доп.трэде писать некоторую информацию в файл.


Digitman   (2005-06-07 11:54:00) [3]

тела обработчиков событий OnStart/Stop/Execute исполняются в доп.трэде сервиса, поэтому ShowMessage() там недопустим

вместо ShowMessage() используй MessageBox()


anarhi   (2005-06-07 11:51:00) [4]

в Service1Execute выполняется только ShowMessage и то 1 раз.

while not Terminated do begin
sleep(1000);
 ShowMessage('gggg');
//делаем что-нибуддь
ServiceThread.ProcessRequests(False);
end;


Digitman   (2005-06-07 11:46:00) [5]

а в чем собственно проблема ?


Наверх

Титульная страница Поиск, карта сайта Написать письмо