Changeset 105 for trunk/Application

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/Application/UWebSession.pas (modified) (5 diffs)

trunk/Application/UWebSession.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, UHTTPServer, USqlDatabase, UHTTPSessionMySQL, UUser,
-  UHtmlClasses, UWebPage, UUtils, UXmlClasses, DateUtils;
+  UHtmlClasses, UWebPage, UUtils, UXmlClasses, DateUtils, UModularSystem,
+  UPageList, UWebApp, SpecializedList;
 
 type
@@ -14 +15 @@
   TWebSession = class(THTTPHandlerData)
   private
+    procedure GeneratePageDefault(ASession: TWebSession; Page: TWebPage);
+    procedure RegisterModules;
+    procedure CheckModules;
   public
     MainModule: TObject;
     Database: TSqlDatabase;
     SessionStorage: THTTPSessionStorageMySQL;
-    User: TWebUser;
-    UserOnline: TWebOnlineUser;
     HtmlDocument: THtmlDocument;
     GlobalTitle: string;
     TimeStart: TDateTime;
-    procedure LoadUserInfo;
+    BaseURL: string;
+    ModuleManager: TModuleManager;
     procedure InitDatabase;
     constructor Create; override;
     destructor Destroy; override;
     procedure GeneratePage(Page: TWebPage);
+    procedure Run;
   end;
-
-  TGeneratePageEvent = procedure (Session: TWebSession; Page: TWebPage) of object;
 
 implementation
 
 uses
-  UCore;
+  UCore, UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV,
+  UModuleFinance, UModuleNetwork, UModulePortal, UModuleIS, UModuleBase,
+  UModuleNews;
+
+resourcestring
+  SError = '<div>Error: %s</div>';
+
 
 { TWebSession }
@@ -42 +50 @@
 begin
   inherited;
+  ModuleManager := TModuleManager.Create(nil);
   Database := TSqlDatabase.Create(nil);
   SessionStorage := THTTPSessionStorageMySQL.Create(nil);
   SessionStorage.Database := Database;
   HtmlDocument := THtmlDocument.Create;
-  User := TWebUser.Create;
-  User.Database := Database;
-  UserOnline := TWebOnlineUser.Create;
-  UserOnline.Database := Database;
 end;
 
 destructor TWebSession.Destroy;
 begin
+  ModuleManager.StopAll;
+  FreeAndNil(ModuleManager);
   FreeAndNil(HtmlDocument);
-  FreeAndNil(User);
-  FreeAndNil(UserOnline);
   FreeAndNil(SessionStorage);
   FreeAndNil(Database);
@@ -64 +69 @@
 procedure TWebSession.GeneratePage(Page: TWebPage);
 begin
-  with TCore(MainModule) do
+  with TModuleBase(ModuleManager.FindModuleByName('Base')) do
   if Assigned(GeneratePage) then GeneratePage(Self, Page)
     else GeneratePageDefault(Self, Page);
 end;
+
+procedure TWebSession.Run;
+var
+  FileName: string;
+  PageName: string;
+  Page: TRegistredPage;
+  BaseUrlParts: TListString;
+  ModuleBase: TModuleBase;
+begin
+  RegisterModules;
+  CheckModules;
+  ModuleManager.StartInstalled;
+
+      try
+        BaseUrlParts := TListString.Create;
+        BaseUrlParts.Explode(BaseURL, '/', StrToStr);
+        while (BaseUrlParts.Count > 0) and (Request.Path.Count > 0) and
+           (BaseUrlParts[0] = Request.Path[0]) do begin
+             BaseUrlParts.Delete(0);
+             Request.Path.Delete(0);
+           end;
+      finally
+        BaseUrlParts.Free;
+      end;
+      if Request.Path.Count > 0 then PageName := Request.Path[0]
+        else PageName := '';
+      ModuleBase := TModuleBase(ModuleManager.FindModuleByName('Base'));
+      Page := ModuleBase.Pages.FindByName(PageName);
+      if Assigned(Page) then begin
+        try
+          Page.Page.OnProduce(Self);
+        except
+          on E: Exception do begin
+            THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)).
+              Text := Format(SError, [E.Message]);
+            if Assigned(GeneratePage) then ModuleBase.GeneratePage(Self, Page.Page)
+              else GeneratePageDefault(Self, Page.Page);
+          end;
+        end;
+      end else begin
+        Core.WebApp1.HTTPServer.FileResponse(Self)
+      end;
+end;
+
+procedure TWebSession.GeneratePageDefault(ASession: TWebSession; Page: TWebPage);
+var
+  I: Integer;
+begin
+  with ASession do begin
+    HtmlDocument.ContentLanguage := 'cs';
+    GlobalTitle := 'WebSystem';
+
+      //Page.Page.OnProduce(HandlerData);
+      HtmlDocument.Title := Page.Caption;
+      with HtmlDocument.AsXmlDocument do
+      try
+        Formated := TCore(MainModule).FormatHTML;
+        Response.Content.WriteString(AsString);
+      finally
+        Free;
+      end;
+    end;
+end;
+
 
 procedure TWebSession.InitDatabase;
@@ -79 +148 @@
 end;
 
-procedure TWebSession.LoadUserInfo;
+procedure TWebSession.RegisterModules;
 begin
-  if TCore(MainModule).ModuleManager.ModuleRunning('User') then begin
-    User.HandlerData := Self;
-    UserOnline.HandlerData := Self;
-    UserOnline.Update;
-    User.Id := UserOnline.User;
-    User.Load;
+  with ModuleManager do begin
+    RegisterModule(TModuleSystem.Create(nil), True);
+    RegisterModule(TModuleBase.Create(nil), True);
+    RegisterModule(TModuleUser.Create(nil), True);
+    RegisterModule(TModuleZdechovNET.Create(nil), True);
+    RegisterModule(TModuleTV.Create(nil), True);
+    RegisterModule(TModuleFinance.Create(nil), True);
+    RegisterModule(TModuleNetwork.Create(nil), True);
+    RegisterModule(TModulePortal.Create(nil), True);
+    RegisterModule(TModuleIS.Create(nil), True);
+    RegisterModule(TModuleNews.Create(nil), True);
   end;
 end;
 
+procedure TWebSession.CheckModules;
+var
+  DbRows: TDbRows;
+  Module: TModule;
+  I: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT * FROM INFORMATION_SCHEMA.TABLES ' +
+      'WHERE TABLE_SCHEMA = "' + Database.Database + '" AND TABLE_NAME = "SystemModule"');
+    Module := ModuleManager.FindModuleByName('System');
+    if DbRows.Count > 0 then Module.SetInstalledState(True)
+      else Module.SetInstalledState(False);
+  finally
+    DbRows.Free;
+  end;
+end;
+
+
 end.