paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 03:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add Payload event

Browse Source 
git-svn-id: trunk@40396 -
This commit is contained in:
michael 2018-11-29 15:42:06 +00:00
parent a49c17fb7d
commit f051e1b8dc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/postgres/pqeventmonitor.pp
View File

@ -47,6 +47,8 @@ uses
type
TEventAlert = procedure(Sender: TObject; EventName: string; EventCount: longint;
var CancelAlerts: boolean) of object;
TEventAlertPayload = procedure(Sender: TObject; EventName, PayLoad: string; EventCount: longint;
var CancelAlerts: boolean) of object;
TErrorEvent = procedure(Sender: TObject; ErrorCode: integer) of object;
{ TPQEventMonitor }
@ -59,6 +61,7 @@ type
FEvents: TStrings;
FOnError: TErrorEvent;
FOnEventAlert: TEventAlert;
FOnEventAlertPayLoad: TEventAlertPayload;
FRegistered: Boolean;
function GetNativeHandle: pointer;
procedure SetConnection(AValue: TPQConnection);
@ -77,6 +80,7 @@ type
property Events: TStrings read FEvents write SetEvents;
property Registered: Boolean read FRegistered write SetRegistered;
property OnEventAlert: TEventAlert read FOnEventAlert write FOnEventAlert;
property OnEventAlertPayload: TEventAlertPayload read FOnEventAlertPayload write FOnEventAlertPayload;
property OnError: TErrorEvent read FOnError write FOnError;
end;
@ -165,6 +169,8 @@ begin
begin
if assigned(OnEventAlert) then
OnEventAlert(Self,notify^.relname,1,CancelAlerts);
if assigned(OnEventAlertPayLoad) then
OnEventAlertPayLoad(Self,notify^.relname,Notify^.Extra,1,CancelAlerts);
PQfreemem(notify);
end;
until not assigned(notify) or CancelAlerts;