Журнал регистрации

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Ответить
fcdk_pavel
Сообщения: 3
Зарегистрирован: 13 сен 2013, 10:14

07 окт 2013, 15:12

Доброго времени суток!
Подскажите как и каким объектами сделать журнал регистрации для созданого проекта в Delphi
Что-то типа такого как в 1С(конечно-же намного попроще).Самое главное чтобы было в нем: кто и когда заходил в программу.
Аватара пользователя
somewhere
Сообщения: 1837
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

08 окт 2013, 10:50

Объявить запись, вида
[syntax=delphi]
TJournalRecord record
Username : String[32];
Time : TDateTime;
Action : String[64];
end;
[/syntax]
и создать типизированный файл из этих записей. При определенных событиях дополнять файл данными.
It's a long way to the top if you wanna rock'n'roll
fcdk_pavel
Сообщения: 3
Зарегистрирован: 13 сен 2013, 10:14

09 окт 2013, 09:45

а где именно объявить такую запись
TJournalRecord record
Username : String[32];
Time : TDateTime;
Action : String[64];
end;
Хыиуду
Сообщения: 2388
Зарегистрирован: 06 мар 2005, 21:03
Откуда: Москва
Контактная информация:

09 окт 2013, 10:41

Видимо, в коде того модуля, который вызывается при запуске программы
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

09 окт 2013, 10:52

Да ну, какие модули, какие записи!
Прямо в файле проекта, прямо после BEGIN сделать

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

try
  Assign(f,'c:\logs\журнал.txt');
  Append(f);
  Writeln(f,<тут слепить текст, в т.ч. пользуясь GetEnv, чтобы получить имя домена, компьютера и пользователя>);
  Close(f);
finally
end;
ну, и переменную "f" объявить как "Text";
Аватара пользователя
somewhere
Сообщения: 1837
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

09 окт 2013, 11:37

Naeel Maqsudov, а если надо по пользователю отобрать события - парсить текст?
It's a long way to the top if you wanna rock'n'roll
Аватара пользователя
Naeel Maqsudov
Сообщения: 2551
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

09 окт 2013, 11:39

Судя по вопросу - не надо :)
Хотите быть святее папы римского? ;)
Аватара пользователя
somewhere
Сообщения: 1837
Зарегистрирован: 31 авг 2006, 17:14
Откуда: 71 RUS
Контактная информация:

09 окт 2013, 12:39

Если это журнал, а не лог - то по умолчанию предполагается структура. Записей то будет много и их будут просматривать.
It's a long way to the top if you wanna rock'n'roll
Ответить