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

Timestamp:

Jan 4, 2012, 2:27:19 PM (12 years ago)

Author:

chronos

Message:

• Added: Support for handling POST values in HTTPServer.
• Fixed: TCP server to start listening and wait for termination.
• Added: ServerType of WebApp as CGI or TCP.

File:

• Network/CoolWeb/WebServer/UHTTPServerTCP.pas (modified) (5 diffs)

Network/CoolWeb/WebServer/UHTTPServerTCP.pas

@@ -21 +21 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    procedure Run; override;
   published
     property MaxConnection: Integer read FMaxConnection write FMaxConnection;
@@ -88 +89 @@
       SessionStorage.Load(HandlerData);
 
-    Response.Stream.Clear;
+    Response.Content.Clear;
     Response.Headers.Values['Content-Type'] := 'text/html';
 
@@ -100 +101 @@
     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 +116 @@
       end;
       SendString(#13#10);
-      SendBuffer(Stream.Memory, Stream.Size);
+      SendBuffer(Content.Memory, Content.Size);
       SendString(#13#10);
     end;
@@ -143 +144 @@
 end;
 
+procedure THTTPServerTCP.Run;
+begin
+  inherited Run;
+  WriteLn('HTTP Server started in TCP mode.');
+  WriteLn('Listen on ' + Socket.Address + ':' + IntToStr(Socket.Port));
+  WriteLn('Press any key to terminate...');
+  Socket.ThreadPool.TotalCount := MaxConnection;
+  Socket.Active := True;
+  ReadLn;
+  WriteLn('Exiting');
+end;
+
 end.