Changeset 68 for trunk/Components/CoolWeb/WebServer/UHTTPServerTCP.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/WebServer/UHTTPServerTCP.pas (modified) (2 diffs)

trunk/Components/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;
@@ -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.