Changeset 68 for trunk/Modules/UMainModule.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/Modules/UMainModule.pas (modified) (5 diffs)

trunk/Modules/UMainModule.pas

@@ -41 +41 @@
     UserOnline: TWebOnlineUser;
     FormatHTML: Boolean;
+    NetworkAddress: string;
+    NetworkPort: Integer;
+    MaxConnections: Integer;
     procedure LoadFromRegistry;
     procedure SaveToRegistry;
@@ -236 +239 @@
   SectionGeneral = 'General';
   SectionDatabase = 'Database';
+  SectionHTTPServer = 'HTTPServer';
 begin
   with TIniFile.Create(ConfigFile) do
@@ -249 +253 @@
     FormatHTML := ReadBool(SectionGeneral, 'FormatHTML', False);
     Application.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
+    NetworkAddress := ReadString(SectionHTTPServer, 'NetworkAddress', 'localhost');
+    NetworkPort := ReadInteger(SectionHTTPServer, 'NetworkPort', 80);
+    MaxConnections := ReadInteger(SectionHTTPServer, 'MaxConnections', 10);
   finally
     Free;
@@ -258 +265 @@
   SectionGeneral = 'General';
   SectionDatabase = 'Database';
+  SectionHTTPServer = 'HTTPServer';
 begin
   with TIniFile.Create(ConfigFile) do
@@ -271 +279 @@
     WriteBool(SectionGeneral, 'FormatHTML', FormatHTML);
     WriteBool(SectionGeneral, 'ShowException', not Application.LogException);
+    WriteString(SectionHTTPServer, 'NetworkAddress', NetworkAddress);
+    WriteInteger(SectionHTTPServer, 'NetworkPort', NetworkPort);
+    WriteInteger(SectionHTTPServer, 'MaxConnections', MaxConnections);
   finally
     Free;