Use the log4delphi 0.8 log component in Delphi 7

Source: Internet
Author: User

Log4delphi is an open-source project designed to create a high-quality and practical log suite for borland. It is a log4j package based on the Apache Software Foundation.

Installation:
1. Extract from http://sourceforge.net/projects/log4delphi/files/download 0.8133 to the folder. Open the folder ".. \ log4delphi-0.8" and create a new folder "build ";
2. run Delphi 7, open the component package "log4delphi_d7_prof.dpk", located under "... \ log4delphi-0.8 \ SRC \ Delphi", click "compile" and "Install" to compile and install;
3. menu "Tools" → "Environment options" → "library" → "library path", add "... \ log4delphi-0.8 \ build "Directory (if you need to connect source code, then add "... \ log4delphi-0.8 \ SRC \ Delphi "and "... \ log4delphi-0.8 \ SRC \ Delphi \ util ");
Usage:
1. Create an application and save the current project.
2. Choose "project"> "View Source" and add initialization logs. The Code is as follows:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
Program project1;
 
Uses
Forms,
Tconfiguratorunit, {need to reference this unit}
Unit1 in 'unit1. pa' {form1 };
 
{$ R *. Res}
 
Begin
Application. initialize;
Dopropertiesconfiguration ('log4delphi. properties'); {initialization, read attribute}
Application. createform (tform1, form1 );
Application. Run;
End.

3. Copy ".. \ log4delphi-0.8 \ example \ log4delphi. properties" to the project directory;
4. place two buttons on the form, and click the event and the form destruction event as follows:

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
Implementation
 
Uses tloggerunit; {reference this unit}
 
{$ R *. DFM}
 
Procedure tform1.btn1click (Sender: tobject );
Begin
Tlogger. getinstance. debug ('button 1 clicked '); {Get tlogger instance}
End;
 
Procedure tform1.btn2click (Sender: tobject );
Begin
Tlogger. getinstance. Info ('button 2 is also clicked '); {includes fatal, error, warn, info, debug, trace}
End;
 
Procedure tform1.formdestroy (Sender: tobject );
Begin
Tlogger. freeinstances; {release when not needed}
End;

5. Run the program. Click Buttons 1 and 2 to close the program. The "app. log" file is found in the project directory. open the file as follows:

6. Open the attribute file "log4delphi. properties" to view some default attributes and attribute descriptions. For example, you can set the log file layout. The original content is as follows:

1
2
3
4
5
6
Log4delphi. appender. fileappender. layout = tsimplelayout
# Log4delphi. appender. fileappender. layout = txmllayout
# Log4delphi. appender. fileappender. layout = thtmllayout
# Log4delphi. appender. fileappender. layout. Title = document title
# Log4delphi. appender. fileappender. layout = tpatternlayout
# Log4delphi. appender. fileappender. layout. pattern = % d {dd Mmm yyyy hh: NN: SS: ZZZ} [% 5 p] % m % N

By default, tsimplelayout is enabled, which is a simple layout in the same format as above. To output logs in time format, disable tsimplelayout and then enable tpatternlayout and its style, for example:

1
2
3
4
5
6
# Log4delphi. appender. fileappender. layout = tsimplelayout
# Log4delphi. appender. fileappender. layout = txmllayout
# Log4delphi. appender. fileappender. layout = thtmllayout
# Log4delphi. appender. fileappender. layout. Title = document title
Log4delphi. appender. fileappender. layout = tpatternlayout
Log4delphi. appender. fileappender. layout. pattern = % d {dd Mmm yyyy hh: NN: SS: ZZZ} [% 5 p] % m % N

7. Execute Step 1 again and open it, as shown in:

8. If the time format does not meet personal requirements, you can customize the format, specific can refer to the User Wizard (http://log4delphi.sourceforge.net/userguide.html ).

Address: http://blog.csdn.net/jhlz1968/article/details/3293493

Contact Us

The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion; products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the content of the page makes you feel confusing, please write us an email, we will handle the problem within 5 days after receiving your email.

If you find any instances of plagiarism from the community, please send an email to: info-contact@alibabacloud.com and provide relevant evidence. A staff member will contact you within 5 working days.

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.