Fórum Como monitor o firebird #169017

Caro amigo,

Enviei um código para vc. tendo como exemplo o uso do SQLMonitor para dbexpress.

Veja em seu e-mail.

Coloco o código para facilitar no corpo desse mensagem.

Atenciosamente,

Daniel Araújo
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBXpress, DB, DBClient, SimpleDS, Grids, DBGrids, SqlExpr,
StdCtrls;

type
TForm1 = class(TForm)
SqllAPPConect: TSQLConnection;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
SimpleDataSet1: TSimpleDataSet;
SQLMonitor1: TSQLMonitor;
Button1: TButton;
Button2: TButton;
ListBox1: TListBox;
procedure SQLMonitor1LogTrace(Sender: TObject; CBInfo: pSQLTRACEDesc);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SQLMonitor1LogTrace(Sender: TObject;
CBInfo: pSQLTRACEDesc);
var
LogFileName: string;
begin
with Sender as TSQLMonitor do
begin
if TraceCount = 10 then
begin
LogFileName := ´c:\log´ + IntToStr(Tag) + ´.txt´;
Tag := Tag + 1; {ensure next log file has a different name }
SaveToFile(LogFileName);
ListBox1.Items.AddStrings(TraceList);
TraceList.Clear; { clear list }
ListBox1.ItemIndex := ListBox1.Items.Count -1;
end;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SimpleDataSet1.Close;
SimpleDataSet1.Open;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SimpleDataSet1.Close;
end;

end.