Журнал регистрации
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 3
- Зарегистрирован: 13 сен 2013, 10:14
Доброго времени суток!
Подскажите как и каким объектами сделать журнал регистрации для созданого проекта в Delphi
Что-то типа такого как в 1С(конечно-же намного попроще).Самое главное чтобы было в нем: кто и когда заходил в программу.
Подскажите как и каким объектами сделать журнал регистрации для созданого проекта в Delphi
Что-то типа такого как в 1С(конечно-же намного попроще).Самое главное чтобы было в нем: кто и когда заходил в программу.
Объявить запись, вида
[syntax=delphi]
TJournalRecord record
Username : String[32];
Time : TDateTime;
Action : String[64];
end;
[/syntax]
и создать типизированный файл из этих записей. При определенных событиях дополнять файл данными.
[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
-
- Сообщения: 3
- Зарегистрирован: 13 сен 2013, 10:14
а где именно объявить такую запись
TJournalRecord record
Username : String[32];
Time : TDateTime;
Action : String[64];
end;
Видимо, в коде того модуля, который вызывается при запуске программы
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Да ну, какие модули, какие записи!
Прямо в файле проекта, прямо после BEGIN сделать
ну, и переменную "f" объявить как "Text";
Прямо в файле проекта, прямо после BEGIN сделать
Код: Выделить всё
try
Assign(f,'c:\logs\журнал.txt');
Append(f);
Writeln(f,<тут слепить текст, в т.ч. пользуясь GetEnv, чтобы получить имя домена, компьютера и пользователя>);
Close(f);
finally
end;
Naeel Maqsudov, а если надо по пользователю отобрать события - парсить текст?
It's a long way to the top if you wanna rock'n'roll
- Naeel Maqsudov
- Сообщения: 2570
- Зарегистрирован: 20 фев 2004, 19:17
- Откуда: Moscow, Russia
- Контактная информация:
Судя по вопросу - не надо
Хотите быть святее папы римского?

Хотите быть святее папы римского?

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