Логирование сервиса / Delphi

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Логирование сервиса

12 сообщений из 12, страница 1 из 1

Логирование сервиса

#39524040

RuslanSharipov

Гость

Доброго времени суток!

Пишу службу, не могу никак разобраться с логированием.
Сейчас приведу простенький пример:

Создал mc файл вида:

MessageIdTypedef=DWORD
LanguageNames=(Russian=0x419:MSG00419)
MessageId=0x1
Language=Russian
%1
.

скомпилировал res файл и присоединил к проекту.

Из службы вызываю

Код: pascal

LogMessage('TestEvent', EVENTLOG_SUCCESS, 0, 1);

Служба лежит на C:\1\Project1.exe

В HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\Service1 добавил:
EventMessageFile = C:\1\Project1.exe
TypesSupported = 7

Устанавливаю службу запускаю, в журнал windows добавляется запись но не так как ожидалось:

Не удается найти описание для идентификатора события 1 из источника Service1. Вызывающий данное событие компонент не установлен на этом локальном компьютере или поврежден. Установите или восстановите компонент на локальном компьютере.

Если событие возникло на другом компьютере, возможно, потребуется сохранить отображаемые сведения вместе с событием.

К событию были добавлены следующие сведения:

TestEvent

ресурс сообщения существует, но сообщение не найдено в таблице строк и таблице сообщений

Как с этим бороться?

...

Рейтинг:

0 / 0

20.09.2017, 21:30:00

| Ответить | Цитировать | Написать

Логирование сервиса

#39524044

__Avenger__

Участник

Сообщения: 2 026

Рейтинг: 0 / 0

RuslanSharipovКак с этим бороться?

A rc с каким типом создал?

...

Рейтинг:

0 / 0

20.09.2017, 22:14:06

| Ответить | Цитировать | Написать

Логирование сервиса

#39524046

RuslanSharipov

Гость

__Avenger__,

mc -a -U msg.mc

rc -r msg.rc

...

Рейтинг:

0 / 0

20.09.2017, 22:22:25

| Ответить | Цитировать | Написать

Логирование сервиса

#39524048

__Avenger__

Участник

Сообщения: 2 026

Рейтинг: 0 / 0

RuslanSharipov__Avenger__,

mc -a -U msg.mc

rc -r msg.rc

Ну так msg.rc какой тип стоит внутри?

...

Рейтинг:

0 / 0

20.09.2017, 22:24:32

| Ответить | Цитировать | Написать

Логирование сервиса

#39524050

RuslanSharipov

Гость

__Avenger__,

LANGUAGE 0x9,0x1
1 11 "MSG00409.bin"
LANGUAGE 0x19,0x1
1 11 "MSG00419.bin"

...

Рейтинг:

0 / 0

20.09.2017, 22:27:46

| Ответить | Цитировать | Написать

Логирование сервиса

#39524051

__Avenger__

Участник

Сообщения: 2 026

Рейтинг: 0 / 0

RuslanSharipov__Avenger__,

LANGUAGE 0x9,0x1
1 11 "MSG00409.bin"
LANGUAGE 0x19,0x1
1 11 "MSG00419.bin"

