Changeset 237 for Network/CoolWeb/WebServer/UHTTPServerTCP.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/UHTTPServerTCP.pas (modified) (2 diffs)

Network/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -14 +14 @@
   THTTPServerTCP = class(THTTPServer)
   private
+    FMaxConnection: Integer;
     procedure HandleClient(Sender: TObject);
   public
     Socket: TTCPServer;
-    MaxConnection: Integer;
     RequestHandlerList: TRequestHandlerList;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+  published
+    property MaxConnection: Integer read FMaxConnection write FMaxConnection;
   end;
+
+procedure Register;
 
 implementation
 
+procedure Register;
+begin
+  RegisterComponents('CoolWeb', [THTTPServerTCP]);
+end;
+
 procedure THTTPServerTCP.HandleClient(Sender: TObject);
 var
-  RequestHandler: TRequestHandler;
   Line: string;
   LineIndex: Integer;
@@ -119 +127 @@
 { THTTPServerTCP }
 
-constructor THTTPServerTCP.Create;
+constructor THTTPServerTCP.Create(AOwner: TComponent);
 begin
   inherited;