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

подскажите плз, можно ли из под сервиса писать файл?   Найти похожие ветки 

← →
Layner ©   (2004-12-24 11:21) [0]

Такой код:

procedure TService.eFile(txt: string);
var
 TF: TextFile;
begin
 AssignFile(TF, "C:\log.txt");
 Append(TF);
 Writeln(TF, txt);
 CloseFile(TF);
end;

Стандартная процедурка... Из под обычного приложения работает, в запущеном сервисе выдает ошибку (в Просмотре Событий: Invalid floating point operation.)
Подскажите, можно ли из сервиса писать файлы? По идее конечно можно, но почему у меня не работает, ничего не понимаю. Заранее спасибо.

---

← →
Digitman ©   (2004-12-24 11:35) [1]

> ничего не понимаю


а что тут понимать ?

возьми да напиши

procedure TService.eFile(txt: string);
var
TF: TextFile;
begin
try
 AssignFile(TF, "C:\log.txt");
 Append(TF);
 Writeln(TF, txt);
 CloseFile(TF);
except
 on e:exception do
  messagebox(0, pchar(e.classname + " " + e.message), "Ничего не понимаю, но исключение все же происходит", mb_ok or mb_setforeground)
end;
end;

---

← →
Layner ©   (2004-12-24 12:04) [2]

Спасибо, только как это messagebox в сервисе? А с исключением попробую.

---

← →
Digitman ©   (2004-12-24 12:17) [3]

> как это messagebox в сервисе?


если это Win32-сервис, стартующий при входе пользователя в систему и взаимодействующий с польз.десктопом, то messagebox вполне подойдет для целей отладки - будет работать обычным образом как в обычном GUI-приложении

иначе придется задействовать штатный механизм протоколирования событий в виде использования метода TService.LogMessage вместо вывода модального диал.окна

---

← →
Leonid Troyanovsky ©   (2004-12-25 14:23) [4]

> Layner ©   (24.12.04 12:04) [2]
> Спасибо, только как это messagebox в сервисе? А с исключением


MB_SERVICE_NOTIFICATION

--
Regards, LVT

---

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

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



Память: 0.46 MB
Время: 0.025 c