Changeset 68 for trunk/ZdechovNET.lpr

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/ZdechovNET.lpr (modified) (2 diffs)

trunk/ZdechovNET.lpr

@@ -4 +4 @@
 
 uses
+  {$IFDEF UNIX}
+  cthreads,
+  {$ENDIF}
   UCore, USqlDatabase, SysUtils, Contnrs,
   UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile,
@@ -32 +35 @@
     //RegisterPage(TAboutPage, AboutPage, '');
     RegisterPage(TUserControlPage, UserControlPage, '');
+    ServerType := stCGI;
+    if ServerType = stTCP then begin
+      THTTPServerTCP(HTTPServer).Socket.Address := MainModule.NetworkAddress;
+      THTTPServerTCP(HTTPServer).Socket.Port := MainModule.NetworkPort;
+      THTTPServerTCP(HTTPServer).MaxConnection := MainModule.MaxConnections;
+    end;
     Run;
   finally