You've already forked multithread
mirror of
https://github.com/loginov-dmitry/multithread.git
synced 2026-04-26 15:54:17 +02:00
loginov-dmitry
83 lines
2.1 KiB
ObjectPascal
83 lines
2.1 KiB
ObjectPascal
{$IFDEF FPC}{$CODEPAGE UTF8}{$H+}{$MODE DELPHI}{$ENDIF}
|
|
unit SimpleLoggerUnit;
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF MSWINDOWS}Windows, Messages,{$ENDIF}
|
|
{$IFDEF FPC}LCLIntf, LCLType, LMessages,{$ENDIF}
|
|
SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SyncObjs, MTUtils,
|
|
TimeIntervals, MTLogger;
|
|
|
|
type
|
|
TDemoLoggerForm = class(TForm)
|
|
Button1: TButton;
|
|
Label1: TLabel;
|
|
Edit1: TEdit;
|
|
Button2: TButton;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
cbCloseApp: TCheckBox;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure Button2Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DemoLoggerForm: TDemoLoggerForm;
|
|
|
|
implementation
|
|
|
|
{$IFnDEF FPC}
|
|
{$R *.dfm}
|
|
{$ELSE}
|
|
{$R *.lfm}
|
|
{$ENDIF}
|
|
|
|
procedure TDemoLoggerForm.Button1Click(Sender: TObject);
|
|
var
|
|
ti: TTimeInterval;
|
|
I: Integer;
|
|
AFileName: string;
|
|
begin
|
|
AFileName := ExtractFilePath(Application.ExeName) + 'EventsNoThread.log';
|
|
ti.Start;
|
|
for I := 1 to StrToInt(Edit1.Text) do
|
|
WriteStringToTextFile(AFileName, Format('%s [P:%d T:%d] - Событие №%d',
|
|
[FormatDateTime('dd.mm.yyyy hh:nn:ss.zzz', Now), GetCurrentProcessId, GetCurrentThreadId, I]));
|
|
|
|
ShowMessageFmt('Время добавления событий в лог-файл: %d мс', [ti.ElapsedMilliseconds]);
|
|
end;
|
|
|
|
procedure TDemoLoggerForm.Button2Click(Sender: TObject);
|
|
var
|
|
ti: TTimeInterval;
|
|
I: Integer;
|
|
begin
|
|
ti.Start;
|
|
for I := 1 to StrToInt(Edit1.Text) do
|
|
DefLogger.AddToLog(Format('Событие №%d', [I]));
|
|
if cbCloseApp.Checked then
|
|
Close
|
|
else
|
|
ShowMessageFmt('Время добавления событий в лог-файл: %d мс', [ti.ElapsedMilliseconds]);
|
|
end;
|
|
|
|
procedure TDemoLoggerForm.FormCreate(Sender: TObject);
|
|
begin
|
|
AllowMessageBoxIfError := True; // Только в демонстрационных целях!!!
|
|
CreateDefLogger(ExtractFilePath(Application.ExeName) + 'EventsInThread.log');
|
|
end;
|
|
|
|
procedure TDemoLoggerForm.FormDestroy(Sender: TObject);
|
|
begin
|
|
FreeDefLogger;
|
|
end;
|
|
|
|
end.
|