реструктуризация файлов, добавление вебчатов

frames/fPlayerWeb.pas

@@ -0,0 +1,58 @@
+unit fPlayerWeb;
+
+interface
+
+uses
+  System.SysUtils, System.Types, System.UITypes, System.Classes,
+  System.Variants, FMX.Styles, IdHTTPWebBrokerBridge, IdGlobal, Web.HTTPApp,
+  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
+  FMX.Controls.Presentation, FMX.Layouts, FMX.ListBox, uPlayerThread,
+  bass_simple, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Edit;
+
+type
+  TfrPlayerWeb = class(TFrame)
+    Label1: TLabel;
+    Edit1: TEdit;
+
+  private
+    mp: TBassSimple;
+    Player: TPlayerThread;
+    FServer: TIdHTTPWebBrokerBridge;
+    procedure StartServer;
+  public
+    procedure init;
+    destructor Destoy(Sender: TObject; var Action: TCloseAction);
+  end;
+
+implementation
+
+{$R *.fmx}
+
+destructor TfrPlayerWeb.Destoy(Sender: TObject; var Action: TCloseAction);
+begin
+  FServer.Active := False;
+  FServer.Bindings.Clear;
+  Player.Free;
+mp.Free;
+end;
+
+procedure TfrPlayerWeb.init;
+begin
+
+  FServer := TIdHTTPWebBrokerBridge.Create(Self);
+  StartServer;
+end;
+
+procedure TfrPlayerWeb.StartServer;
+begin
+  if not FServer.Active then
+  begin
+    FServer.Bindings.Clear;
+    FServer.DefaultPort := 8088;
+    FServer.Active := True;
+  end;
+
+
+end;
+
+end.