У меня несколько отличается регистрация в реестре:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

    if OpenKey('SYSTEM\CurrentControlSet\Services\EventLog\Application\' + Name, True) then
    try
      WriteString('CategoryMessageFile', APathSelf);
      WriteString('EventMessageFile', APathSelf);
      WriteInteger('CategoryCount', 2); // Максимальное количество категорий
      WriteInteger('TypesSupported',
        EVENTLOG_SUCCESS or EVENTLOG_ERROR_TYPE or
        EVENTLOG_WARNING_TYPE or EVENTLOG_INFORMATION_TYPE);
    finally
      CloseKey;
    end;

и сам mc файл:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.

;
MessageId=0
Language=English
%1
.
MessageId=1
Language=English
Base 
.

И все работает. Запускаю примерно так:

Код: pascal

1.
2.
3.

    Self.LogMessage(Format('[%s(0x%p)] %s', [
      ClassName, Pointer(Self), AMsg
    ]), EVENTLOG_ERROR_TYPE, 1, 0);

А имя сервиса service.Name точно Service1?

...

Рейтинг:

0 / 0

20.09.2017, 22:32:05

| Ответить | Цитировать | Написать

Логирование сервиса

#39524052

RuslanSharipov

Гость

__Avenger__
У меня несколько отличается регистрация в реестре:

Код: pascal

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

    if OpenKey('SYSTEM\CurrentControlSet\Services\EventLog\Application\' + Name, True) then
    try
      WriteString('CategoryMessageFile', APathSelf);
      WriteString('EventMessageFile', APathSelf);
      WriteInteger('CategoryCount', 2); // Максимальное количество категорий
      WriteInteger('TypesSupported',
        EVENTLOG_SUCCESS or EVENTLOG_ERROR_TYPE or
        EVENTLOG_WARNING_TYPE or EVENTLOG_INFORMATION_TYPE);
    finally
      CloseKey;
    end;

ну отличие фактически только в значении TypesSupported, а CategoryCount и CategoryMessageFile насколько мне известно необязательные параметры.

__Avenger__
А имя сервиса service.Name точно Service1?

точно

...

Рейтинг:

0 / 0

20.09.2017, 22:42:01

| Ответить | Цитировать | Написать

Логирование сервиса

#39524070

GunSmoker

Участник

Сообщения: 3 366

Рейтинг: 0 / 0

Идентификатор, вероятно, не правильно указан. Должен быть полным. Примерно вида $C002XXXX (если severity = error, а facility = runtime), где XXXX - это ваша 1, 2 и т.д.

Посмотрите в выходных файлах (заголовочники) там константа для сообщений указывается.

Можно ещё вот тут почитать: http://www.eurekalog.com/help/eurekalog/system_logging_setup.php

...

Рейтинг:

0 / 0

21.09.2017, 01:47:04

| Ответить | Цитировать | Написать

Логирование сервиса

#39524387

_Vasilisk_

Участник

Откуда: Украина, Харьков

Сообщения: 13 612

Рейтинг: 0 / 0

RuslanSharipovВ HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\EventLog\Application\Service1 добавил:После этого компьютер или службу EventLog перезапустили?

...

Рейтинг:

0 / 0

21.09.2017, 15:07:42

| Ответить | Цитировать | Написать

Логирование сервиса

#39524486

RuslanSharipov

Гость

_Vasilisk_,

После перезапуска Журнал событий:

Не удается найти описание для идентификатора события 1 из источника Service1. Вызывающий данное событие компонент не установлен на этом локальном компьютере или поврежден. Установите или восстановите компонент на локальном компьютере.

Если событие возникло на другом компьютере, возможно, потребуется сохранить отображаемые сведения вместе с событием.

К событию были добавлены следующие сведения:

TestEvent

Неверный дескриптор

...

Рейтинг:

0 / 0

21.09.2017, 17:56:34

| Ответить | Цитировать | Написать

Логирование сервиса

#39524911

RuslanSharipov

Гость

Вопрос остается открытым

...

Рейтинг:

0 / 0

22.09.2017, 14:39:14

| Ответить | Цитировать | Написать

Логирование сервиса

#39524933

RuslanSharipov

Гость

В итоге попробовал rc присоединить к проекту чтобы он сам файл ресурсов сгенерировал, перезапустил службы теперь отображается нормально

...

Рейтинг:

0 / 0

22.09.2017, 15:01:05

| Ответить | Цитировать | Написать

12 сообщений из 12, страница 1 из 1

Форумы / Delphi [игнор отключен] [закрыт для гостей] / Логирование сервиса

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=58&msg=39524052&tid=2041809]:	0ms
get settings:	9ms
get forum list:	19ms
check forum access:	4ms
check topic access:	4ms
track hit:	283ms
get topic data:	12ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	2ms
others:	218ms

total:	617ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы