Логгер

[hinst]

А.Н.,
Variant можно использовать, но только при использовании метода. операторами нельзя (пока). но методами нормально
а оператор << в документации по Си, которую я читал, обозван "оператором вставки". типа он как-будто вставляет

[А.Н.]

Variant можно использовать, но только при использовании метода. операторами нельзя (пока). но методами нормально

Хм... Тогда надо просто сделать перегруженный метод Log с variant параметрами.
Но это позже. Сейчас бы ротацию сделать.
Потом, в TFileStream, то ли ошибка, то ли недоработка.

а оператор << в документации по Си, которую я читал, обозван "оператором вставки". типа он как-будто вставляет

o.O В C это сдвиг влево. А там, наверное, была документация по C++ и имелись ввиду потоки. Там он тоже переопределён.

[hinst]

Хм... Тогда надо просто сделать перегруженный метод Log с variant параметрами.

ну дык а я что сказал? есть у мну уже такой. или про что вы спрашивали?

[Sergei I. Gorelkin]

Полный аналог? Т.е., при переопределении <<, переопределится действие shl?

Насколько мне известно, преобразование << в shl (и >> в shr) происходит на уровне сканера, так что да, должно переопределяться.

[Odyssey]

Хм... Тогда надо просто сделать перегруженный метод Log с variant параметрами.

А может добавить LogFmt, аналогичную Format, но выводящую строку в лог? Так же как сделано с Exception.CreateFmt.

[А.Н.]

2hinst:
Не заметил с variant. Может, я плохо смотрел.

2Odyssey:
Уже есть. И логирование Exception, кстати, есть, чтобы Application.OnException логировать, по-человечески.
Но со строкой, всё-равно, не всегда удобно.

Добавлено спустя 5 минут 51 секунду:
Да... Конечно, у log4delphi понтовая система "appender'ов" и куча тестов... Даже ротация отдельным "подключаемым модулем" сделана. Но ладно. Слюни, пока что распускать не буду, допилю что есть.
Потом уже стоит действительно подумать о допиле log4delphi. Если кому-то правда нужен мощный лог в delphi и lazarus.

[Brainenjii]

ИМХО, стоит всё-таки доделать log4delphi, прикрепить к нему экспорт лога по email и прочие плюшки... Но оставить возможность простенького лога, на уровне тех самых Debug('блабла');
А все эти << от лукавого... ИМХО, лучше что-нибудь вроде
Procedure Log(Const aString: String; aParams: Array Of Const);
И потом писать Log('Произошла ошибка: %s номер %d', ['мы все умрём', i]);
Не идеально, но всё-таки чуть ближе к паскалевскому...

[yurgel]

Выкладывай, даже недопиленный. Посмотрим. TLogEvent, прежде всего, не устраивает тем, что пересоздаёт лог и косячит с уровнем доступа. Пока что, я только скопирастил его и к стилю своему привёл. Буду постепенно менять. Плюс, у меня свои функции логирования, создающие лог, при обращении.
Надо слить воедино, что у кого есть. Получится что-то путное тогда.

не уверен насчёт сливать, скорее, стоит "сливать" идеи, а не их реализацию. логгер выкладываю, в архиве есть пример. тестировалось под виндой на 9.26 и 9.28. коротко о главном:

- логгер автоматически создаётся и освобождается
- для логирования есть 5 предопределённых процедур (соответственно уровням отладки): LogError, LogWarning, LogHint, LogInfo и LogSystem.
- лог автоматом логирует все Actions (т.е. при создании переопределяется TApplication.OnAction с последующим запуском сохранённого пользовательского обработчика)
- весь лог висит в памяти (т.к. он есть потомок TStringList)
- есть возможность прицепиться на факт логирования (событие OnLog) для дальнейшей обработки (отсылки на почту, запись в БД и т.д.)
- есть возможность подавлять повторяющиеся логи. (используется для уровней отладки SYSTEM, если юзер ведёт мышкой по экрану - логируется только первое сообщение)

подчеркну, что логер писался под вполне конкретные задачи, и делает он ровно то, для чего писался на универсализм никто не претендует. работает в Delphi и Lazaruse в нескольких проектах пока без нареканий.

[А.Н.]

не уверен насчёт сливать, скорее, стоит "сливать" идеи, а не их реализацию. логгер выкладываю, в архиве есть пример. тестировалось под виндой на 9.26 и 9.28. коротко о главном

У меня до ротации всё руки не дойдут никак. Всё остальное, с грехом сделал.
А так, сливать идеи, конечно, хорошо. Но долго и с ошибками, без реализации.
К тому же, не понятно будет ли идея работать (это в общем, а не только для программ).

- лог автоматом логирует все Actions (т.е. при создании переопределяется TApplication.OnAction с последующим запуском сохранённого пользовательского обработчика)

Не лучшая идея. Правильнее, думаю, дать пользователю возможность переопределять самому.

- весь лог висит в памяти (т.к. он есть потомок TStringList)

Тоже, не самый гут. Хочется иметь возможность посмотреть что там натворилось, в процессе работы.

- есть возможность прицепиться на факт логирования (событие OnLog) для дальнейшей обработки (отсылки на почту, запись в БД и т.д.)

Это определённо хорошая идея. В текущем (который я так и не скинул) логгере нету.
Но... У log4delphi есть appender'ы. С его архитектурой нужно подумать требуются ли события.
Хотя... Лишним не будет.

- есть возможность подавлять повторяющиеся логи.

