6 Winapi.Messages, System.SysUtils, System.Variants,
7 System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
8 Vcl.AppEvnts, Vcl.StdCtrls, IdHTTPWebBrokerBridge, Web.HTTPApp;
16 ApplicationEvents1: TApplicationEvents;
17 ButtonOpenBrowser: TButton;
18 procedure FormCreate(Sender: TObject);
19 procedure ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
20 procedure ButtonStartClick(Sender: TObject);
21 procedure ButtonStopClick(Sender: TObject);
22 procedure ButtonOpenBrowserClick(Sender: TObject);
24 FServer: TIdHTTPWebBrokerBridge;
25 procedure StartServer;
39 WinApi.Windows, Winapi.ShellApi;
41 procedure TForm1.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean);
43 ButtonStart.Enabled := not FServer.Active;
44 ButtonStop.Enabled := FServer.Active;
45 EditPort.Enabled := not FServer.Active;
48 procedure TForm1.ButtonOpenBrowserClick(Sender: TObject);
53 LURL := Format('http://localhost:%s', [EditPort.Text]);
56 PChar(LURL), nil, nil, SW_SHOWNOACTIVATE);
59 procedure TForm1.ButtonStartClick(Sender: TObject);
64 procedure TForm1.ButtonStopClick(Sender: TObject);
66 FServer.Active := False;
67 FServer.Bindings.Clear;
70 procedure TForm1.FormCreate(Sender: TObject);
72 FServer := TIdHTTPWebBrokerBridge.Create(Self);
75 procedure TForm1.StartServer;
77 if not FServer.Active then
79 FServer.Bindings.Clear;
80 FServer.DefaultPort := StrToInt(EditPort.Text);
81 FServer.Active := True;