Changeset 33 for trunk/WebServer/UHTTPSessionFile.pas

Timestamp:

Sep 13, 2010, 11:20:24 AM (14 years ago)

Author:

george

Message:

• Přidáno: Druhá varianta projektu pro sestavení TCP serveru.
• Přidáno: Vlastní obsluha vyjímek a zobrazení ve HTTP tvaru.
• Opraveno: Zpracování session třídy THTTPSessionStorageMySQL.

Location:

trunk

Files:

• . (modified) (1 prop)
• WebServer/UHTTPSessionFile.pas (modified) (7 diffs)

trunk

@@ -2 +2 @@
 UConfig.pas
 bin
+lib

@@ -2 +2 @@
 UConfig.pas
 bin
+lib

trunk/WebServer/UHTTPSessionFile.pas

@@ -10 +10 @@
 type
 
-  { TFileHTTPSessionStorage }
+  { THTTPSessionStorageFile }
 
-  TFileHTTPSessionStorage = class(THTTPSessionStorage)
+  THTTPSessionStorageFile = class(THTTPSessionStorage)
   private
     Lock: TCriticalSection;
@@ -32 +32 @@
 { THTTPSession }
 
-function TFileHTTPSessionStorage.GetNewSessionId: string;
+function THTTPSessionStorageFile.GetNewSessionId: string;
 begin
   Result := BinToHexString(SHA1(FloatToStr(Now)));
@@ -39 +39 @@
 end;
 
-procedure TFileHTTPSessionStorage.GetSessionId(HandlerData: THTTPHandlerData);
+procedure THTTPSessionStorageFile.GetSessionId(HandlerData: THTTPHandlerData);
 begin
   with HandlerData do begin
@@ -51 +51 @@
 end;
 
-procedure TFileHTTPSessionStorage.Load(HandlerData: THTTPHandlerData);
+procedure THTTPSessionStorageFile.Load(HandlerData: THTTPHandlerData);
 var
   SessionFile: string;
@@ -68 +68 @@
 end;
 
-procedure TFileHTTPSessionStorage.Save(HandlerData: THTTPHandlerData);
+procedure THTTPSessionStorageFile.Save(HandlerData: THTTPHandlerData);
 var
   SessionFile: string;
@@ -88 +88 @@
 end;
 
-constructor TFileHTTPSessionStorage.Create;
+constructor THTTPSessionStorageFile.Create;
 begin
   inherited Create;
@@ -98 +98 @@
 end;
 
-destructor TFileHTTPSessionStorage.Destroy;
+destructor THTTPSessionStorageFile.Destroy;
 begin
   Sessions.Destroy;

@@ -2 +2 @@
 UConfig.pas
 bin
+lib