Changeset 311 for Network/CoolWeb/Network/UTCPServer.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/Network/UTCPServer.pas (modified) (2 diffs)

Network/CoolWeb/Network/UTCPServer.pas

@@ -31 +31 @@
 
   TClientThreadedPool = class(TThreadPool)
+  protected
+    function NewItemObject: TObject; override;
   private
     FActive: Boolean;
@@ -164 +166 @@
 { TClientThreadedPool }
 
+function TClientThreadedPool.NewItemObject: TObject;
+begin
+  Result := TTCPClientThread.Create;
+  TResetableThread(Result).OnException := ThreadException;
+end;
+
 procedure TClientThreadedPool.SetActive(const AValue: Boolean);
 begin