Devart Forums

Code: Select all

USES
  Windows, Classes, Forms, Controls, StdCtrls, Graphics, Dialogs, Messages, Variants,  SysUtils,
  AdvStyleif, TMS, ShellApi, jpeg,  CheckLst,
  Uni, DB,  DASQLMonitor, UniSQLMonitor, 
  DAAlerter,


procedure UniAlert(Sender:TDAAlerter; E:Exception);
begin
end;

procedure Analiza;
var
  UQ           : TUniQuery;
  UQ_Alert     : TDAAlerter;

begin
  UQ:=TUniQuery.Create(nil);
  UQ.Connection:=DM_01.UniConnection1;

  UQ_Alert := TDAAlerter.Create(nil);
  UQ_Alert.Connection := DM_01.UniConnection1;
  UQ_Alert.OnError    := [b]@UniAlert[/b];                       -> compilation error 
  UQ_Alert.Active     := true;
  UQ_Alert.Start;

  ... code of analysis 
 
  UQ_Alert.Active     := false;
  UQ_Alert.Stop;
  UQ_Alert.Free;
end;

Code: Select all

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

USES
  Windows, Classes, Messages, Variants,  SysUtils,
  ShellApi, Uni, DB,  DASQLMonitor, UniSQLMonitor,
  DAAlerter;

type
  TMyType = class
  public
    class procedure UniAlert(Sender:TDAAlerter; E:Exception);
  end;

class procedure TMyType.UniAlert(Sender:TDAAlerter; E:Exception);
begin
end;

procedure Analiza;
var
  UQ           : TUniQuery;
  UQ_Alert     : TDAAlerter;

begin
  UQ:=TUniQuery.Create(nil);
//  UQ.Connection:=DM_01.UniConnection1;

  UQ_Alert := TDAAlerter.Create(nil);
//  UQ_Alert.Connection := DM_01.UniConnection1;
  UQ_Alert.OnError    := TMyType.UniAlert;
  UQ_Alert.Active     := true;
  UQ_Alert.Start;

  UQ_Alert.Active     := false;
  UQ_Alert.Stop;
  UQ_Alert.Free;
end;

begin
end.

Code: Select all

Unit Test;
{$H-}

USES
  Windows, Classes, Forms, Controls, StdCtrls, Graphics, Dialogs,
  Messages, Variants,  SysUtils,
  Uni, DB,
  DASQLMonitor, UniSQLMonitor,
  DAAlerter, UniAlerter,

INTERFACE

USES
  Windows, Classes, Forms, Controls, StdCtrls, Graphics, Dialogs,
  Messages, Variants,  SysUtils,
  AdvStyleif, TMS, ShellApi, jpeg,
  CheckLst,
  Uni, DB,
  DASQLMonitor, UniSQLMonitor,
  DAAlerter, UniAlerter;

IMPLEMENTATION

type
  TMyClass = class
    {$H+}
    procedure UniAlert(Sender:TDAAlerter; const EventName:string; const Message:string);
    {$H-}
  end;

{$H+}
procedure TMyClass.UniAlert(Sender:TDAAlerter; const EventName:string; const Message:string);
begin
  Memo.Add(EventName+', '+Message);
  // Memo.MemoEnd;
end;
{$H-}

//---------------------------------------------------------------------------
procedure Analiza_Gemoetrii;
var
  UQ               : TUniQuery;
  UQ_Alert     : TUniAlerter;
  MyClass      : TMyClass;

begin

  UQ:=TUniQuery.Create(nil);
  UQ.Connection:=DM_01.UniConnection1;

  MyClass := TMyClass.Create;

  UQ_Alert := TUniAlerter.Create(nil);
  UQ_Alert.Connection := DM_01.UniConnection1;
  UQ_Alert.Events     := 'LISTEN';
  UQ_Alert.OnEvent    :=  MyClass.UniAlert;
  UQ_Alert.AutoRegister:= true;
  UQ_Alert.Active     := true;
  UQ_Alert.Start;
 
    ....
  
  UQ_Alert.Active     := false;
  UQ_Alert.Stop;
  UQ_Alert.Free;

Code: Select all

Unit Test;
{$H-}

USES
  Windows, Classes, Forms, Controls, StdCtrls, Graphics, Dialogs,
  Messages, Variants,  SysUtils,
  Uni, DB,
  DASQLMonitor, UniSQLMonitor,
  DAAlerter, UniAlerter,

INTERFACE

USES
  Windows, Classes, Forms, Controls, StdCtrls, Graphics, Dialogs,
  Messages, Variants,  SysUtils,
  AdvStyleif, TMS, ShellApi, jpeg,
  CheckLst,
  Uni, DB,
  DASQLMonitor, UniSQLMonitor,
  DAAlerter, UniAlerter;

IMPLEMENTATION

type
  TMyClass = class
  public
    {$H+}
    procedure UniAlert(Sender:TDAAlerter; const EventName:string; const Message:string);
    {$H-}
  end;

{$H+}
procedure TMyClass.UniAlert(Sender:TDAAlerter; const EventName:string; const Message:string);
begin
  Memo.Add(EventName+', '+Message);
  // Memo.MemoEnd;
end;
{$H-}

//---------------------------------------------------------------------------
procedure Analiza_Gemoetrii;
var
  UQ               : TUniQuery;
  UQ_Alert     : TUniAlerter;
  MyClass      : TMyClass;
begin
  UQ:=TUniQuery.Create(nil);
  UQ.Connection:=DM_01.UniConnection1;

//  MyClass := TMyClass.Create;  // You do not need to create that dummy class. It is only to help you assign a procedure to your event

  UQ_Alert := TUniAlerter.Create(nil);
  UQ_Alert.Connection := DM_01.UniConnection1;
  UQ_Alert.Events     := 'LISTEN'; // This must be your notification name. I am not sure if LISTEN is correct here.
  UQ_Alert.OnEvent    :=  TMyClass.UniAlert; // Here you can directly assign TMyClass.UniAlert procedure to your OnEvent event.
  UQ_Alert.AutoRegister:= true;
  UQ_Alert.Active     := true;
  UQ_Alert.Start;
 
// you will only receive notifications here.
// and only those notification names match to your above UQ_Alert.Events property.
    ....
  
  UQ_Alert.Active     := false;  // At this point you cannot receive notifications
  UQ_Alert.Stop;
  UQ_Alert.Free;
end;

Code: Select all

NOTIFY my_test_name, 'my payload';