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

Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas

@@ -12 +12 @@
   { TFileHTTPSessionStorage }
 
+  { THTTPSessionStorageMySQL }
+
   THTTPSessionStorageMySQL = class(THTTPSessionStorage)
   private
+    FSessionIdCookieName: string;
+    FTimeout: Integer;
     Lock: TCriticalSection;
     function GetNewSessionId: string;
     procedure GetSessionId(HandlerData: THTTPHandlerData);
   public
-    Timeout: Integer; // in seconds
     SqlDatabase: TSqlDatabase;
-    SessionIdCookieName: string;
     Sessions: TStringList;
     procedure Load(HandlerData: THTTPHandlerData); override;
     procedure Save(HandlerData: THTTPHandlerData); override;
-    constructor Create; override;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+  published
+    property Timeout: Integer read FTimeout write FTimeout; // in seconds
+    property SessionIdCookieName: string read FSessionIdCookieName
+      write FSessionIdCookieName;
   end;
 
+procedure Register;
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('CoolWeb', [THTTPSessionStorageMySQL]);
+end;
+
 
 { THTTPSession }
@@ -110 +124 @@
 end;
 
-constructor THTTPSessionStorageMySQL.Create;
+constructor THTTPSessionStorageMySQL.Create(AOwner: TComponent);
 begin
-  inherited Create;
+  inherited;
   Lock := TCriticalSection.Create;
   Sessions := TStringList.Create;