Changeset 85 for branches/DirectWeb/UWebServer.pas

Timestamp:

Dec 16, 2009, 1:21:06 PM (14 years ago)

Author:

george

Message:

• Opraveno: Načítat nastavení databáze z konfiguračního souboru.

File:

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

branches/DirectWeb/UWebServer.pas

@@ -150 +150 @@
   begin
     WriteHeader(Stream);
-    HostName := 'localhost';
-    UserName := 'root';
-    Password := 'severjih';
-    Database := 'dispecink';
+    HostName := Self.HostName;
+    UserName := Self.UserName;
+    Password := Self.Password;
+    Database := Self.Schema;
     Connect;
     WriteString(Request.Query.Values['Table']);
@@ -215 +215 @@
   begin
     WriteHeader(Stream);
-    HostName := 'localhost';
-    UserName := 'root';
-    Password := 'severjih';
-    Database := 'dispecink';
+    HostName := Self.HostName;
+    UserName := Self.UserName;
+    Password := Self.Password;
+    Database := Self.Schema;
     Connect;
     DbRows := Query('SELECT * FROM ' + Request.Query.Values['Table'] +
@@ -288 +288 @@
   HTTPServer := THTTPServer.Create;
   with HTTPServer, Socket do begin
-    DocumentRoot := './';
+    DocumentRoot := 'Data';
     with RequestHandlerList do begin
       Add('/', SendIndex);