Changeset 103 for trunk/Pages/UServerInfoPage.pas

Timestamp:

Oct 8, 2012, 8:48:16 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: TWebSession zobecněno pro možnost implementace více modulů s obsluhou vstupní stránky.

File:

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

trunk/Pages/UServerInfoPage.pas

@@ -28 +28 @@
 
 uses
-  UCore;
+  UCore, UWebSession;
 
 { TServerInfoPage }
@@ -37 +37 @@
     LoadUserInfo;
     Session.Values['Test'] := 'Tst';
-    MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
+    TCore(MainModule).WebApp1.HTTPServer.ServerInfo(HandlerData);
     GeneratePage(Self);
   end;