├── .gitignore
├── LICENSE
├── MPWS.MainForm.fmx
├── MPWS.MainForm.pas
├── MPWS.WebServer.dfm
├── MPWS.WebServer.pas
├── MPWS.WebServerModule.dfm
├── MPWS.WebServerModule.pas
├── MultiPlatformWebServer.dpr
├── MultiPlatformWebServer.dproj
└── README.md
/.gitignore:
--------------------------------------------------------------------------------
1 | # Uncomment these types if you want even more clean repository. But be careful.
2 | # It can make harm to an existing project source. Read explanations below.
3 | #
4 | # Resource files are binaries containing manifest, project icon and version info.
5 | # They can not be viewed as text or compared by diff-tools. Consider replacing them with .rc files.
6 | #*.res
7 | #
8 | # Type library file (binary). In old Delphi versions it should be stored.
9 | # Since Delphi 2009 it is produced from .ridl file and can safely be ignored.
10 | #*.tlb
11 | #
12 | # Diagram Portfolio file. Used by the diagram editor up to Delphi 7.
13 | # Uncomment this if you are not using diagrams or use newer Delphi version.
14 | #*.ddp
15 | #
16 | # Visual LiveBindings file. Added in Delphi XE2.
17 | # Uncomment this if you are not using LiveBindings Designer.
18 | #*.vlb
19 | #
20 | # Deployment Manager configuration file for your project. Added in Delphi XE2.
21 | # Uncomment this if it is not mobile development and you do not use remote debug feature.
22 | #*.deployproj
23 | #
24 | # C++ object files produced when C/C++ Output file generation is configured.
25 | # Uncomment this if you are not using external objects (zlib library for example).
26 | #*.obj
27 | #
28 |
29 | # Delphi compiler-generated binaries (safe to delete)
30 | *.exe
31 | *.dll
32 | *.bpl
33 | *.bpi
34 | *.dcp
35 | *.so
36 | *.apk
37 | *.drc
38 | *.map
39 | *.dres
40 | *.rsm
41 | *.tds
42 | *.dcu
43 | *.lib
44 | *.a
45 | *.o
46 | *.ocx
47 |
48 | # Delphi autogenerated files (duplicated info)
49 | *.cfg
50 | *.hpp
51 | *Resource.rc
52 |
53 | # Delphi local files (user-specific info)
54 | *.local
55 | *.identcache
56 | *.projdata
57 | *.tvsconfig
58 | *.dsk
59 | *.deployproj
60 |
61 | # Delphi history and backups
62 | __history/
63 | __recovery/
64 | *.~*
65 |
66 | # Castalia statistics file (since XE7 Castalia is distributed with Delphi)
67 | *.stat
68 |
69 | # Boss dependency manager vendor folder https://github.com/HashLoad/boss
70 | modules/
71 | *.deployproj
72 | !Tools/*.exe
73 | AndroidManifest.template.xml
74 | Entitlement.TemplateOSX.xml
75 | Entitlement.TemplateiOS.xml
76 | info.plist.TemplateOSX.xml
77 | info.plist.TemplateIOS.xml
78 | *.res
79 | .DS_Store
80 | Unused
81 | LaunchScreen.TemplateiOS
82 | Settings.bundle
83 | **/Android/Debug
84 | **/Android/Release
85 | **/iOSDevice64/Debug/
86 | **/iOSDevice64/Release/
87 | **/OSX64/Debug/
88 | **/OSX64/Release/
89 | **/Win32/Debug/
90 | **/Win32/Release/
91 | **/Win64/Debug/
92 | **/Win64/Release/
93 | **/Service/*.java
94 | **/Service/JavaClasses
95 | dbgout.log
96 |
--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
1 | Apache License
2 | Version 2.0, January 2004
3 | http://www.apache.org/licenses/
4 |
5 | TERMS AND CONDITIONS FOR USE, REPRODUCTION, AND DISTRIBUTION
6 |
7 | 1. Definitions.
8 |
9 | "License" shall mean the terms and conditions for use, reproduction,
10 | and distribution as defined by Sections 1 through 9 of this document.
11 |
12 | "Licensor" shall mean the copyright owner or entity authorized by
13 | the copyright owner that is granting the License.
14 |
15 | "Legal Entity" shall mean the union of the acting entity and all
16 | other entities that control, are controlled by, or are under common
17 | control with that entity. For the purposes of this definition,
18 | "control" means (i) the power, direct or indirect, to cause the
19 | direction or management of such entity, whether by contract or
20 | otherwise, or (ii) ownership of fifty percent (50%) or more of the
21 | outstanding shares, or (iii) beneficial ownership of such entity.
22 |
23 | "You" (or "Your") shall mean an individual or Legal Entity
24 | exercising permissions granted by this License.
25 |
26 | "Source" form shall mean the preferred form for making modifications,
27 | including but not limited to software source code, documentation
28 | source, and configuration files.
29 |
30 | "Object" form shall mean any form resulting from mechanical
31 | transformation or translation of a Source form, including but
32 | not limited to compiled object code, generated documentation,
33 | and conversions to other media types.
34 |
35 | "Work" shall mean the work of authorship, whether in Source or
36 | Object form, made available under the License, as indicated by a
37 | copyright notice that is included in or attached to the work
38 | (an example is provided in the Appendix below).
39 |
40 | "Derivative Works" shall mean any work, whether in Source or Object
41 | form, that is based on (or derived from) the Work and for which the
42 | editorial revisions, annotations, elaborations, or other modifications
43 | represent, as a whole, an original work of authorship. For the purposes
44 | of this License, Derivative Works shall not include works that remain
45 | separable from, or merely link (or bind by name) to the interfaces of,
46 | the Work and Derivative Works thereof.
47 |
48 | "Contribution" shall mean any work of authorship, including
49 | the original version of the Work and any modifications or additions
50 | to that Work or Derivative Works thereof, that is intentionally
51 | submitted to Licensor for inclusion in the Work by the copyright owner
52 | or by an individual or Legal Entity authorized to submit on behalf of
53 | the copyright owner. For the purposes of this definition, "submitted"
54 | means any form of electronic, verbal, or written communication sent
55 | to the Licensor or its representatives, including but not limited to
56 | communication on electronic mailing lists, source code control systems,
57 | and issue tracking systems that are managed by, or on behalf of, the
58 | Licensor for the purpose of discussing and improving the Work, but
59 | excluding communication that is conspicuously marked or otherwise
60 | designated in writing by the copyright owner as "Not a Contribution."
61 |
62 | "Contributor" shall mean Licensor and any individual or Legal Entity
63 | on behalf of whom a Contribution has been received by Licensor and
64 | subsequently incorporated within the Work.
65 |
66 | 2. Grant of Copyright License. Subject to the terms and conditions of
67 | this License, each Contributor hereby grants to You a perpetual,
68 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable
69 | copyright license to reproduce, prepare Derivative Works of,
70 | publicly display, publicly perform, sublicense, and distribute the
71 | Work and such Derivative Works in Source or Object form.
72 |
73 | 3. Grant of Patent License. Subject to the terms and conditions of
74 | this License, each Contributor hereby grants to You a perpetual,
75 | worldwide, non-exclusive, no-charge, royalty-free, irrevocable
76 | (except as stated in this section) patent license to make, have made,
77 | use, offer to sell, sell, import, and otherwise transfer the Work,
78 | where such license applies only to those patent claims licensable
79 | by such Contributor that are necessarily infringed by their
80 | Contribution(s) alone or by combination of their Contribution(s)
81 | with the Work to which such Contribution(s) was submitted. If You
82 | institute patent litigation against any entity (including a
83 | cross-claim or counterclaim in a lawsuit) alleging that the Work
84 | or a Contribution incorporated within the Work constitutes direct
85 | or contributory patent infringement, then any patent licenses
86 | granted to You under this License for that Work shall terminate
87 | as of the date such litigation is filed.
88 |
89 | 4. Redistribution. You may reproduce and distribute copies of the
90 | Work or Derivative Works thereof in any medium, with or without
91 | modifications, and in Source or Object form, provided that You
92 | meet the following conditions:
93 |
94 | (a) You must give any other recipients of the Work or
95 | Derivative Works a copy of this License; and
96 |
97 | (b) You must cause any modified files to carry prominent notices
98 | stating that You changed the files; and
99 |
100 | (c) You must retain, in the Source form of any Derivative Works
101 | that You distribute, all copyright, patent, trademark, and
102 | attribution notices from the Source form of the Work,
103 | excluding those notices that do not pertain to any part of
104 | the Derivative Works; and
105 |
106 | (d) If the Work includes a "NOTICE" text file as part of its
107 | distribution, then any Derivative Works that You distribute must
108 | include a readable copy of the attribution notices contained
109 | within such NOTICE file, excluding those notices that do not
110 | pertain to any part of the Derivative Works, in at least one
111 | of the following places: within a NOTICE text file distributed
112 | as part of the Derivative Works; within the Source form or
113 | documentation, if provided along with the Derivative Works; or,
114 | within a display generated by the Derivative Works, if and
115 | wherever such third-party notices normally appear. The contents
116 | of the NOTICE file are for informational purposes only and
117 | do not modify the License. You may add Your own attribution
118 | notices within Derivative Works that You distribute, alongside
119 | or as an addendum to the NOTICE text from the Work, provided
120 | that such additional attribution notices cannot be construed
121 | as modifying the License.
122 |
123 | You may add Your own copyright statement to Your modifications and
124 | may provide additional or different license terms and conditions
125 | for use, reproduction, or distribution of Your modifications, or
126 | for any such Derivative Works as a whole, provided Your use,
127 | reproduction, and distribution of the Work otherwise complies with
128 | the conditions stated in this License.
129 |
130 | 5. Submission of Contributions. Unless You explicitly state otherwise,
131 | any Contribution intentionally submitted for inclusion in the Work
132 | by You to the Licensor shall be under the terms and conditions of
133 | this License, without any additional terms or conditions.
134 | Notwithstanding the above, nothing herein shall supersede or modify
135 | the terms of any separate license agreement you may have executed
136 | with Licensor regarding such Contributions.
137 |
138 | 6. Trademarks. This License does not grant permission to use the trade
139 | names, trademarks, service marks, or product names of the Licensor,
140 | except as required for reasonable and customary use in describing the
141 | origin of the Work and reproducing the content of the NOTICE file.
142 |
143 | 7. Disclaimer of Warranty. Unless required by applicable law or
144 | agreed to in writing, Licensor provides the Work (and each
145 | Contributor provides its Contributions) on an "AS IS" BASIS,
146 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or
147 | implied, including, without limitation, any warranties or conditions
148 | of TITLE, NON-INFRINGEMENT, MERCHANTABILITY, or FITNESS FOR A
149 | PARTICULAR PURPOSE. You are solely responsible for determining the
150 | appropriateness of using or redistributing the Work and assume any
151 | risks associated with Your exercise of permissions under this License.
152 |
153 | 8. Limitation of Liability. In no event and under no legal theory,
154 | whether in tort (including negligence), contract, or otherwise,
155 | unless required by applicable law (such as deliberate and grossly
156 | negligent acts) or agreed to in writing, shall any Contributor be
157 | liable to You for damages, including any direct, indirect, special,
158 | incidental, or consequential damages of any character arising as a
159 | result of this License or out of the use or inability to use the
160 | Work (including but not limited to damages for loss of goodwill,
161 | work stoppage, computer failure or malfunction, or any and all
162 | other commercial damages or losses), even if such Contributor
163 | has been advised of the possibility of such damages.
164 |
165 | 9. Accepting Warranty or Additional Liability. While redistributing
166 | the Work or Derivative Works thereof, You may choose to offer,
167 | and charge a fee for, acceptance of support, warranty, indemnity,
168 | or other liability obligations and/or rights consistent with this
169 | License. However, in accepting such obligations, You may act only
170 | on Your own behalf and on Your sole responsibility, not on behalf
171 | of any other Contributor, and only if You agree to indemnify,
172 | defend, and hold each Contributor harmless for any liability
173 | incurred by, or claims asserted against, such Contributor by reason
174 | of your accepting any such warranty or additional liability.
175 |
176 | END OF TERMS AND CONDITIONS
177 |
178 | APPENDIX: How to apply the Apache License to your work.
179 |
180 | To apply the Apache License to your work, attach the following
181 | boilerplate notice, with the fields enclosed by brackets "[]"
182 | replaced with your own identifying information. (Don't include
183 | the brackets!) The text should be enclosed in the appropriate
184 | comment syntax for the file format. We also recommend that a
185 | file or class name and description of purpose be included on the
186 | same "printed page" as the copyright notice for easier
187 | identification within third-party archives.
188 |
189 | Copyright [yyyy] [name of copyright owner]
190 |
191 | Licensed under the Apache License, Version 2.0 (the "License");
192 | you may not use this file except in compliance with the License.
193 | You may obtain a copy of the License at
194 |
195 | http://www.apache.org/licenses/LICENSE-2.0
196 |
197 | Unless required by applicable law or agreed to in writing, software
198 | distributed under the License is distributed on an "AS IS" BASIS,
199 | WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
200 | See the License for the specific language governing permissions and
201 | limitations under the License.
202 |
--------------------------------------------------------------------------------
/MPWS.MainForm.fmx:
--------------------------------------------------------------------------------
1 | object MainForm: TMainForm
2 | Left = 0
3 | Top = 0
4 | Caption = 'Form1'
5 | ClientHeight = 144
6 | ClientWidth = 372
7 | FormFactor.Width = 320
8 | FormFactor.Height = 480
9 | FormFactor.Devices = [Desktop, iPhone, iPad]
10 | DesignerMasterStyle = 0
11 | object ButtonStart: TButton
12 | Position.X = 16.000000000000000000
13 | Position.Y = 16.000000000000000000
14 | Size.Width = 73.000000000000000000
15 | Size.Height = 22.000000000000000000
16 | Size.PlatformDefault = False
17 | TabOrder = 0
18 | Text = 'Start'
19 | OnClick = ButtonStartClick
20 | end
21 | object ButtonStop: TButton
22 | Position.X = 96.000000000000000000
23 | Position.Y = 16.000000000000000000
24 | Size.Width = 73.000000000000000000
25 | Size.Height = 22.000000000000000000
26 | Size.PlatformDefault = False
27 | TabOrder = 1
28 | Text = 'Stop'
29 | OnClick = ButtonStopClick
30 | end
31 | object EditPort: TEdit
32 | Touch.InteractiveGestures = [LongTap, DoubleTap]
33 | TabOrder = 3
34 | Text = '8080'
35 | Position.X = 16.000000000000000000
36 | Position.Y = 80.000000000000000000
37 | Size.Width = 100.000000000000000000
38 | Size.Height = 22.000000000000000000
39 | Size.PlatformDefault = False
40 | end
41 | object PortLabel: TLabel
42 | Position.X = 16.000000000000000000
43 | Position.Y = 56.000000000000000000
44 | Size.Width = 120.000000000000000000
45 | Size.Height = 17.000000000000000000
46 | Size.PlatformDefault = False
47 | Text = 'Port'
48 | end
49 | end
50 |
--------------------------------------------------------------------------------
/MPWS.MainForm.pas:
--------------------------------------------------------------------------------
1 | unit MPWS.MainForm;
2 |
3 | interface
4 |
5 | uses
6 | System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7 | FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
8 | FMX.Edit, FMX.Controls.Presentation,
9 | MPWS.WebServer;
10 |
11 | type
12 | TMainForm = class(TForm)
13 | ButtonStart: TButton;
14 | ButtonStop: TButton;
15 | EditPort: TEdit;
16 | PortLabel: TLabel;
17 | procedure ButtonStartClick(Sender: TObject);
18 | procedure ButtonStopClick(Sender: TObject);
19 | private
20 | FServer: TWebServer;
21 | procedure ApplicationIdle(Sender: TObject; var Done: Boolean);
22 | public
23 | constructor Create(AOwner: TComponent); override;
24 | end;
25 |
26 | var
27 | MainForm: TMainForm;
28 |
29 | implementation
30 |
31 | {$R *.fmx}
32 |
33 | constructor TMainForm.Create(AOwner: TComponent);
34 | begin
35 | inherited;
36 | Application.OnIdle := ApplicationIdle;
37 | FServer := TWebServer.Create(Self);
38 | end;
39 |
40 | procedure TMainForm.ApplicationIdle(Sender: TObject; var Done: Boolean);
41 | begin
42 | ButtonStart.Enabled := not FServer.IsActive;
43 | ButtonStop.Enabled := FServer.IsActive;
44 | EditPort.Enabled := not FServer.IsActive;
45 | end;
46 |
47 | procedure TMainForm.ButtonStartClick(Sender: TObject);
48 | begin
49 | FServer.Port := StrToInt(EditPort.Text);
50 | FServer.Start;
51 | end;
52 |
53 | procedure TMainForm.ButtonStopClick(Sender: TObject);
54 | begin
55 | FServer.Stop;
56 | end;
57 |
58 | end.
59 |
--------------------------------------------------------------------------------
/MPWS.WebServer.dfm:
--------------------------------------------------------------------------------
1 | object WebServer: TWebServer
2 | OldCreateOrder = False
3 | Height = 381
4 | Width = 529
5 | end
6 |
--------------------------------------------------------------------------------
/MPWS.WebServer.pas:
--------------------------------------------------------------------------------
1 | unit MPWS.WebServer;
2 |
3 | interface
4 |
5 | uses
6 | System.SysUtils, System.Classes, IdHTTPWebBrokerBridge;
7 |
8 | type
9 | TWebServer = class(TDataModule)
10 | private
11 | FServer: TIdHTTPWebBrokerBridge;
12 | function GetIsActive: Boolean;
13 | function GetPort: Integer;
14 | procedure SetPort(const Value: Integer);
15 | public
16 | constructor Create(AOwner: TComponent); override;
17 | procedure Start;
18 | procedure Stop;
19 | property IsActive: Boolean read GetIsActive;
20 | property Port: Integer read GetPort write SetPort;
21 | end;
22 |
23 | var
24 | WebServer: TWebServer;
25 |
26 | implementation
27 |
28 | {%CLASSGROUP 'System.Classes.TPersistent'}
29 |
30 | {$R *.dfm}
31 |
32 | { TWebServer }
33 |
34 | constructor TWebServer.Create(AOwner: TComponent);
35 | begin
36 | inherited;
37 | FServer := TIdHTTPWebBrokerBridge.Create(Self);
38 | end;
39 |
40 | function TWebServer.GetIsActive: Boolean;
41 | begin
42 | Result := FServer.Active;
43 | end;
44 |
45 | function TWebServer.GetPort: Integer;
46 | begin
47 | Result := FServer.DefaultPort;
48 | end;
49 |
50 | procedure TWebServer.SetPort(const Value: Integer);
51 | var
52 | LWasActive: Boolean;
53 | begin
54 | if Value <> Port then
55 | begin
56 | LWasActive := FServer.Active;
57 | Stop;
58 | FServer.DefaultPort := Value;
59 | if LWasActive then
60 | Start;
61 | end;
62 | end;
63 |
64 | procedure TWebServer.Start;
65 | begin
66 | if not FServer.Active then
67 | begin
68 | FServer.Bindings.Clear;
69 | FServer.Active := True;
70 | end;
71 | end;
72 |
73 | procedure TWebServer.Stop;
74 | begin
75 | FServer.Active := False;
76 | end;
77 |
78 | end.
79 |
--------------------------------------------------------------------------------
/MPWS.WebServerModule.dfm:
--------------------------------------------------------------------------------
1 | object WebServerModule: TWebServerModule
2 | OldCreateOrder = False
3 | Actions = <
4 | item
5 | Default = True
6 | Name = 'DefaultHandler'
7 | PathInfo = '/'
8 | OnAction = WebModuleDefaultHandlerAction
9 | end>
10 | Height = 230
11 | Width = 415
12 | end
13 |
--------------------------------------------------------------------------------
/MPWS.WebServerModule.pas:
--------------------------------------------------------------------------------
1 | unit MPWS.WebServerModule;
2 |
3 | interface
4 |
5 | uses
6 | System.SysUtils, System.Classes,
7 | Web.HTTPApp;
8 |
9 | type
10 | TWebServerModule = class(TWebModule)
11 | procedure WebModuleDefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
12 | end;
13 |
14 | var
15 | WebModuleClass: TComponentClass = TWebServerModule;
16 |
17 | implementation
18 |
19 | {%CLASSGROUP 'System.Classes.TPersistent'}
20 |
21 | uses
22 | // IdHTTPWebBrokerBridge needs to be in the uses clause so that WebRequestHandler is set first
23 | Web.WebReq, IdHTTPWebBrokerBridge;
24 |
25 | {$R *.dfm}
26 |
27 | procedure TWebServerModule.WebModuleDefaultHandlerAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
28 | begin
29 | Response.Content :=
30 | '' +
31 | '