Changeset 87 for branches/DirectWeb/UWebServer.pas

Timestamp:

Dec 17, 2009, 9:36:15 AM (15 years ago)

Author:

george

Message:

• Přidáno: Podpora pro ukládání serverových proměnných HTTP sezení.
• Upraveno: U funkce Explode lze nyní omezit počet výsledných částí řetězce.

Location:

branches/DirectWeb

Files:

• . (modified) (1 prop)
• UWebServer.pas (modified) (5 diffs)

branches/DirectWeb

@@ -3 +3 @@
 WoWHostingWebServer
 Config.xml
+Session

@@ -3 +3 @@
 WoWHostingWebServer
 Config.xml
+Session

branches/DirectWeb/UWebServer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UHTTPServer,
+  Classes, SysUtils, UHTTPServer, UHTTPSessionFile,
   UTCPServer,
   UCommon,
@@ -21 +21 @@
   TWebServer = class
   private
+    HTTPSessionFile: THTTPSessionFile;
     function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer
       ): string;
@@ -244 +245 @@
   with Response.Stream do begin
     Response.Cookies.Values['Test'] := 'Halo';
+    //Response.Cookies.Values['Test2'] := 'Halo2';
+
+    HTTPServer.SessionHandler.Variables.Values['Session1'] := 'Value1';
+    //HTTPServer.SessionHandler.Variables.Values['Session2'] := 'Value2';
 
     WriteString('<a href="?ServerInfo">Refresh</a>');
 
     WriteString('<h5>Request HTTP headers</h5>');
-
     for I := 0 to Request.Headers.Count - 1 do begin;
       WriteString(Request.Headers.Strings[I] + '<br/>');
+    end;
+
+    WriteString('<h5>Request HTTP cookies</h5>');
+    for I := 0 to Request.Cookies.Count - 1 do begin;
+      WriteString(Request.Cookies.Strings[I] + '<br/>');
+    end;
+
+    WriteString('<h5>Session variables</h5>');
+    for I := 0 to HTTPServer.SessionHandler.Variables.Count - 1 do begin;
+      WriteString(HTTPServer.SessionHandler.Variables.Strings[I] + '<br/>');
     end;
 
@@ -310 +324 @@
 begin
   inherited Create;
+  HTTPSessionFile := THTTPSessionFile.Create;
+  with HTTPSessionFile do begin
+  end;
   HTTPServer := THTTPServer.Create;
   with HTTPServer, Socket do begin
+    SessionHandler := HTTPSessionFile;
     DocumentRoot := 'Data';
     with RequestHandlerList do begin
@@ -329 +347 @@
 begin
   HTTPServer.Destroy;
+  HTTPSessionFile.Destroy;
   inherited Destroy;
 end;

@@ -3 +3 @@
 WoWHostingWebServer
 Config.xml
+Session