Changeset 237 for Network/CoolWeb/WebServer/UHTTPServer.pas

Timestamp:

Apr 30, 2011, 10:54:24 PM (14 years ago)

Author:

george

Message:

• Main web server classes reworked as components for easier visual design.

File:

• Network/CoolWeb/WebServer/UHTTPServer.pas (modified) (4 diffs)

Network/CoolWeb/WebServer/UHTTPServer.pas

@@ -77 +77 @@
   { THTTPSessionStorage }
 
-  THTTPSessionStorage = class
+  THTTPSessionStorage = class(TComponent)
     procedure Load(HandlerData: THTTPHandlerData); virtual;
     procedure Save(HandlerData: THTTPHandlerData); virtual;
-    constructor Create; virtual;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -86 +86 @@
   { THTTPServer }
 
-  THTTPServer = class
+  THTTPServer = class(TComponent)
   private
+    FDocumentRoot: string;
     FOnRequest: TRequestEvent;
+    FSessionStorage: THTTPSessionStorage;
     FShowExceptions: Boolean;
     procedure SetShowExceptions(const AValue: Boolean);
   public
-    Name: string;
-    DocumentRoot: string;
-    SessionStorage: THTTPSessionStorage;
-    ShowExceptions: Boolean;
     procedure Run; virtual;
     procedure ErrorResponse(HandlerData: THTTPHandlerData);
     procedure FileResponse(HandlerData: THTTPHandlerData);
     procedure ServerInfo(HandlerData: THTTPHandlerData); virtual;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+  published
+    property ShowExceptions: Boolean read FShowExceptions write SetShowExceptions;
+    property DocumentRoot: string read FDocumentRoot write FDocumentRoot;
+    property SessionStorage: THTTPSessionStorage read FSessionStorage
+      write FSessionStorage;
     property OnRequest: TRequestEvent read FOnRequest write FOnRequest;
-    property ShowExceptions: Boolean read FShowExceptions write SetShowExceptions;
   end;
 
@@ -200 +202 @@
 end;
 
-constructor THTTPServer.Create;
-begin
+constructor THTTPServer.Create(AOwner: TComponent);
+begin
+  inherited;
   ShowExceptions := False;
   DocumentRoot := './';
-  Name := 'THTTPServer';
 end;
 
 destructor THTTPServer.Destroy;
 begin
-  SessionStorage.Free;
   inherited Destroy;
 end;
@@ -351 +352 @@
 constructor THTTPSessionStorage.Create;
 begin
-
+  inherited;
 end;