1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
unit frmnewhttpapp;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
StdCtrls, Spin, ButtonPanel;
type
{ TNewHTTPApplicationForm }
TServeFiles = (sfNoFiles, sfSingleRoute, sfDefaultRoute);
TStandardModule = (smNone,smWeb,smHTTP,smFile,smRPC,smWebData, smExtDirect);
TNewHTTPApplicationForm = class(TForm)
ButtonPanel1: TButtonPanel;
CBthreads: TCheckBox;
cbStandardModule: TComboBox;
DEDocumentroot: TDirectoryEdit;
ELocation: TEdit;
GBFileServing: TGroupBox;
lblStandardModule: TLabel;
LDEDocumentRoot: TLabel;
LSEPort: TLabel;
RBSingleRoute: TRadioButton;
RBDefaultRoute: TRadioButton;
RBNoFiles: TRadioButton;
SEPort: TSpinEdit;
procedure FormCreate(Sender: TObject);
procedure RBNoFilesChange(Sender: TObject);
private
function GetD: String;
function GetR: String;
function GetP: Integer;
function GetS: TServeFiles;
function GetSM: TStandardModule;
function GetT: Boolean;
procedure LocalizeForm;
{ private declarations }
public
{ public declarations }
Property ServeFiles : TServeFiles Read GetS;
Property FileRoute : String Read GetR;
Property Directory : String Read GetD;
Property Port: Integer Read GetP;
Property Threaded : Boolean Read Gett;
Property StandardModule : TStandardModule Read GetSM;
end;
var
NewHTTPApplicationForm: TNewHTTPApplicationForm;
Function StandardModuleToString(aModule : TStandardModule) : String;
implementation
uses fpWebStrConsts;
{$R *.lfm}
Function StandardModuleToString(aModule : TStandardModule) : String;
begin
case aModule of
smNone : Result:=rsNoModule;
smWeb : Result:=rsWebModule;
smHTTP : Result:=rsHTMLWebModul;
smFile : Result:=rsFileModule;
smRPC : Result:=rsWebJSONRPCMo;
smWebData : Result:=rsWebDataProvi;
smExtDirect : Result:=rsWebExtDirect;
end;
end;
{ TNewHTTPApplicationForm }
procedure TNewHTTPApplicationForm.FormCreate(Sender: TObject);
var
SF: TServeFiles;
SM : TStandardModule;
begin
SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute);
DEDocumentRoot.Enabled:=(Sf<>sfNoFiles);
LocalizeForm;
For SM in TStandardModule do
cbStandardModule.Items.Add(StandardModuleToString(SM));
end;
procedure TNewHTTPApplicationForm.RBNoFilesChange(Sender: TObject);
var
SF: TServeFiles;
begin
SF:=ServeFiles;
ELocation.Enabled:=(Sf=sfSingleRoute);
if not ELocation.Enabled then
ELocation.Text:='';
DEDocumentRoot.Enabled:=(Sf<>sfNoFiles);
if not DEDocumentRoot.Enabled then
DEDocumentRoot.Directory:='';
end;
procedure TNewHTTPApplicationForm.LocalizeForm;
begin
Caption:=sNewHTTPApp;
GBFileServing.Caption:=sFileServing;
RBNoFiles.Caption:=sNoFiles;
RBSingleRoute.Caption:=sRegisterFiles;
RBDefaultRoute.Caption:=sDefaultRouteServesFiles;
LDEDocumentRoot.Caption:=sDocumentRoot;
LSEPort.Caption:=sHTTPPort;
CBthreads.Caption:=sUseThreads;
lblStandardModule.Caption:=sStandardModule;
end;
function TNewHTTPApplicationForm.GetD: String;
begin
Result:=DEDocumentRoot.Text;
end;
function TNewHTTPApplicationForm.GetR: String;
begin
Result:=ELocation.Text;
end;
function TNewHTTPApplicationForm.GetP: Integer;
begin
Result:=SEPort.Value;
end;
function TNewHTTPApplicationForm.GetS: TServeFiles;
begin
if RBNoFiles.Checked then
Result:=sfNoFiles
else if RBSingleRoute.Checked then
Result:=sfSingleRoute
else
Result:=sfDefaultRoute;
end;
function TNewHTTPApplicationForm.GetSM: TStandardModule;
begin
if cbStandardModule.ItemIndex<0 then
Result:=smNone
else
Result:=TStandardModule(cbStandardModule.ItemIndex);
end;
function TNewHTTPApplicationForm.GetT: Boolean;
begin
Result:=CBThreads.Checked;
end;
end.
|
