Bugfix in TEvent, DataServer Push-Mode

AuraTrader/MainForm.pas

@@ -32,6 +32,7 @@ uses
     Myc.Signals,
     Myc.Lazy,
     Myc.Signals.FMX,
+    Myc.TaskManager,
     FMX.ListBox,
     FMX.Layouts;
 
@@ -44,10 +45,14 @@ type
         SymbolsComboBox: TComboBox;
         LoadButton: TButton;
         FlowLayout: TFlowLayout;
+        Button1: TButton;
+        Button2: TButton;
         procedure RandomButtonClick(Sender: TObject);
         procedure FormCreate(Sender: TObject);
         procedure FormDestroy(Sender: TObject);
         procedure LoadButtonClick(Sender: TObject);
+        procedure Button1Click(Sender: TObject);
+        procedure Button2Click(Sender: TObject);
     private
         const
             cnt = 20;
@@ -63,6 +68,8 @@ type
         FServer: IDataServer<TAskBidItem>;
         FSymbols: TFuture<TArray<String>>;
         FRandom: TList<TRndItem>;
+        FTerminate: TEvent;
+        FLoadDone: TState;
     public
     { Public declarations }
     published
@@ -76,8 +83,61 @@ implementation
 
 {$R *.fmx}
 
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+    if SymbolsComboBox.ItemIndex < 0 then
+        exit;
+
+    var arr := TDataSeries<TAskBidItem>.CreateArray(3000);
+    var curr := TMutable<TDataSeries<TAskBidItem>>.CreateProtected;
+    var Symbol := FSymbols.WaitFor[SymbolsComboBox.ItemIndex];
+
+    var done :=
+        TAuraFileLoader<TAskBidItem>.LoadData(
+            FServer as TAuraTABFileServer,
+            Symbol,
+            FTerminate.Signal,
+            procedure(const Values: TArray<TDataPoint<TAskBidItem>>)
+            begin
+                arr.Add(Values);
+                curr.Value := arr.Copy;
+            end
+        );
+
+    FLoadDone := TState.All([FLoadDone, done]);
+
+    LogMemo.AddIdleHandler(curr.Changed, procedure begin LogMemo.Lines.Add(Symbol + ': ' + curr.Value.TotalCount.ToString); end);
+
+    Path1.AddIdleHandler(
+        curr.Changed,
+        procedure
+        begin
+            var Prices := curr.Value;
+
+            if Prices.Count > 0 then
+            begin
+                Path1.BeginUpdate;
+                try
+                    Path1.Data.Clear;
+                    Path1.Data.MoveTo(PointF(Path1.Width - 1, Prices[0].Data.Ask));
+                    for var i := 1 to Prices.Count - 1 do
+                        Path1.Data.LineTo(PointF(Path1.Width - i - 1, Prices[i].Data.Ask));
+                finally
+                    Path1.EndUpdate;
+                end;
+            end;
+        end
+    );
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+    FTerminate.Notify;
+end;
+
 procedure TForm1.FormCreate(Sender: TObject);
 begin
+    FTerminate := TEvent.CreateEvent;
     FRandom := TList<TRndItem>.Create;
 
     // Create an instance of the TAuraTABFileServer. The server can be reused for multiple stream creations. [364]
@@ -110,6 +170,8 @@ end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
+    FTerminate.Notify;
+    TaskManager.WaitFor(FLoadDone);
     Application.OnIdle := nil;
     FRandom.Free;
 end;