Ignore:
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ášť.
Location:
trunk/Modules/ZdechovNET
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/ZdechovNET/UAboutPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3737begin
    3838  with TWebSession(HandlerData) do begin
    39     LoadUserInfo;
     39    ModuleUser.LoadUserInfo;
    4040    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4141    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +

  • trunk/Modules/ZdechovNET/UContactPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3333begin
    3434  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    35     LoadUserInfo;
     35    ModuleUser.LoadUserInfo;
    3636    Text := '<strong>Kontaktní informace</strong><br/>' +
    3737    'Provozovatel: <strong>Ing. Jiří Hajda</strong><br/>' +

  • trunk/Modules/ZdechovNET/UDocumentsPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3535begin
    3636  with TWebSession(HandlerData) do begin
    37     LoadUserInfo;
     37    ModuleUser.LoadUserInfo;
    3838    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    3939      Text := '<strong>O obci:</strong><br/>' +

  • trunk/Modules/ZdechovNET/UHistoryPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,
     9  UModuleUser;
    910
    1011type
    … …  
    1718    { private declarations }
    1819  public
    19     { public declarations }
     20    ModuleUser: TModuleUser;
    2021  end;
    2122
    … …  
    3839begin
    3940  with TWebSession(HandlerData) do begin
    40     LoadUserInfo;
     41    ModuleUser.LoadUserInfo;
    4142    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4243      Text := '<table>';

  • trunk/Modules/ZdechovNET/UHostingPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, USqlDatabase, UHtmlClasses,
     9  UModuleUser;
    910
    1011type
    … …  
    1718    { private declarations }
    1819  public
    19     { public declarations }
     20    ModuleUser: TModuleUser;
    2021  end;
    2122
    … …  
    3940begin
    4041  with TWebSession(HandlerData) do begin
    41     LoadUserInfo;
     42    ModuleUser.LoadUserInfo;
    4243    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4344      Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +

  • trunk/Modules/ZdechovNET/UInternetPage.pas

    r102 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3535begin
    3636  with TWebSession(HandlerData) do begin
    37     LoadUserInfo;
     37    ModuleUser.LoadUserInfo;
    3838    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    3939      Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +

  • trunk/Modules/ZdechovNET/ULinksPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3535begin
    3636  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    37     LoadUserInfo;
     37    ModuleUser.LoadUserInfo;
    3838    Text := '<strong>Odkazy související s obcí:</strong><br/>' +
    3939

  • trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

    r104 r105  
    77uses
    88  Classes, SysUtils, UModularSystem, SpecializedDictionary, UWebPage,
    9   UWebSession, DateUtils;
     9  UWebSession, DateUtils, UModuleBase, UModuleUser,
     10  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
     11  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
     12  UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
    1013
    1114type
    … …  
    1518  TModuleZdechovNET = class(TModule)
    1619  private
     20    InternetPage: TInternetPage;
     21    HostingPage: THostingPage;
     22    HistoryPage: THistoryPage;
     23    DocumentsPage: TDocumentsPage;
     24    VoIPPage: TVoIPPage;
     25    LinksPage: TLinksPage;
     26    ContactPage: TContactPage;
     27    ServerInfoPage: TServerInfoPage;
     28    WebCamPage: TWebCamPage;
     29    PlansPage: TPlansPage;
     30    NetworkPage: TNetworkPage;
     31    ProjectsPage: TProjectsPage;
     32    AboutPage: TAboutPage;
    1733    procedure Footer(Session: TWebSession);
    1834    procedure GeneratePage(ASession: TWebSession; Page: TWebPage);
    1935    procedure TopMenu(Session: TWebSession);
    2036  public
     37    ModuleBase: TModuleBase;
     38    ModuleUser: TModuleUser;
    2139    constructor Create(Owner: TComponent); override;
    2240    destructor Destroy; override;
    … …  
    3250
    3351uses
    34   UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils,
    35   UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
    36   ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUser,
    37   UNetworkPage, UAboutPage, UContactPage, UProjectsPage;
     52  UCore, USqlDatabase, UXmlClasses, UHtmlClasses, UUtils;
    3853
    3954{ TModuleZdechovNET }
    … …  
    4863  Author := 'Chronosoft';
    4964  Dependencies.Add('User');
     65  Dependencies.Add('Base');
    5066end;
    5167
    … …  
    5773procedure TModuleZdechovNET.Start;
    5874begin
    59   with Core.Pages do begin
    60     Core.GeneratePage := GeneratePage;
    61     RegisterPage(TInternetPage, InternetPage, 'internet');
    62     RegisterPage(THostingPage, HostingPage, 'hosting');
    63     RegisterPage(THistoryPage, HistoryPage, 'historie');
    64     RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
    65     RegisterPage(TVoIPPage, VoIPPage, 'voip');
    66     RegisterPage(TLinksPage, LinksPage, 'odkazy');
    67     RegisterPage(TContactPage, ContactPage, 'kontakt');
    68     RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
    69     RegisterPage(TWebCamPage, WebCamPage, 'kamery');
    70     RegisterPage(TPlansPage, PlansPage, 'plany');
    71     RegisterPage(TNetworkPage, NetworkPage, 'sit');
    72     RegisterPage(TProjectsPage, ProjectsPage, 'projekty');
    73     RegisterPage(TAboutPage, AboutPage, '');
     75  ModuleBase := TModuleBase(Manager.FindModuleByName('Base'));
     76  ModuleUser := TModuleUser(Manager.FindModuleByName('User'));
     77  with ModuleBase, Pages do begin
     78    //GeneratePage := GeneratePage;
     79    InternetPage := TInternetPage.Create(nil);
     80    RegisterPage(InternetPage, 'internet');
     81    HostingPage := THostingPage.Create(nil);
     82    RegisterPage(HostingPage, 'hosting');
     83    HistoryPage := THistoryPage.Create(nil);
     84    RegisterPage(HistoryPage, 'historie');
     85    DocumentsPage := TDocumentsPage.Create(nil);
     86    RegisterPage(DocumentsPage, 'dokumenty');
     87    VoIPPage := TVoIPPage.Create(nil);
     88    RegisterPage(VoIPPage, 'voip');
     89    LinksPage := TLinksPage.Create(nil);
     90    RegisterPage(LinksPage, 'odkazy');
     91    ContactPage := TContactPage.Create(nil);
     92    RegisterPage(ContactPage, 'kontakt');
     93    ServerInfoPage := TServerInfoPage.Create(nil);
     94    RegisterPage(ServerInfoPage, 'serverinfo');
     95    WebCamPage := TWebCamPage.Create(nil);
     96    RegisterPage(WebCamPage, 'kamery');
     97    PlansPage := TPlansPage.Create(nil);
     98    RegisterPage(PlansPage, 'plany');
     99    NetworkPage := TNetworkPage.Create(nil);
     100    RegisterPage(NetworkPage, 'sit');
     101    ProjectsPage := TProjectsPage.Create(nil);
     102    RegisterPage(ProjectsPage, 'projekty');
     103    AboutPage := TAboutPage.Create(nil);
     104    RegisterPage(AboutPage, '');
    74105  end;
    75106  inherited;
    … …  
    79110begin
    80111  inherited Stop;
    81   with Core.Pages do begin
    82     UnregisterPage('internet');
    83     UnregisterPage('hosting');
    84     UnregisterPage('historie');
    85     UnregisterPage('dokumenty');
    86     UnregisterPage('voip');
    87     UnregisterPage('odkazy');
    88     UnregisterPage('kontakt');
    89     UnregisterPage('serverinfo');
    90     UnregisterPage('kamery');
    91     UnregisterPage('plany');
    92     UnregisterPage('sit');
    93     UnregisterPage('projekty');
    94     UnregisterPage('');
    95   end;
     112  with ModuleBase, Pages do begin
     113    UnregisterPage(AboutPage);
     114    FreeAndNil(AboutPage);
     115    UnregisterPage(InternetPage);
     116    FreeAndNil(InternetPage);
     117    UnregisterPage(HostingPage);
     118    FreeAndNil(HostingPage);
     119    UnregisterPage(HistoryPage);
     120    FreeAndNil(HistoryPage);
     121    UnregisterPage(DocumentsPage);
     122    FreeAndNil(DocumentsPage);
     123    UnregisterPage(VoIPPage);
     124    FreeAndNil(VoIPPage);
     125    UnregisterPage(LinksPage);
     126    FreeAndNil(LinksPage);
     127    UnregisterPage(ContactPage);
     128    FreeAndNil(ContactPage);
     129    UnregisterPage(ServerInfoPage);
     130    FreeAndNil(ServerInfoPage);
     131    UnregisterPage(WebCamPage);
     132    FreeAndNil(WebCamPage);
     133    UnregisterPage(PlansPage);
     134    FreeAndNil(PlansPage);
     135    UnregisterPage(NetworkPage);
     136    FreeAndNil(NetworkPage);
     137    UnregisterPage(ProjectsPage);
     138    FreeAndNil(ProjectsPage);
     139  end;
     140  ModuleBase := nil;
     141  ModuleUser := nil;
    96142end;
    97143
    … …  
    179225begin
    180226  inherited Uninstall;
    181   Core.GeneratePage := nil;
     227  ModuleBase.GeneratePage := nil;
    182228  try
    183229    DbRows := TDbRows.Create;
    … …  
    257303      '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
    258304      '</ul><ul class="MenuItem2">'; //<li>&nbsp;</li>';
    259     if Assigned(TCore(MainModule).Pages.FindByName('uzivatel')) then begin
    260       if UserOnline.User = UnknownUser then begin
     305    if Assigned(ModuleBase.Pages.FindByName('uzivatel')) then begin
     306      if ModuleUser.UserOnline.User = UnknownUser then begin
    261307        Text := Text + '</ul>' +
    262308          '<ul class="MenuItem2">' +
    … …  
    268314        Text := Text + '</ul>' +
    269315          '<ul class="MenuItem2">' +
    270           '<li>' + User.FullName + '</li>' +
     316          '<li>' + ModuleUser.User.FullName + '</li>' +
    271317          '<li>' + MakeLink('Odhlášení', NavigationLink('/uzivatel/odhlaseni/')) + '</li>' +
    272318          '<li>' + MakeLink('Profil', NavigationLink('/uzivatel/profil/')) + '</li>';

  • trunk/Modules/ZdechovNET/UNetworkPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3737begin
    3838  with TWebSession(HandlerData) do begin
    39     LoadUserInfo;
     39    ModuleUser.LoadUserInfo;
    4040    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4141      Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +

  • trunk/Modules/ZdechovNET/UPlansPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase;
     8  Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,
     9  UModuleUser;
    910
    1011type
    … …  
    1718    { private declarations }
    1819  public
    19     { public declarations }
     20    ModuleUser: TModuleUser;
    2021  end;
    2122
    … …  
    3839begin
    3940  with TWebSession(HandlerData) do begin
    40     LoadUserInfo;
     41    ModuleUser.LoadUserInfo;
    4142    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4243      Text := '<table>';

  • trunk/Modules/ZdechovNET/UProjectsPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase;
     8  Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, USqlDatabase,
     9  UModuleUser;
    910
    1011type
    … …  
    1718    { private declarations }
    1819  public
    19     { public declarations }
     20    ModuleUser: TModuleUser;
    2021  end;
    2122
    … …  
    3839begin
    3940  with TWebSession(HandlerData) do begin
    40     LoadUserInfo;
     41    ModuleUser.LoadUserInfo;
    4142    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    4243      try

  • trunk/Modules/ZdechovNET/UVoIPPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer;
     8  Classes, SysUtils, FileUtil, UWebPage, UHtmlClasses, UHTTPServer, UModuleUser;
    99
    1010type
    … …  
    1717    { private declarations }
    1818  public
    19     { public declarations }
     19    ModuleUser: TModuleUser;
    2020  end;
    2121
    … …  
    3535begin
    3636  with TWebSession(HandlerData) do begin
    37     LoadUserInfo;
     37    ModuleUser.LoadUserInfo;
    3838    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    3939      Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.' +

  • trunk/Modules/ZdechovNET/UWebCamPage.pas

    r103 r105  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UHtmlClasses, USqlDatabase,
     9  UModuleUser;
    910
    1011type
    … …  
    1718    { private declarations }
    1819  public
    19     { public declarations }
     20    ModuleUser: TModuleUser;
    2021  end;
    2122
    … …  
    4647begin
    4748  with TWebSession(HandlerData) do begin
    48     LoadUserInfo;
     49    ModuleUser.LoadUserInfo;
    4950    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    5051      Text := '';
Note: See TracChangeset for help on using the changeset viewer.