examples/isqlmonitor/RemoteMonitorFormUnit.pas

unit RemoteMonitorFormUnit;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  IBSQLMonitor;

type

  { TForm1 }

  TForm1 = class(TForm)
    IBSQLMonitor1: TIBSQLMonitor;
    Memo1: TMemo;
    procedure IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
begin
  Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzzz',EventTime) + ': ' + EventText);
  Application.ProcessMessages;
end;

end.

Revision:	37
Committed:	Mon Feb 15 14:44:25 2016 UTC (8 years, 2 months ago) by tony
Content type:	text/x-pascal
File size:	692 byte(s)
Log Message:	Committing updates for Release R1-4-0
#	Content
1	unit RemoteMonitorFormUnit;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9	IBSQLMonitor;
10
11	type
12
13	{ TForm1 }
14
15	TForm1 = class(TForm)
16	IBSQLMonitor1: TIBSQLMonitor;
17	Memo1: TMemo;
18	procedure IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
19	private
20	{ private declarations }
21	public
22	{ public declarations }
23	end;
24
25	var
26	Form1: TForm1;
27
28	implementation
29
30	{$R *.lfm}
31
32	{ TForm1 }
33
34	procedure TForm1.IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
35	begin
36	Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzzz',EventTime) + ': ' + EventText);
37	Application.ProcessMessages;
38	end;
39
40	end.
41