Changeset 86 for branches/DirectWeb/UWebServer.pas

Timestamp:

Dec 17, 2009, 8:25:15 AM (15 years ago)

Author:

george

Message:

• Přidáno: Zobrazení ServerInfo.
• Přidáno: Zpracování HTTP Cookies.

File:

• branches/DirectWeb/UWebServer.pas (modified) (6 diffs)

branches/DirectWeb/UWebServer.pas

@@ -23 +23 @@
     function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer
       ): string;
+    procedure ServerInfo(Request: THTTPRequest; Response: THTTPResponse);
   public
     HTTPServer: THTTPServer;
@@ -144 +145 @@
   OrderDirection: string;
   Title: string;
-  LinkQuery: TQueryString;
+  LinkQuery: TQueryParameterList;
 begin
   SqlDatabase := TSqlDatabase.Create;
@@ -165 +166 @@
       ' ORDER BY ' + OrderColumn + ' ' + OrderDirection);
 
-    LinkQuery := TQueryString.Create;
+    LinkQuery := TQueryParameterList.Create;
     LinkQuery.Assign(Request.Query);
 
@@ -209 +210 @@
   OrderDirection: string;
   Title: string;
-  LinkQuery: TQueryString;
+  LinkQuery: TQueryParameterList;
 begin
   SqlDatabase := TSqlDatabase.Create;
@@ -237 +238 @@
 end;
 
+procedure TWebServer.ServerInfo(Request: THTTPRequest; Response: THTTPResponse);
+var
+  I: Integer;
+begin
+  with Response.Stream do begin
+    Response.Cookies.Values['Test'] := 'Halo';
+
+    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>Response HTTP headers</h5>');
+    with Response.Stream do
+    for I := 0 to Response.Headers.Count - 1 do begin;
+      WriteString(Response.Headers.Strings[I] + '<br/>');
+    end;
+  end;
+end;
+
 procedure TWebServer.SendIndex(Request: THTTPRequest; Response: THTTPResponse);
 begin
@@ -297 +321 @@
       Add('/ViewList', ViewList);
       Add('/ViewItem', ViewItem);
+      Add('/ServerInfo', ServerInfo);
     end;
   end;