Changeset 76 for trunk/Pages/UServerInfoPage.pas

Timestamp:

Apr 29, 2012, 9:44:14 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Třída WebApp typu TCustomApplication je nyní použita jako komponenta namísto aplikační třídy.

File:

• trunk/Pages/UServerInfoPage.pas (modified) (1 diff)

trunk/Pages/UServerInfoPage.pas

@@ -35 +35 @@
 begin
   HandlerData.Session.Values['Test'] := 'Tst';
-  Application.HTTPServer.ServerInfo(HandlerData);
+  MainModule.WebApp1.HTTPServer.ServerInfo(HandlerData);
   MainModule.GeneratePage(HandlerData, Self);
 end;