Page 1 of 1

Евент на появление строки в журнале

Posted: 03.01.2015 1:50
by Maxwell
Очень хочется поиметь евент на строку в журнале. Это бы позволило более гибко вести журнал во внешних скриптах, ибо мне не очень нравится как отрабатывает InJournalBetweenTimes.

Re: Евент на появление строки в журнале

Posted: 03.01.2015 1:52
by drabadan
Maxwell wrote:Очень хочется поиметь евент на строку в журнале. Это бы позволило более гибко вести журнал во внешних скриптах, ибо мне не очень нравится как отрабатывает InJournalBetweenTimes.

Code: Select all

evUnicodeSpeech : [Text,SenderName,SenderID]

Re: Евент на появление строки в журнале

Posted: 12.01.2015 13:23
by Maxwell
Это не то. Это когда кто-то говорит. А мне нужны все сообщения в журнале, включая системные и с их временем.

Re: Евент на появление строки в журнале

Posted: 12.01.2015 17:33
by drabadan
Maxwell wrote:Это не то. Это когда кто-то говорит. А мне нужны все сообщения в журнале, включая системные и с их временем.
у меня и системные там отражаются.

Code: Select all


procedure OnSpeech(Text, SenderName : String; SenderID : Cardinal);
begin
 AddToSystemJournal(Text + '|' + SenderName + IntToHex(SenderID, 8));
end;


15:03:00:147 [Melnik]: Chat is not currently supported.|SystemFFFFFFFF
15:03:23:153 [Melnik]: 63° 22'N, 59° 12'E|SystemFFFFFFFF

Re: Евент на появление строки в журнале

Posted: 12.01.2015 20:00
by Maxwell
Ну и там как минимум нет времени.

Re: Евент на появление строки в журнале

Posted: 12.01.2015 21:09
by drabadan
Maxwell wrote:Ну и там как минимум нет времени.

Code: Select all

procedure OnSpeech(Text, SenderName : String; SenderID : Cardinal);
begin
 AddToSystemJournal(Text + '|' + SenderName + '|' + IntToHex(SenderID, 8) + '|' + TimeToStr(Now));
end;
теперь есть.

Re: Евент на появление строки в журнале

Posted: 13.01.2015 0:24
by Maxwell
Ну это же фейковое время. Хотя для целей контроля появления можно пользоваться. А есть ли гарантия порядка прихода? Да и как видно не везде работает. По крайней мере у меня не пошло.