Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Внизподскажите плз, можно ли из под сервиса писать файл? Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c