PostgreSQL: Capture RAISE NOTICE from a client connection via ZeosLib/Lazarus - postgresql

Question

I have developed a client application that use PostgreSQL 8.4 RDBMS.
My Application is written in Lazarus and ZeosLib 7.2 for database access.
I use a lot of stored procedures and in specific point I use raise notice to get info of the procedure status, Es:
RAISE NOTICE 'Step 1: Import Items from CSV file';
....
....
RAISE NOTICE 'Step 2: Check Items data';
When I execute procedures in PgAdmin3 it show notice in "Messages" Tab.
There is a way to capture raised notices in my client application?

Answer 1

Ok, while I interesting in this topic too, here is some working example crated after the quick investigation:
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
ZConnection, ZDbcPostgreSql;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
pgConn: TZConnection;
procedure Button1Click(Sender: TObject);
procedure pgConnAfterConnect(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
procedure PGNotifyProcessor(arg: Pointer; message: PAnsiChar); cdecl;
begin
Form1.Memo1.Lines.Add(message);
end;
{ TForm1 }
procedure TForm1.pgConnAfterConnect(Sender: TObject);
var
pg: IZPostgreSQLConnection;
args: Pointer;
begin
pg := pgConn.DbcConnection as IZPostgreSQLConnection;
pg.GetPlainDriver.SetNoticeProcessor(pg.GetConnectionHandle, #PGNotifyProcessor, args);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
pgConn.ExecuteDirect('select foo(''bar'')');
end;
end.
It works for me.
I guess this example is not accurate and contains some issues. For example usage LCL calls in the procedure called from external source. But I hope it is enough to start.
Test environment is: FPC 2.6.4, Lazarus 1.5, Postgres 9.3, Linux Mint