Changeset 84 for branches/DirectWeb/UWebServer.pas

Timestamp:

Dec 16, 2009, 12:46:51 PM (14 years ago)

Author:

george

Message:

• Opraveno: Načítání XML konfigurace.

File:

• branches/DirectWeb/UWebServer.pas (modified) (3 diffs)

branches/DirectWeb/UWebServer.pas

@@ -12 +12 @@
   UMIMEType, Synautil,
   USqlDatabase, DOM, XMLRead;
+
+const
+  ConfigFileName = 'Config.xml';
 
 type
@@ -41 +44 @@
 
 procedure TWebServer.LoadConfiguration;
-const
-  ConfigFileName = 'Config.xml';
 var
   Config: TXMLDocument;
-  I: Integer;
-  II: Integer;
+  I1: Integer;
+  I2: Integer;
+  I3: Integer;
 begin
   if FileExists(ConfigFileName) then begin
     ReadXMLFile(Config, ConfigFileName);
-    for I := 0 to Config.ChildNodes.Count - 1 do begin
-      if Config.ChildNodes[I].NodeName = 'database' then
-      for II := 0 to Config.ChildNodes[I].ChildNodes.Count - 1 do begin;
-        if Config.ChildNodes[I].ChildNodes[II].NodeName = 'hostname' then
-          HostName := Config.ChildNodes[I].ChildNodes[II].TextContent;
-        if Config.ChildNodes[I].ChildNodes[II].NodeName = 'schema' then
-          Schema := Config.ChildNodes[I].ChildNodes[II].TextContent;
-        if Config.ChildNodes[I].ChildNodes[II].NodeName = 'username' then
-          UserName := Config.ChildNodes[I].ChildNodes[II].TextContent;
-        if Config.ChildNodes[I].ChildNodes[II].NodeName = 'password' then
-          Password := Config.ChildNodes[I].ChildNodes[II].TextContent;
+    for I1 := 0 to Config.ChildNodes.Count - 1 do 
+    with Config.ChildNodes[I1] do begin
+      if NodeName = 'configuration' then
+      for I2 := 0 to ChildNodes.Count - 1 do 
+      with ChildNodes[I2] do begin
+        if NodeName = 'database' then
+        for I3 := 0 to ChildNodes.Count - 1 do 
+        with ChildNodes[I3] do begin
+          if NodeName = 'hostname' then
+            HostName := TextContent;
+          if NodeName = 'schema' then
+            Schema := TextContent;
+          if NodeName = 'username' then
+            UserName := TextContent;
+          if NodeName = 'password' then
+            Password := TextContent;
+        end;
+        if NodeName = 'server' then
+        for I3 := 0 to ChildNodes.Count - 1 do 
+        with ChildNodes[I3] do begin
+          if NodeName = 'address' then
+            HTTPServer.Socket.Address := TextContent;
+          if NodeName = 'port' then
+            HTTPServer.Socket.Port := StrToInt(TextContent);
+        end;
       end;
     end;
@@ -272 +288 @@
   HTTPServer := THTTPServer.Create;
   with HTTPServer, Socket do begin
-    Address := '0.0.0.0';
-    Port := 81;
     DocumentRoot := './';
     with RequestHandlerList do begin