Changeset 98 for trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

Timestamp:

Oct 2, 2012, 12:24:00 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Přihlašování, odhlašování, registrace a nastavení profilu uživatele.

File:

• trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas (modified) (3 diffs)

trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -42 +42 @@
   HandlerData: THTTPHandlerData;
   I: Integer;
+  ContentLength: Integer;
 begin
   with TTCPClientThread(Sender), Socket do begin
@@ -81 +82 @@
           Inc(LineIndex);
         until Line = '';
+
+        if Request.Method = 'POST' then begin
+          ContentLength := StrToInt(Request.Headers.Values['Content-Length']);
+          SetLength(Line, ContentLength);
+          RecvBufferEx(PByte(Line), ContentLength, 1000);
+          Request.Post.Parse(Line);
+        end;
       finally
         LineParts.Free;
       end;
+
+
 
     // Process cookies
@@ -95 +105 @@
     Response.Content.Clear;
     Response.Headers.Add('Content-Type', 'text/html');
+
+
 
     if Assigned(OnRequest) then OnRequest(HandlerData)