Changeset 68 for trunk/Components/CoolWeb/Network/UTCPServer.pas

Timestamp:

Dec 26, 2011, 12:07:37 PM (13 years ago)

Author:

chronos

Message:

• Upraveno: Testování varianty HTTP serveru jako přímé obsluhy přes TCP. Momentálně není odděleno generování stránek pro použití z více vláken.
• Upraveno: Třída uchování jména počítač nyní pro převod do IPv4 používá ověření správnosti namísto přímého převodu a zahlášení výjimky.

File:

• trunk/Components/CoolWeb/Network/UTCPServer.pas (modified) (2 diffs)

trunk/Components/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