MycLib/AuraTrader/MainForm.pas

unit MainForm;

interface

uses
    System.SysUtils,
    System.Types,
    System.UITypes,
    System.Classes,
    System.Variants,
    System.DateUtils,
    System.Generics.Collections,
    FMX.Types,
    FMX.Controls,
    FMX.Forms,
    FMX.Graphics,
    FMX.Dialogs,
    FMX.Controls.Presentation,
    FMX.StdCtrls,
    FMX.ListView.Types,
    FMX.ListView.Appearances,
    FMX.ListView.Adapters.Base,
    FMX.ListView,
    FMX.Memo.Types,
    FMX.ScrollBox,
    FMX.Memo,
    FMX.Objects,
    Myc.Futures,
    Myc.Trade.DataStream,
    Myc.Trade.DataPoint,
    Myc.Trade.DataProvider,
    Myc.Signals,
    Myc.Lazy,
    Myc.Signals.FMX,
    FMX.ListBox,
    FMX.Layouts;

type
    TForm1 = class(TForm)
        LogMemo: TMemo;
        Panel1: TPanel;
        RandomButton: TButton;
        Path1: TPath;
        SymbolsComboBox: TComboBox;
        LoadButton: TButton;
        FlowLayout: TFlowLayout;
        procedure RandomButtonClick(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure FormDestroy(Sender: TObject);
        procedure LoadButtonClick(Sender: TObject);
    private
        const
            cnt = 20;
        type
            TRndItem = record
                Stream: IDataStream<TAskBidItem>;
                Data: TMutable<TDataSeries<TAskBidItem>>;
                Labl: TLabel;
            end;
    private
        FOnEvent: TNotifyEvent;
        { Private declarations }
        FServer: IDataServer<TAskBidItem>;
        FSymbolsValid: TFMXValidationState;
        FStreamUpdate: TFMXValidationState;
        FSymbols: TFuture<TArray<String>>;
        FRandom: TList<TRndItem>;
    public
    { Public declarations }
    published
        property OnEvent: TNotifyEvent read FOnEvent write FOnEvent;
    end;

var
    Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
    FRandom := TList<TRndItem>.Create;

    // Create an instance of the TAuraTABFileServer. The server can be reused for multiple stream creations. [364]
    FServer := TAuraTABFileServer.Create('\\COFFEE\TickData\Pepperstone');

    SymbolsComboBox.Enabled := false;

    FSymbols := FServer.EnumerateSymbols;

    FSymbolsValid :=
        TFMXValidationState.Create(
            SymbolsComboBox,
            FSymbols.Done.Signal,
            procedure
            begin
                SymbolsComboBox.BeginUpdate;
                try
                    SymbolsComboBox.Items.Clear;
                    SymbolsComboBox.Items.AddStrings(FSymbols.WaitFor);
                    if SymbolsComboBox.Items.Count > 0 then
                    begin
                        if SymbolsComboBox.ItemIndex < 0 then
                            SymbolsComboBox.ItemIndex := SymbolsComboBox.Items.IndexOf('GER40');
                        SymbolsComboBox.Enabled := true;
                    end;
                finally
                    SymbolsComboBox.EndUpdate;
                end;
            end
        );
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    Application.OnIdle := nil;
    FSymbolsValid.Free;
    FRandom.Free;
end;

procedure TForm1.LoadButtonClick(Sender: TObject);
begin
    var Stream := FServer.CreateStream(FSymbols.WaitFor[SymbolsComboBox.ItemIndex]);
    var Data := TDataStreamProvider.Create<TAskBidItem>(3000, 1000, Stream);
    var Idx := 0;
    FStreamUpdate :=
        TFMXValidationState.Create(
            Path1,
            Data.Changed,
            procedure
            begin
                var Prices := Data.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.RandomButtonClick(Sender: TObject);
begin
    var rnd: TRndItem;

    var ass := FSymbols.WaitFor;
    rnd.Stream := FServer.CreateStream(ass[Random(Length(FSymbols.WaitFor))]);
    rnd.Data := TDataStreamProvider.Create<TAskBidItem>(3000, 1000, rnd.Stream);

    rnd.Labl := TLabel.Create(Self);
    rnd.Labl.Parent := FlowLayout;
    rnd.Labl.Align := TAlignLayout.None;
    rnd.Labl.WordWrap := false;
    rnd.Labl.Width := 300;
    rnd.Labl.Text := rnd.Stream.Symbol + ' loading...';
    FRandom.Add(rnd);

    var Proc :=
        procedure(idx: Integer)
        begin
            TFMXValidationState.Create(
                FRandom[idx].Labl,
                FRandom[idx].Data.Changed,
                procedure
                begin
                    var data := FRandom[idx].Data.Value;
                    if data.Count > 0 then
                    begin
                        var dp := data[0];
                        FRandom[idx].Labl.Text :=
                            FRandom[idx].Stream.Symbol
                                + ' '
                                + dp.Time.ToString
                                + ' '
                                + data.TotalCount.ToString
                                + '  '
                                + dp.Data.Ask.ToString;
                    end;
                end
            );
        end;
    Proc(FRandom.Count - 1);
end;

end.