Changeset 67 for trunk/Components/CoolWeb/WebServer/UHTTPServerTCP.pas

Timestamp:

Dec 25, 2011, 9:40:28 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Přidáno analyzování HTTP POST informací.
• Upraveno: Příprava pro zpracování hodnot z objektů HTML formulářů.

File:

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

trunk/Components/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -88 +88 @@
       SessionStorage.Load(HandlerData);
 
-    Response.Stream.Clear;
+    Response.Content.Clear;
     Response.Headers.Values['Content-Type'] := 'text/html';
 
@@ -100 +100 @@
     with Response do begin
       SendString('HTTP/1.0 200 OK'#13#10);
-      Headers.Values['Content-Length'] := IntToStr(Stream.Size);
+      Headers.Values['Content-Length'] := IntToStr(Content.Size);
       Headers.Values['Connection'] := 'close';
       Headers.Values['Date'] := RFC822DateTime(Now);
@@ -115 +115 @@
       end;
       SendString(#13#10);
-      SendBuffer(Stream.Memory, Stream.Size);
+      SendBuffer(Content.Memory, Content.Size);
       SendString(#13#10);
     end;