Merge branch 'main' into demos

hazzelnuts · Jan 10, 2023 · a315b07 · a315b07
2 parents 0e04761 + 673a410
commit a315b07
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 3 deletions.
diff --git a/sample/vcl/subscriber/src/View.Main.dfm b/sample/vcl/subscriber/src/View.Main.dfm
@@ -140,7 +140,6 @@ object ViewMain: TViewMain
     Width = 132
     Height = 225
     Caption = 'Filters'
-    Enabled = False
     TabOrder = 7
     object lbPriority: TLabel
       Left = 15

diff --git a/src/Notify.Api.Indy.pas b/src/Notify.Api.Indy.pas
@@ -82,8 +82,12 @@ implementation
   IdURI,
   Notify.SmartPointer,
   System.SysUtils,
+  System.StrUtils,
+  System.Types,
   Notify.Logs,
-  Notify.Notification.DTO, Notify.Error, Notify.Response.Data;
+  Notify.Notification.DTO,
+  Notify.Error,
+  Notify.Response.Data;
 
 { TNotityApiIndy }
 
@@ -333,6 +337,8 @@ destructor TSSEThread.Destroy;
 procedure TSSEThread.DoOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
 var
   LEventString: UTF8String;
+  LStrings: TArray<String>;
+  LString: UTF8String;
 begin
 
   if Terminated then
@@ -347,7 +353,10 @@ procedure TSSEThread.DoOnWork(ASender: TObject; AWorkMode: TWorkMode; AWorkCount
   if LEventString = FCloseConnectionMessage then
     FIdHttp.Socket.Close;
 
-  NxHorizon.Instance.Post<TNotifySubscriptionEvent>(LEventString);
+  LStrings := SplitString(LEventString, #$A);
+
+  for LString in LStrings do
+    NxHorizon.Instance.Post<TNotifySubscriptionEvent>(LString);
 
 end;