Changeset 377 for Network/CoolWeb/WebServer/UHTTPServerTCP.pas

Timestamp:

Jun 19, 2012, 10:38:51 PM (12 years ago)

Author:

chronos

Message:

• Added: Test of POST data handling for HTTPServerTCP.

File:

• Network/CoolWeb/WebServer/UHTTPServerTCP.pas (modified) (1 diff)

Network/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -88 +88 @@
       Request.Cookies.Parse(Request.Headers.Values['Cookie']);
 
+    if (Request.Method = 'POST') and (Request.Headers.SearchKey('Content-Type') <> -1) then begin
+      if (Request.Headers.Values['Content-Type'] = 'application/x-www-form-urlencoded') and
+        (Request.Headers.SearchKey('Content-Length') <> -1) then begin
+          SetLength(Line, StrToInt(Request.Headers.Values['Content-Length']));
+          RecvBuffer(Pointer(Line[1]), Length(Line));
+          Request.Post.Parse(Line);
+      end;
+    end;
+
     // Load session variables
     if Assigned(SessionStorage) then