59 lines
1.2 KiB
Plaintext
59 lines
1.2 KiB
Plaintext
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.
|