Changeset 105 for trunk/Pages/UServerInfoPage.pas

Timestamp:

Oct 9, 2012, 1:58:45 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Hlavní modul Base, který slouží jako základní rozhraní k aplikaci pro ostatní moduly. Modul System zajistí udržování seznamu instalovaných modulů v perzistentním úložišti v databázi.
• Upraveno: Správce modulů ModuleManager je nyní použit pro každé komunikační spojení zvlášť.

File:

• trunk/Pages/UServerInfoPage.pas (modified) (3 diffs)

trunk/Pages/UServerInfoPage.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer;
+  Classes, SysUtils, FileUtil, UWebPage, UWebApp, UHTTPServer, UModuleUser;
 
 type
@@ -17 +17 @@
     { private declarations }
   public
-    { public declarations }
+    ModuleUser: TModuleUser;
   end; 
 
@@ -35 +35 @@
 begin
   with TWebSession(HandlerData) do begin
-    LoadUserInfo;
+    ModuleUser.LoadUserInfo;
     Session.Values['Test'] := 'Tst';
     TCore(MainModule).WebApp1.HTTPServer.ServerInfo(HandlerData);