source: trunk/Modules/ZdechovNET/AboutPage.pas

unit AboutPage;

interface

uses
  Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser;

type

  { TAboutPage }

  TAboutPage = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  AboutPage: TAboutPage;


implementation

{$R *.lfm}

uses
  Core, Utils, WebSession, SqlDatabase;

{ TAboutPage }

procedure TAboutPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  TextBlock: THtmlString;
  DbRows: TDbRows;
  I: Integer;
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData) do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    if Request.Path.Count > 1 then begin
      PageNotFound;
      Exit;
    end;

    ModuleUser.LoadUserInfo;
    with HtmlDocument.Body, SubItems.AddString do begin
      Text := '<table><tr><td style="vertical-align: top;">' +
        '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
        '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="303" height="238" alt="Pokrytí obce signálem" style="padding-left: 5pt"/></a>' +
        '<strong>Informace o síti:</strong><br/>' +
        'Sousedská počítačová síť postupně vznikla jako přirozená reakce na tehdejší situaci v informačních technologiích a jako reakce na nedostupnost vhodného internetového připojení pro domácnosti v obci. ' +
        'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' +
        'Připojení je garantované s nonstop servisem a řešením problémů obvykle do 24 hodin. Prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' +
        'Jelikož je obec odlehlá a obklopena vysokými kopci, jsou zde možnosti jiného kabelového či bezdrátového připojení značně omezené. ' +
        'Síť vedená místními aktivisty také přináší řadu nadstandardních komunitních služeb.<br/>' +
        '<br/>' +
        '<i>Výhody sítě:</i><br/>' +
        '<ul>' +
        '<li>Rychlejší a levnější nepřetržité sdílené internetové připojení bez omezení dat</li>' +
        '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' +
        '<li>Možnost šíření aktuálních informací z dění v obce</li>' +
        '<li>Sdílení společných souborů a dat</li>' +
        '<li>Společné hraní síťových her</li>' +
        '<li>Web hosting a server hosting</li>' +
        '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, meteostanice, web kamery, aj.)</li>' +
        '<li>Venkovní internet zdarma</li>' +
        '<li>Podpora místních občanů a aktivit</li>' +
        '</ul><br/>' +
        '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce" style="padding-right: 5pt"/>' +
        '<strong>Informace o obci:</strong><br/>' +
        'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +
        'Je zasazena do typicky valašské krajiny roztroušených usedlostí a jalovcových pasek. ' +
        'Stojí zde dochovalé stavby lidové architektury, klasicistní kostel Proměnění Páně a kamenný kříž z roku 1778.<br/>' +
        'Zděchov poskytuje ideální podmínky pro celeroční rekreaci. ' +
        'Najdete zde koupaliště, lyžařský vlek a motokrosovou trať. ' +
        'Prochází tudy modrá turistická značka, odsud také vede žlutá značka, která tvoří spojnici se zelenou.<br/>' +
        '<br/>';
      Text := Text + '<br/>' +
        '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' +
        '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" style="padding-left: 5pt" /></a>';

      Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
        'Připojených domácností v obci: 80<br/>' +
        '<br/>' +
        '<strong>Technické parametry sítě</strong><br/>' +
        'Internetové připojení: 250/250 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="https://www.internext.cz/">Internext 2000</a><br/>' +
        'Pokrytí obce signálem: asi 90%<br/>' +
        'V připojených domácnostech celkem 246 občanů ze všech 600 (41 %)<br/>' +
        '<br/>' +
        '<i>Aktualizováno: 15.1.2025</i>';
      Text := Text + '</td><td style="vertical-align: top;" class="News">';
      Text := Text + '<strong>Novinky:</strong><br/>';
      try
        DbRows := TDbRows.Create;
        Database.Query(DbRows, 'SELECT * FROM `News` ORDER BY `Time` DESC LIMIT 5');
        for I := 0 to DbRows.Count - 1 do begin
          Text := Text + '<div>' +
            '<strong>' + DbRows[I].Items['Title'] + '</strong> ' +
            '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Items['Time'])) + ')</strong>' +
            '<br/>' +
            DbRows[I].Items['Text'] + '</div></br>';
        end;
      finally
        DbRows.Free;
      end;
      Text := Text + '</table>';
      Text := Text + '</td></tr></table>';
    end;
    GeneratePage(Self);
  end;
end;

end.