Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Проблемы с сервисом(служба)

Автор: Fiyanov 30.4.2007, 13:25

Создаю сервис стандартными средствами. Кидаю на формочку таймер создаю событие. В нем пишу чё мне нада записать в файл. Инсталирую службу. Запускаю службу. Смотрю появился файлик. НО! каждую секунду должен создаваться еще один файл. и еще один. smile

Ведь по таймеру же всё. А нет. Событие происходит один раз только при старте и всё. Как это преодолеть?

Вот код:

Код


procedure TService1.Timer1Timer(Sender: TObject);
begin
   LIst:=TStringList.Create;
   List.Add(DateToStr(DAte()));
   List.SaveToFile(DateToStr(DAte())+'_Timer.txt');
   List.Destroy;
end;

Автор: Snowy 30.4.2007, 14:52

Ну так имя-то одно и то же.
Замени DateToStr(DAte()) на DateTimeToStr(now)

Автор: Fiyanov 2.5.2007, 06:24

Сделал так:

Код


procedure TService1.Timer1Timer(Sender: TObject);
begin
LIst:=TStringList.Create;
List.Add(DateToStr(DAte()));
List.SaveToFile(DateTimeToStr(now)+'_Timer.txt');
List.Destroy;
end;

ИНсталирую сервис или запускаю точно не помню и начинает выскакивать окно каждую секунду что мол неверный параметр какой то.

Ещё делал так: List.SaveToFile(inttostr(random(100))+'_Timer.txt');

Один файл сохраняет и всё. как будта прога один раз выполнилась и благополучно завершилась.

Автор: Fox_in 2.5.2007, 10:24

А зачем каждый раз создавать List, а потом его удалять??
Может проще onCreate -- создать List, потом записать туда все, а onClose -- переписать все в файл, закрыть файл, удалить List.

Автор: Fiyanov 2.5.2007, 10:42

Лист тут не причем он создаеться нормально. так как на онкрит у меня такая же конструкция и всё ОК. У меня такое ощущенье что прога отрабатывает один раз и всё. А где сосздавать и уничтожать лист это дело десятое.

Автор: Snowy 2.5.2007, 12:15

Ну да. Недопустимые символы будут. Не предусмотрел.
Попробуй так:

Код


  List.SaveToFile('Timer_' + FormatDateTime('yyyymmddhhnnss', now)+'.txt');

Автор: Fiyanov 2.5.2007, 14:59

Создаеться один файл и всё. Может ты работоспособный примерчик мне зделаеш? Плиз оч нада. Почта: [email protected]

Автор: Snowy 2.5.2007, 15:08

Ну на проект.
Только остановить не забудь. А то файлами засыпет smile

Автор: Fiyanov 3.5.2007, 06:02

Блин и вправду всё работает... чёж у меня не так. Буду смотреть. Спасибо за примерчик smile