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
|
unit frmnewhttpapp;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, EditBtn,
StdCtrls, Spin, ButtonPanel;
type
{ TNewHTTPApplicationForm }
TNewHTTPApplicationForm = class(TForm)
ButtonPanel1: TButtonPanel;
CBRegisterFiles: TCheckBox;
CBthreads: TCheckBox;
DEDocumentroot: TDirectoryEdit;
ELocation: TEdit;
LSEPort: TLabel;
LELocation: TLabel;
LDEDocumentRoot: TLabel;
SEPort: TSpinEdit;
procedure CBRegisterFilesChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
function GetD: String;
function GetL: String;
function GetP: Integer;
function GetS: Boolean;
function Gett: Boolean;
procedure LocalizeForm;
{ private declarations }
public
{ public declarations }
Property ServeFiles : Boolean Read GetS;
Property Location : String Read GetL;
Property Directory : String Read GetD;
Property Port: Integer Read GetP;
Property Threaded : Boolean Read Gett;
end;
var
NewHTTPApplicationForm: TNewHTTPApplicationForm;
implementation
uses fpWebStrConsts;
{$R *.lfm}
{ TNewHTTPApplicationForm }
procedure TNewHTTPApplicationForm.FormCreate(Sender: TObject);
begin
LocalizeForm;
end;
procedure TNewHTTPApplicationForm.CBRegisterFilesChange(Sender: TObject);
Var
B : Boolean;
begin
B:=GetS;
ELocation.Enabled:=B;
DEDocumentRoot.Enabled:=B;
end;
procedure TNewHTTPApplicationForm.LocalizeForm;
begin
Caption:=sNewHTTPApp;
CBRegisterFiles.Caption:=sRegisterFiles;
LELocation.Caption:=sDocumentLocation;
LDEDocumentRoot.Caption:=sDocumentRoot;
LSEPort.Caption:=sHTTPPort;
CBthreads.Caption:=sUseThreads;
end;
function TNewHTTPApplicationForm.GetD: String;
begin
Result:=DEDocumentRoot.Text;
end;
function TNewHTTPApplicationForm.GetL: String;
begin
Result:=ELocation.Text;
end;
function TNewHTTPApplicationForm.GetP: Integer;
begin
Result:=SEPort.Value;
end;
function TNewHTTPApplicationForm.GetS: Boolean;
begin
Result:=CBRegisterFiles.Checked;
end;
function TNewHTTPApplicationForm.Gett: Boolean;
begin
Result:=CBThreads.Checked;
end;
end.
|
