NX Horizon - Event Bus for Delphi

-

 I have published initial release of NX Horizon Event Bus for Delphi as Open Source on GitHub.


Features

  • implements the publish/subscribe pattern, decoupling publishers and subscribers
  • events are categorized by type
  • any Delphi type can be used as an event
  • supports four types of event delivery: synchronous, asynchronous, synchronous in the context of the main thread, and asynchronous in the context of the main thread
  • provides generic record and reference-counted class wrappers for easier usage and management of existing types as events
  • simple in both implementation and usage
  • fast
  • full thread safety


https://github.com/dalijap/nx-horizon


Comments

  1. Matthew VespermanFebruary 22, 2023 at 8:38 AM

    Do you have any examples of using NX Horizon with custom classes/records as event types?

    Thanks

    ReplyDelete
    Replies
    1. Dalija PrasnikarFebruary 23, 2023 at 1:33 AM

      No, I don't have specific examples. But the principles are the same, just event types are differ. You can find declarations for different event types in README

      type
      TFoo = class
      ...
      end;

      TOtherFoo = type TFoo;

      TIntegerEvent = type Integer;
      TStringEvent = type string;
      TFooEvent = INxEvent<TFoo>;
      TOtherFooEvent = INxEvent<TOtherFoo>;
      TRectEvent = type TRect;
      TOtherRectEvent = type TRect;

      Delete

Post a Comment

Popular posts from this blog

Delphi 12.1 & New Quality Portal Released

-
Image
The Delphi 12.1 update has been released. Besides a number of bug fixes, this release also has a few new features. The most notable ones are the new Split Editor, which allows having multiple files opened side by side; and support for Android API 34. You can find more information about what is new in this update at https://docwiki.embarcadero.com/RADStudio/Athens/en/12_Athens_-_Release_1 However, the greatest change for all Delphi developers is a new bug tracking portal that replaces the old one, still available in read-only mode at https://quality.embarcadero.com/ . The new portal is hosted in Atlassian Cloud https://embt.atlassian.net/servicedesk/customer/portals  or through a redirect https://qp.embarcadero.com and is based on Jira Service Management (JSM), while the internal bug tracking system, which was also migrated to the cloud, was not changed and is running on Jira. This move to the cloud was inevitable, because Atlassian retired their Server line of products. JSM i...
Read more

Coming in Delphi 12: Disabled Floating-Point Exceptions

-
Delphi 12 is in the works. One of its small features that will have a huge impact is a change in the default handling of floating-point exceptions, which will now be masked on all platforms. Previously, floating-point exception handling was different across platforms, and most notably on the Windows platform: In VCL and console applications, floating-point exceptions were not masked and would raise an exception. On the other hand, FireMonkey applications had all floating-exceptions masked by default, regardless of which platform they were running on. Basically if you haven't explicitly changed the exception mask in your code to some value other than the default, and you had code that attempted to divide some number with zero, you would get an EZeroDivide exception in previous Delphi versions on the Windows VCL application. In Delphi 12, there is no exception, and the result of such a division will be +INF . So the following code will no longer raise an exception. If you were r...
Read more

Assigning result to a function from asynchronous code

-
One of the more common problems that comes up in multi-threading, especially when refactoring existing code, is assigning a result obtained from asynchronous code. In other words, how do you write a function that will return some value, and calculate that value in a background thread? Basically, converting the following code: function GetData(...): string; var Data: string; begin Data := LongTask(...); // assign result of a long-running task to a function Result := Data; end; To this one: function GetData(...): string; var Data: string; begin TThread.CreateAnonymousThread( procedure begin Data := LongTask(...); end).Start; // assign result of a long-running task to a function Result := Data; end; Now, the above code will compile, but it will not achieve the desired functionality. Even if we ignore its thread safety issues (the background thread writes to the Data variable and that can interfere with assigning it to the function result), the funct...
Read more