Changeset 149 for trunk/Modules


Ignore:
Timestamp:
Feb 4, 2024, 2:14:37 PM (4 months ago)
Author:
chronos
Message:
  • Modified: Update Common package.
  • Added: Project group.
  • Modified: Assign ModuleUser to modules which use it in later time.
Location:
trunk/Modules
Files:
20 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/IS/ModuleIS.pas

    r146 r149  
    44
    55uses
    6   Classes, SysUtils, UModularSystem, USqlDatabase, ModuleBase, UGenerics;
     6  Classes, SysUtils, UModularSystem, USqlDatabase, ModuleBase, Generics;
    77
    88type

  • trunk/Modules/Portal/PagePortal.pas

    r146 r149  
    55uses
    66  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, Utils,
    7   UGenerics, WebSession, UHtmlClasses, UModularSystem, ModuleUser,
     7  Generics, WebSession, UHtmlClasses, UModularSystem, ModuleUser,
    88  ModuleNews;
    99

  • trunk/Modules/System/ModuleSystem.pas

    r146 r149  
    44
    55uses
    6   Classes, SysUtils, UModularSystem, UGenerics;
     6  Classes, SysUtils, UModularSystem, Generics;
    77
    88type

  • trunk/Modules/User/ModuleUser.pas

    r146 r149  
    205205end;
    206206
    207 
    208 
    209207end.
    210208

  • trunk/Modules/User/User.pas

    r146 r149  
    44
    55uses
    6   Classes, SysUtils, synacode, USqlDatabase, UCommon, UHTTPServer,
    7   UGenerics;
     6  Classes, SysUtils, synacode, USqlDatabase, Common, UHTTPServer,
     7  Generics;
    88
    99const

  • trunk/Modules/ZdechovNET/AboutPage.pas

    r147 r149  
    1212  TAboutPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3432  DbRows: TDbRows;
    3533  I: Integer;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/ContactPage.pas

    r147 r149  
    1212  TContactPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    2826
    2927procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
     28var
     29  ModuleUser: TModuleUser;
    3030begin
    3131  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
     32    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3233    if Request.Path.Count > 1 then begin
    3334      PageNotFound;

  • trunk/Modules/ZdechovNET/DocumentsPage.pas

    r146 r149  
    1212  TDocumentsPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3028
    3129procedure TDocumentsPage.DataModuleProduce(HandlerData: THTTPHandlerData);
     30var
     31  ModuleUser: TModuleUser;
    3232begin
    3333  with TWebSession(HandlerData) do begin
     34    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3435    ModuleUser.LoadUserInfo;
    3536    with HtmlDocument.Body, SubItems.AddString do begin

  • trunk/Modules/ZdechovNET/HistoryPage.pas

    r146 r149  
    1313  THistoryPage = class(TWebPage)
    1414    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    15   public
    16     ModuleUser: TModuleUser;
    17   end;
     15  end;
    1816
    1917var
    … …  
    3432  DbRows: TDbRows;
    3533  I: Integer;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/HostingPage.pas

    r146 r149  
    1313  THostingPage = class(TWebPage)
    1414    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    15   public
    16     ModuleUser: TModuleUser;
    17   end;
     15  end;
    1816
    1917var
    … …  
    3432  I: Integer;
    3533  DbRows: TDbRows;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/IPTVPage.pas

    r146 r149  
    3131  private
    3232    function Row(Cells: array of string): string;
    33   public
    34     ModuleUser: TModuleUser;
    3533  end;
    3634
    … …  
    8684var
    8785  Channels: TChannels;
     86  ModuleUser: TModuleUser;
    8887begin
    8988  with TWebSession(HandlerData) do begin
     89    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    9090    if Request.Path.Count > 1 then begin
    9191      PageNotFound;

  • trunk/Modules/ZdechovNET/InternetPage.pas

    r147 r149  
    1212  TInternetPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3028
    3129procedure TInternetPage.DataModuleProduce(HandlerData: THTTPHandlerData);
     30var
     31  ModuleUser: TModuleUser;
    3232begin
    3333  with TWebSession(HandlerData) do begin
     34    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3435    if Request.Path.Count > 1 then begin
    3536      PageNotFound;

  • trunk/Modules/ZdechovNET/LinksPage.pas

    r146 r149  
    1212  TLinksPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3028
    3129procedure TLinksPage.DataModuleProduce(HandlerData: THTTPHandlerData);
     30var
     31  ModuleUser: TModuleUser;
    3232begin
    3333  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
     34    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3435    if Request.Path.Count > 1 then begin
    3536      PageNotFound;

  • trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

    r146 r149  
    3939    Raw: Boolean;
    4040    constructor Create(Owner: TComponent); override;
     41    destructor Destroy; override;
    4142    procedure Start; override;
    4243    procedure Stop; override;
    … …  
    6364  Dependencies.Add('User');
    6465  Dependencies.Add('Base');
     66
     67  // Pages
     68  InternetPage := TInternetPage.Create(nil);
     69  HostingPage := THostingPage.Create(nil);
     70  HistoryPage := THistoryPage.Create(nil);
     71  DocumentsPage := TDocumentsPage.Create(nil);
     72  VoIPPage := TVoIPPage.Create(nil);
     73  LinksPage := TLinksPage.Create(nil);
     74  ContactPage := TContactPage.Create(nil);
     75  ServerInfoPage := TServerInfoPage.Create(nil);
     76  WebCamPage := TWebCamPage.Create(nil);
     77  PlansPage := TPlansPage.Create(nil);
     78  NetworkPage := TNetworkPage.Create(nil);
     79  ProjectsPage := TProjectsPage.Create(nil);
     80  AboutPage := TAboutPage.Create(nil);
     81  IPTVPage := TIPTVPage.Create(nil);
     82  RobotsPage := TRobotsPage.Create(nil);
     83end;
     84
     85destructor TModuleZdechovNET.Destroy;
     86begin
     87  FreeAndNil(IPTVPage);
     88  FreeAndNil(AboutPage);
     89  FreeAndNil(InternetPage);
     90  FreeAndNil(HostingPage);
     91  FreeAndNil(HistoryPage);
     92  FreeAndNil(DocumentsPage);
     93  FreeAndNil(VoIPPage);
     94  FreeAndNil(LinksPage);
     95  FreeAndNil(ContactPage);
     96  FreeAndNil(ServerInfoPage);
     97  FreeAndNil(WebCamPage);
     98  FreeAndNil(PlansPage);
     99  FreeAndNil(NetworkPage);
     100  FreeAndNil(ProjectsPage);
     101  FreeAndNil(RobotsPage);
     102  inherited;
    65103end;
    66104
    … …  
    73111  with ModuleBase, Pages do begin
    74112    //OnGeneratePage := OnGeneratePage;
    75     InternetPage := TInternetPage.Create(nil);
    76     InternetPage.ModuleUser := ModuleUser;
     113
    77114    RegisterPage(InternetPage, 'internet');
    78     HostingPage := THostingPage.Create(nil);
    79     HostingPage.ModuleUser := ModuleUser;
    80115    RegisterPage(HostingPage, 'hosting');
    81     HistoryPage := THistoryPage.Create(nil);
    82     HistoryPage.ModuleUser := ModuleUser;
    83116    RegisterPage(HistoryPage, 'historie');
    84     DocumentsPage := TDocumentsPage.Create(nil);
    85     DocumentsPage.ModuleUser := ModuleUser;
    86117    RegisterPage(DocumentsPage, 'dokumenty');
    87     VoIPPage := TVoIPPage.Create(nil);
    88     VoIPPage.ModuleUser := ModuleUser;
    89118    RegisterPage(VoIPPage, 'voip');
    90     LinksPage := TLinksPage.Create(nil);
    91     LinksPage.ModuleUser := ModuleUser;
    92119    RegisterPage(LinksPage, 'odkazy');
    93     ContactPage := TContactPage.Create(nil);
    94     ContactPage.ModuleUser := ModuleUser;
    95120    RegisterPage(ContactPage, 'kontakt');
    96     ServerInfoPage := TServerInfoPage.Create(nil);
    97     ServerInfoPage.ModuleUser := ModuleUser;
     121    RegisterPage(WebCamPage, 'kamery');
     122    RegisterPage(PlansPage, 'plany');
     123    RegisterPage(NetworkPage, 'sit');
     124    RegisterPage(ProjectsPage, 'projekty');
     125    RegisterPage(AboutPage, '');
     126    RegisterPage(IPTVPage, 'televize');
     127    RegisterPage(RobotsPage, 'robots.txt');
     128    {$IFDEF DEBUG}
    98129    RegisterPage(ServerInfoPage, 'serverinfo');
    99     WebCamPage := TWebCamPage.Create(nil);
    100     WebCamPage.ModuleUser := ModuleUser;
    101     RegisterPage(WebCamPage, 'kamery');
    102     PlansPage := TPlansPage.Create(nil);
    103     PlansPage.ModuleUser := ModuleUser;
    104     RegisterPage(PlansPage, 'plany');
    105     NetworkPage := TNetworkPage.Create(nil);
    106     NetworkPage.ModuleUser := ModuleUser;
    107     RegisterPage(NetworkPage, 'sit');
    108     ProjectsPage := TProjectsPage.Create(nil);
    109     ProjectsPage.ModuleUser := ModuleUser;
    110     RegisterPage(ProjectsPage, 'projekty');
    111     AboutPage := TAboutPage.Create(nil);
    112     AboutPage.ModuleUser := ModuleUser;
    113     RegisterPage(AboutPage, '');
    114     IPTVPage := TIPTVPage.Create(nil);
    115     IPTVPage.ModuleUser := ModuleUser;
    116     RegisterPage(IPTVPage, 'televize');
    117     RobotsPage := TRobotsPage.Create(nil);
    118     RobotsPage.ModuleUser := ModuleUser;
    119     RegisterPage(RobotsPage, 'robots.txt');
     130    {$ENDIF}
    120131  end;
    121132  AfterStart;
    … …  
    127138  with ModuleBase, Pages do begin
    128139    UnregisterPage(IPTVPage);
    129     FreeAndNil(IPTVPage);
    130140    UnregisterPage(AboutPage);
    131     FreeAndNil(AboutPage);
    132141    UnregisterPage(InternetPage);
    133     FreeAndNil(InternetPage);
    134142    UnregisterPage(HostingPage);
    135     FreeAndNil(HostingPage);
    136143    UnregisterPage(HistoryPage);
    137     FreeAndNil(HistoryPage);
    138144    UnregisterPage(DocumentsPage);
    139     FreeAndNil(DocumentsPage);
    140145    UnregisterPage(VoIPPage);
    141     FreeAndNil(VoIPPage);
    142146    UnregisterPage(LinksPage);
    143     FreeAndNil(LinksPage);
    144147    UnregisterPage(ContactPage);
    145     FreeAndNil(ContactPage);
     148    UnregisterPage(WebCamPage);
     149    UnregisterPage(PlansPage);
     150    UnregisterPage(NetworkPage);
     151    UnregisterPage(ProjectsPage);
     152    UnregisterPage(RobotsPage);
     153    {$IFDEF DEBUG}
    146154    UnregisterPage(ServerInfoPage);
    147     FreeAndNil(ServerInfoPage);
    148     UnregisterPage(WebCamPage);
    149     FreeAndNil(WebCamPage);
    150     UnregisterPage(PlansPage);
    151     FreeAndNil(PlansPage);
    152     UnregisterPage(NetworkPage);
    153     FreeAndNil(NetworkPage);
    154     UnregisterPage(ProjectsPage);
    155     FreeAndNil(ProjectsPage);
    156     UnregisterPage(RobotsPage);
    157     FreeAndNil(RobotsPage);
     155    {$ENDIF}
    158156  end;
    159157  ModuleBase := nil;

  • trunk/Modules/ZdechovNET/NetworkPage.pas

    r146 r149  
    1212  TNetworkPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3230var
    3331  TextBlock: THtmlString;
     32  ModuleUser: TModuleUser;
    3433begin
    3534  with TWebSession(HandlerData) do begin
     35    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3636    if Request.Path.Count > 1 then begin
    3737      PageNotFound;

  • trunk/Modules/ZdechovNET/PlansPage.pas

    r146 r149  
    1313  TPlansPage = class(TWebPage)
    1414    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    15   public
    16     ModuleUser: TModuleUser;
    17   end;
     15  end;
    1816
    1917var
    … …  
    3432  DbRows: TDbRows;
    3533  I: Integer;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/ProjectsPage.pas

    r146 r149  
    1313  TProjectsPage = class(TWebPage)
    1414    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    15   public
    16     ModuleUser: TModuleUser;
    1715  end;
    1816
    … …  
    3432  DbRows: TDbRows;
    3533  I: Integer;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/RobotsPage.pas

    r146 r149  
    1212  TRobotsPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    1614  end;
    1715
    … …  
    3432  DbRows: TDbRows;
    3533  I: Integer;
     34  ModuleUser: TModuleUser;
    3635begin
    3736  with TWebSession(HandlerData) do begin
     37    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3838    if Request.Path.Count > 1 then begin
    3939      PageNotFound;

  • trunk/Modules/ZdechovNET/VoIPPage.pas

    r146 r149  
    1212  TVoIPPage = class(TWebPage)
    1313    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    14   public
    15     ModuleUser: TModuleUser;
    16   end;
     14  end;
    1715
    1816var
    … …  
    3028
    3129procedure TVoIPPage.DataModuleProduce(HandlerData: THTTPHandlerData);
     30var
     31  ModuleUser: TModuleUser;
    3232begin
    3333  with TWebSession(HandlerData) do begin
     34    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    3435    if Request.Path.Count > 1 then begin
    3536      PageNotFound;

  • trunk/Modules/ZdechovNET/WebCamPage.pas

    r146 r149  
    1919    function GetSingle(HandlerData: THTTPHandlerData; Id: Integer): string;
    2020    function GetVideoArchive(Id: string): string;
    21   public
    22     ModuleUser: TModuleUser;
    23   end;
     21  end;
    2422
    2523var
    … …  
    4644  NotFound: Boolean;
    4745  WidthValue: string;
     46  ModuleUser: TModuleUser;
    4847begin
    4948  with TWebSession(HandlerData) do begin
     49    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    5050    ModuleUser.LoadUserInfo;
    5151    with HtmlDocument.Body, SubItems.AddString do begin
Note: See TracChangeset for help on using the changeset viewer.