Тоже нормальная идея.

Кстати, что сразу бросилось в глаза - юникод в логе. Не гут. Лучше использовать системную кодировку.
Перекодирование я уже реализовал. Выложу, пока что, то, что есть. Сыро, конечно. Половина не работает. property не определены. Ротации нет (и ещё много чего, пишет в один файл). Но хоть что-то.

Не материтесь особо. Пока не допилено.
Ещё посмотрел ваш логгер. Нет настраиваемой ротации. С подходом по времени - слишком много складывается логов в каталоге. Ещё охота сделать отключение ротации и ротацию по размеру.
Кстати, логирование сообщений - штука хорошая.

[yurgel]

насчёт системной кодировки - не знаю. юникод - он и в африке юникод, под любой осью.

Не лучшая идея. Правильнее, думаю, дать пользователю возможность переопределять самому.

а никто и не отбирает у юзера возможность переопределять самому. запуск TAction логируется всегда, и уже кроме этого - пользователь может сам писать свои обработчики и для TApplication.OnAction, и для TActionList.OnAction.

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

но по большому счёту, это кусок одного большого и страшного проекта, который весь состоял из подобных модулей. в нём изначально TLogMan получал настройки от TConfigMan-а, которые определяли уровни логирования, пути и многое другое. этот логер, по-сути, отрывок с заглушками в виде констант, которые изначально ему передавал другой класс, отвечающий за конфигурацию системы. позже я логирование "отделил", т.к. мне показалось это всё достаточно удобным.

идея была в том, что добавил в Uses и всё, пиши LogError, LogInfo, безовсяких геморроев - каталог создаётся, файл создаётся, уровень отладки можно менять "на лету" и т.д.

[А.Н.]

Да, типа примеров использования:

Код: Выделить всё

  Application.Title := AnsiToUtf8('...');
  // Логирование всех исключений.
  Application.OnException := @MainLog.OnExceptionLog;
  Debug('Initializing...');
  Application.Initialize;
  Debug('Creating dmData.');
  Application.CreateForm(TdmData, dmData);


Добавлено спустя 2 минуты 4 секунды:

насчёт системной кодировки - не знаю. юникод - он и в африке юникод, под любой осью.

Но неудобно просматривать обычным неюникодным просмотрщиком. Например, Far.

в нём изначально TLogMan получал настройки от TConfigMan-а, которые определяли уровни логирования, пути и многое другое. этот логер, по-сути, отрывок с заглушками в виде констант, которые изначально ему передавал другой класс, отвечающий за конфигурацию системы. позже я логирование "отделил", т.к. мне показалось это всё достаточно удобным.

А, тогда понятно.

идея была в том, что добавил в Uses и всё, пиши LogError, LogInfo, безовсяких геморроев - каталог создаётся, файл создаётся, уровень отладки можно менять "на лету" и т.д.

Такая же идея. Чем проще - тем лучше.

Добавлено спустя 22 часа 20 минут 4 секунды:
Добавил функцию для простого логирования исключений.

Вызывается примерно так:

Код: Выделить всё

function TInfInsCompany.LoadSavedRecord(): boolean;
begin
  Result := false;
  try
    [Код, вызывающий исключение];
    Result := true;
  except
    LogException('TInfInsCompany.LoadSavedRecord:');
  end;
end;

Вся информация об исключении будет добавлена автоматически.
Возможно вызвать и просто: LogException(). Но сейчас какая-то фигня с отладочной информацией.
Ротацией и прочими доделками (а также изучением log4delphi) займусь на выходных, если время останется.

Кстати, чем возможно заменить TFileStream, при записи в файл? Охота, чтобы запись производилась постоянно, была возможность добавления в конец файла и файл не блокировался.

[yurgel]

у меня почему-то не получилось на версиях старше 9.24 вешать один общий перехватчик на TApplicationProperties.OnException. хотя в старом проекте на 9.24 - это живёт.

кстати, в одном проекте у меня исключения не просто логируются, а автоматом делается скриншот формы, активной в момент эксепшена. это можно сделать настраиваемой опцией в логере, и этот скриншот либо писать в заданный каталог, либо копировать в буфер обмена (либо и то, и другое).

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

[А.Н.]

у меня почему-то не получилось на версиях старше 9.24 вешать один общий перехватчик на TApplicationProperties.OnException. хотя в старом проекте на 9.24 - это живёт.

У меня версия 9.28 (я так и не обновил). Работает нормально. Но там ещё есть функции для логирования исключений без перехватчика в try/except блоке.

кстати, в одном проекте у меня исключения не просто логируются, а автоматом делается скриншот формы, активной в момент эксепшена. это можно сделать настраиваемой опцией в логере, и этот скриншот либо писать в заданный каталог, либо копировать в буфер обмена (либо и то, и другое).

Это возможно сделать доп. функциональностью. Скриншот - штука хорошая, но очень специфично для задачи и не так часто нужно. В log4delphi есть appender'ы - типа модулей вывода (на консоль, в null, в сист. лог, в файл, на почту и т.д.). Вот я думаю, что сделать подобную "плагинную" модель.
В любом случае, log4delphi я ещё покопаю, т.к. он заслуживает изучения.
И создание скриншотов возможно будет прикрутить.

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

В смысле, какой менеджер?

[yurgel]

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

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

з.ы. - повторюсь, это сугубая имха.

[krab]

Нашел еще MultiLog: https://luipack.bountysource.com/wiki/multilog