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

Timestamp:

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

Author:

george

Message:

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

File:

• Network/CoolWeb/WebServer/UHTTPServerCGI.pas (modified) (2 diffs)

Network/CoolWeb/WebServer/UHTTPServerCGI.pas

@@ -16 +16 @@
     EnvVars: TStringList;
     procedure Run; override;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     procedure ServerInfo(HandlerData: THTTPHandlerData); override;
   end;
+
+
+procedure Register;
 
 implementation
@@ -26 +29 @@
   SEnvironmentVariables = 'Environment variables:';
 
+procedure Register;
+begin
+  RegisterComponents('CoolWeb', [THTTPServerCGI]);
+end;
+
+
 { THTTPServerCGI }
 
-constructor THTTPServerCGI.Create;
+constructor THTTPServerCGI.Create(AOwner: TComponent);
 begin
   inherited;