On English

http://depositfiles.com/files/nh2pjh2k5

0. Компонент tLogFile.

Компонент  tLogFile предназначен для простого добавления в приложения функционала логирования. Логирование производиться в текстовые файлы. Запись проводиться согласно настраиваемым параметрам.

1. Установка 

 

1.1. Components -> Install Packages... -> Add

1.2. Выберите TtLogFile.bpl, нажмите Open

1.3. OK

 

2.1. File -> Open Project ...

2.2. Выберите TtLogFile.dpk, нажмите Open

2.3. Compile TtLogFile.dpk

2.4. Install TtLogFile.dpk

2.5. OK

 

2. Описание свойств

 

Компонент расположен на вкладке TTComponents

Свойства :

    property Active - true - запись в лог ведется, false-лог отключен

    property FileName - Префикс имени файла логов

    property KeepOpened - true - файл не закрывается после каждой записи

    property FileDir - Путь где будут храниться файла логов

    property FileExt: - расширение для файла логов

    property FormatDateTimeToLog - формат даты и времени, добавляемый в лог

    property FormatDateStr - формат даты времени, добавляемый в имя файла

    property AddDateTimeToLog - true - записывать в файл дату и время, false - не записывать

    property AddMessageTypeToLog - true - записывать в файл тип сообщения, false - не записывать

    property IniFileName: string read FIniFileName write SetIniFileName - путь к ini - file , где будут храниться настройки для фала логов

    property IniFileSectionName - Название секции в ini - file, из которой необходио будет забирать настройки для логировнаия

    property LogLevel - {llINFO - записывать в лог информационные сообщения, llERROR - записывать в лог сообщения об ошибке, llTRACE - записывать в лог сообщения для трассировки}

 

Методы;

    function Prepare: Boolean - Функция инициализации работы с файлами логов.

    procedure Add(ALevel: TLogLevel; AText: string); - Функция для записи в файл логов сообщения

    procedure AddFile(ALevel: TLogLevel; AFilePath: string); - Функция для записи в файл данных из жругого текстового файла.

    procedure AddStrings(ALevel: TLogLevel; AStrings: TStrings); - Функция для записи множества строк в лог файл

    procedure AddFromStream(ALevel: Tloglevel; AStream: TStream; ABufSize: Integer); - Функция для записи из потока в лог файл

    procedure SaveToStream(AStream: TStream; const AFileName: string = ''); - Функция я для сохранения файла логов в поток.

    function LoadFromIniFile: Boolean; - Функция для загрузки параметров логирования из файла.

 

---------------------------------------------------------------------

Пример ini-файла:

[Log]

; уровень логирования уазывает типы каких ообщений будут писаться

;  INFO  = 1 - information ;

;  ERROR = 2 - Errors;

;  TRACE = 3 - Debug;

LogLevel = 4

;префикс имени

FileName = Log

; 1 - писать в лог файл, 0 - не писать в лог файл

Active = 1

; 1 - держать файл открытым

KeepOpened = 1

; добавлять перед каждой записью в файл лога дату и время

AddDateTimeToLog = 1

; расширение файла лога

FileExt = .log

; формат даты времени в имени файла.

FormatDateStr = YYYYMMDD

;путь к файлам логов

; папка Log в директории откуда запускается файл

FileDir = .\Log

; формат даты времени добавляемого в лог

;dd/mm/yy hh:mm:ss = 09/02/49 01:02:03

;mmm = Фев

;mmmm = Февраль

;ddd = Вт

;dddd = Вторник

;ddddd = 09/02/2049

;dddddd = 09 Февраль 2049

;hhampm = 01AM

;t = 01:02

;tt = 01:02:03

;dd/mm/yyyy = 09/02/2049

;dd/mm/yy hh:mm:ss = 09-02-49 01_02_03

;mmm = ФЕВ

;mmmm = ФЕВРАЛЬ

;ddd = ВТ

;dddd = ВТОРНИК

;ddddd = 09-ФЕВ-49

;dddddd = ВТОРНИК 09 ФЕВРАЛЬ 1949

;hhampm = 01утро

;t = 01_02_03

;tt = 01 _ 02 _ 03 . 004

;dd/mm/yyyy = 09-02-1949

FormatDateTimeToLog = dd/mm/yyyy hh:mm:ss

; true - записывать в файл тип сообщения, false - не записывать

AddMessageTypeToLog = 1