PgSQLMonitor - What is wrong ?

[yapt]

Hello,

I have a problem and I don't know how to "around it".

I have:
* 1 DataModule with:
+-- PgConnection (Debug = true).
+-- PgSQLMonitor (Active = true, Options = all true except moHandled).

* 1 form with:
+-- TPgQuery (Debug = true, associated with datamodule.PgConnection).
+-- I have included PgDacVcl in the uses clause (interface).

After that, I start dbMonitor and AFTER my application.... But I cannot debug that Query. Nothing is showed in the DbMonitor window, only:
* Processes:
+-- My App. name.

* Events:
+-- PgDAC monitoring is started.
+-- PgDAC monitoring is finished.



I don't know what more I must to do to get it to run. I have tried to emulate environment in a simple project and all runs fine and dbmonitor show SQL information.

But I cannot reproduce my real-application behaviour.

Any idea ? Any clue ?

PS: In this application, I have a PgSQLMonitor and PgConnection in a datamodule and another datamodule with its own PgSQLMonitor and PgConnection. I mean, I have two datamodules and this form has both of them in its uses clauses....
But nothing runs

[AlexP]

Hello,

Unfortunately I also can't reproduce the problem.
Please check that your TPgConnection appears in the Object Tree window in dbMonitor and that PgConnection is connected to a database.
And check that you have the latest version of dbMonitor.

[yapt]

Hello, my checks:

1.- PgConnection does NOT appear in the object tree window.
2.- I do suppose PgConnection is connected because my TPgQuery object is associated to that PgConnection.
3.- I was using 3.0.2 dbmonitor version. I have upgraded to 3.0.3 but it is the same.


A Hint: If I set active=true my TPgQuery with DbMonitor active, I can see debug process (the Query Execute window and the query in DbMonitor).

I cannot see it If I execute (run) the application from Delphi IDE.

[yapt]

Hello, it is solved:

the hint was on my first post (PS, Post Scriptum):

PS: In this application, I have a PgSQLMonitor and PgConnection in a datamodule and another datamodule with its own PgSQLMonitor and PgConnection. I mean, I have two datamodules and this form has both of them in its uses clauses....
But nothing runs

It seems _ONLY_ the first one PgSQLMonitor loaded is the ONLY ONE can be activated and "traced".

Therefore how my other datamodule was loaded first and its PgSQLMonitor was not active I couldn't see anything. So I have deleted my second PgSQLMonitor in my second DataModule and active my first PgSQLMonitor.

My question now is:
Why when I did set my PgQuery to active=true in design time I could see dbMonitor traces and not in runtime ?

I hope this helps somebody in the future.

[AlexP]

Hello,

Please create a small project to demonstrate the problem, because I can not reproduce it. I can see a trace in dbMonitor both in the run-time and in the design-time mode.

[yapt]

Here you have. I have been able to reproduce it:

I sent you 1 form and 2 datamodules. Design and source code.

You must change:
- user/passwords
- databases
- schemas
- table in PgQuery

After you can compile it ok, activate ONLY the PgSQLMonitor1 in Datamodule3. Click menu: PostgreSQL->DbMonitor and run the application.

As you can see Form1.PgQuery is associated to DataModule3.PgConnection1 and DataModule3.PgSQLMonitor1 is active but if you do click on Form1.button2 (smaller button), nothing is showed in DbMonitor window in spite of the PgQuery is executed.

I hope this will be useful for you.

Greetings...

Code: Select all

//***************************************************************
//***************************************************************
//***************************************************************
//***************************************************************
//
//  form 1
//
//****** DESIGN ***********
object Form1: TForm1
  Left = 344
  Top = 185
  Caption = 'Form1'
  ClientHeight = 167
  ClientWidth = 172
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 16
    Top = 16
    Width = 148
    Height = 25
    Caption = 'Connect DM2'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 16
    Top = 64
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 16
    Top = 112
    Width = 148
    Height = 25
    Caption = 'Button3'
    TabOrder = 2
    OnClick = Button3Click
  end
  object PgQuery1: TPgQuery
    Connection = DataModule3.PgConnection1
    SQL.Strings = (
      'SELECT count(1) as c FROM schema2.atable')
    Left = 120
    Top = 56
  end
end

//
//  form 1
//
//****** SOURCE CODE ***********
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, MemDS, DBAccess, PgAccess;

type
  TForm1 = class(TForm)
    PgQuery1: TPgQuery;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  DataModule2.PgConnection1.Connected := true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if Button2.Caption  'Button2' then
    PgQuery1.Active := False
  else
  begin
    PgQuery1.Active := True;
    Button2.Caption := IntToStr(PgQuery1.FieldByName('c').AsInteger);
  end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DataModule2.PgConnection1.Connected := false;
end;

end.


//***************************************************************
//***************************************************************
//***************************************************************
//***************************************************************
//
//  DataModule 2  (first datamodule).
//
//****** DESIGN ***********
object DataModule2: TDataModule2
  OldCreateOrder = False
  Left = 801
  Top = 188
  Height = 150
  Width = 215
  object PgConnection1: TPgConnection
    Username = 'user'
    Password = 'password'
    Server = 'localhost'
    LoginPrompt = False
    Database = 'MyDatabase'
    Schema = 'schema1'
    Left = 24
    Top = 16
  end
  object PgSQLMonitor1: TPgSQLMonitor
    Active = False
    Left = 88
    Top = 32
  end
end

//
//  DataModule 2  (first datamodule).
//
//****** SOURCE CODE ***********
unit Unit2;

interface

uses
  SysUtils, Classes, DASQLMonitor, PgSQLMonitor, DB, DBAccess, PgAccess;

type
  TDataModule2 = class(TDataModule)
    PgConnection1: TPgConnection;
    PgSQLMonitor1: TPgSQLMonitor;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.





//***************************************************************
//***************************************************************
//***************************************************************
//***************************************************************
//
//  DataModule 3  (second datamodule).
//
//****** DESIGN ***********
object DataModule3: TDataModule3
  OldCreateOrder = False
  Left = 802
  Top = 338
  Height = 150
  Width = 215
  object PgSQLMonitor1: TPgSQLMonitor
    Left = 80
    Top = 40
  end
  object PgConnection1: TPgConnection
    Username = 'user'
    Password = 'password'
    Server = 'localhost'
    LoginPrompt = False
    Database = 'MyDatabase'
    Schema = 'schema2'
    Left = 24
    Top = 16
  end
end

//
//  DataModule 3  (second datamodule).
//
//****** SOURCE CODE ***********
unit Unit3;

interface

uses
  SysUtils, Classes, DB, DBAccess, PgAccess, DASQLMonitor, PgSQLMonitor;

type
  TDataModule3 = class(TDataModule)
    PgSQLMonitor1: TPgSQLMonitor;
    PgConnection1: TPgConnection;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule3: TDataModule3;

implementation

{$R *.dfm}

end.

[AlexP]

Hello,

To monitor dynamic SQL execution in the run-time mode you should create a data module with active SQLMonitor before you create your form.

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {DataModule2: TDataModule},
Unit3 in 'Unit3.pas' {DataModule3: TDataModule};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TDataModule3, DataModule3);
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDataModule2, DataModule2);
Application.Run;
end.

[yapt]

It is already in this way.