Ignore:
Timestamp:
May 1, 2011, 12:20:19 AM (14 years ago)
Author:
george
Message:
  • Upraveno: Stránky přepracovány z metod na komponenty.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UMainPage.pas

    r50 r52  
    99  UHTTPServer, UWebObjects;
    1010
    11 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
    12 procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
    13 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
    14 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
    15 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
    16 procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
    17 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
    18 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
    19 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
    20 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
    21 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
    22 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
    23 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
     11implementation
    2412
    2513
    26 implementation
    2714
    28 procedure Links(App: TMainModule; HandlerData: THTTPHandlerData);
    29 begin
    30   App.HtmlDocument.Title := 'Odkazy';
    31 
    32   with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    33     Text := '<strong>Odkazy související s obcí:</strong><br/>' +
    34 
    35     '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
    36     '<a href="http://zdechovskagrapa.sweb.cz/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +
    37     '<a href="http://www.snbzdechov.com/zavod.htm">Zděchovská třicítka</a> - tradiční běžkařský závod<br/>' +
    38     '<a href="http://www.snbzdechov.com/">Snowpark Zděchov</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
    39     '<a href="http://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +
    40     '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
    41     '<a href="http://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
    42     '<br/>' +
    43 
    44     '<strong>Odkazy související s okolím:</strong><br/>' +
    45     '<a href="http://www.valassko-hornovsacko.cz/">Valašsko - Horní Vsacko</a> - informační stránky oblasti<br/>' +
    46     '<br/>' +
    47 
    48     '<a HREF="http://www.toplist.cz/cgi-bin/stat.asp&amp;menu=4096&amp;menu=2048&amp;menu=64&amp;menu=1024&amp;menu=512&amp;menu=32&amp;menu=256&amp;menu=4&amp;menu=128&amp;menu=8&amp;menu=16&amp;menu=8192&amp;' +
    49     'menu=2&amp;menu=16384&amp;menu=1&amp;kdy=dnes&amp;n=90148"><script language="JavaSc&amp;ript" type="text/javascript">' +
    50     '<!--' +
    51     'document.write (\''<img align="right" src="http://toplist.cz/count.asp?id=90148&amp;logo=mc&amp;http=\''+escape(document.referrer)+\''&amp;wi=\''+escape(window.screen.width)+\''&he=\''+escape(window.screen.height)' +
    52     '+\''&amp;cd=\''+escape(window.screen.colorDepth)+\''&amp;t=\''+escape(document.title)+\''" width=88 height=60 border=0 alt="TOPlist"/>'';' +
    53     '//--></script></a>' +
    54 
    55     '<strong>Komunitní sítě v okolí:</strong><br/>' +
    56     '<a href="http://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
    57     //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +
    58     '<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
    59     '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
    60     '<br/>';
    61   end;
    62 end;
    63 
    64 procedure History(App: TMainModule; HandlerData: THTTPHandlerData);
    65 var
    66   DbRows: TDbRows;
    67   I: Integer;
    68 begin
    69   with App do begin
    70     HtmlDocument.Title := 'Historie sítě';
    71 
    72     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    73       Text := '<table>';
    74       try
    75         DbRows := TDbRows.Create;
    76         Database.Query(DbRows, 'SELECT * FROM History ORDER BY Date DESC');
    77         for I := 0 to DbRows.Count - 1 do begin
    78           Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
    79             HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
    80             DbRows[I].Values['Text'] + '</td></tr>';
    81         end;
    82       finally
    83         DbRows.Free;
    84       end;
    85       Text := Text + '</table>';
    86     end;
    87   end;
    88 end;
    89 
    90 procedure Plans(App: TMainModule; HandlerData: THTTPHandlerData);
    91 var
    92   DbRows: TDbRows;
    93   I: Integer;
    94 begin
    95   with App do begin
    96     HtmlDocument.Title := 'Plánované projekty';
    97 
    98     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    99       Text := '<table>';
    100       try
    101         DbRows := TDbRows.Create;
    102         Text := '<br/><strong>Plánované úkoly:</strong><br />' +
    103           '<div><ul>';
    104         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NULL ORDER BY `TimeCreate`');
    105         for I := 0 to DbRows.Count - 1 do begin
    106           Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
    107         end;
    108         Text := Text + '</ul></div><br/>';
    109 
    110         Text := Text + '<br/><strong>Hotové úkoly:</strong><br />' +
    111           '<div><ul>';
    112         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE `TimeFinished` IS NOT NULL ORDER BY `TimeCreate`');
    113         for I := 0 to DbRows.Count - 1 do begin
    114           Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +
    115             '<i style="padding-left: 30px;">' + DbRows[I].Values['Conclusion'] + '</i></li>';
    116         end;
    117         Text := Text + '</ul></div><br/>';
    118 
    119       finally
    120         DbRows.Free;
    121       end;
    122       Text := Text + '</table>';
    123     end;
    124   end;
    125 end;
    126 
    127 procedure Internet(App: TMainModule; HandlerData: THTTPHandlerData);
    128 begin
    129   with App do begin
    130     HtmlDocument.Title := 'Internet';
    131 
    132     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    133       Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +
    134       '<strong>Nabídka tarifů:</strong><br/>' +
    135 
    136       '<table class="WideTable">' +
    137       '<tr><th>Označení</th><th>Rychlost</th><th>Agregace</th><th>Cena [Kč/měsíc]</th></tr>' +
    138       '<tr><td>Zdarma</td><td align="center">128 kbit/s</td><td align="center"></td><td align="center">0</td></tr>' +
    139       '<tr><td>Pomalejší</td><td align="center">2 Mbit/s</td><td align="center">1:20</td><td align="center">190</td></tr>' +
    140       '<tr><td>Pomalý</td><td align="center">4 Mbit/s</td><td align="center">1:20</td><td align="center">260</td></tr>' +
    141       '<tr><td>Střední</td><td align="center">8 Mbit/s</td><td align="center">1:20</td><td align="center">360</td></tr>' +
    142       '<tr><td>Rychlý</td><td align="center">16 Mbit/s</td><td align="center">1:20</td><td align="center">520</td></tr>' +
    143       '<tr><td>Rychlejší</td><td align="center">32 Mbit/s</td><td align="center">1:20</td><td align="center">750</td></tr>' +
    144       '</table>' +
    145       '<br/>' +
    146       'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +
    147       '<br/>' +
    148       '<i>Aktualizováno: 1.7.2010</i>';
    149     end;
    150   end;
    151 end;
    152 
    153 procedure WebCam(App: TMainModule; HandlerData: THTTPHandlerData);
    154 const
    155   WebCamImage = 'images/webcam/webcam.jpg';
    156   RefreshInterval = 1;
    157 begin
    158   with App do begin
    159     HtmlDocument.Title := 'Webové kamery';
    160 
    161     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    162       Text := '<table style="width: 100%"><tr><td style="width: 20%">' +
    163         '<strong>Kamery v okolí:</strong><br />' +
    164         '<a href="http://www.mestovsetin.cz/vismo/dokumenty2.asp?id_org=18676&id=480245">Vsetínské kamery</a><br />' +
    165         '<a href="http://www.huslenky.cz/?page=kamery&I=2">Kamery v Huslenkách</a><br/>' +
    166         '<a href="http://kamery.hovnet.cz/">Kamery v Hovnetu</a><br/>' +
    167         '</td><td style="width: 80%">';
    168 
    169       if FileExists(WebCamImage) then begin
    170         Text := Text + '<script language="JavaScript">' + #13#10 +
    171         '  var ImageURL = "' + NavigationLink('/' + WebCamImage) + '";' + #13#10 +
    172         '' + #13#10 +
    173         '// Force an immediate image load' + #13#10 +
    174         'var theTimer = setTimeout("reloadImage()", 1);' + #13#10 +
    175         '' + #13#10 +
    176         'function reloadImage()' + #13#10 +
    177         '{' + #13#10 +
    178         '  theDate = new Date();' + #13#10 +
    179         '  var url = ImageURL;' + #13#10 +
    180         '  url += "?dummy=";' + #13#10 +
    181         '  url += theDate.getTime().toString(10);' + #13#10 +
    182         '  // The above dummy cgi-parameter enforce a bypass of the browser image cache.' + #13#10 +
    183         '  // Here we actually load the image' + #13#10 +
    184         '  document.theImage.src = url;' + #13#10 +
    185         '' + #13#10 +
    186         '  // Reload the image every defined period' + #13#10 +
    187         '  theTimer = setTimeout("reloadImage()", ' + IntToStr(RefreshInterval * 1000) + ');' + #13#10 +
    188         '}' + #13#10 +
    189         '</script>' + #13#10 +
    190 
    191         '<br /><div align="center"><img name="theImage" src="" idth="640" height="480" alt="Webcam image"><br>Poslední aktualizace: ' +
    192           DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + '<br>Obnovování po ' + IntToStr(RefreshInterval) + ' sekundách</div><br />';
    193       end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';
    194       Text := Text + '</td></tr></table>';
    195     end;
    196   end;
    197 end;
    198 
    199 procedure VoIP(App: TMainModule; HandlerData: THTTPHandlerData);
    200 begin
    201   with App do begin
    202     HtmlDocument.Title := 'VoIP';
    203 
    204     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    205       Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
    206       '<br/>' +
    207       'Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +
    208     '<ul><li>Zřízení zdarma</li>' +
    209     '<li>Měsíční paušál: 0 Kč</li>' +
    210     '<li>Tarifikace: 1+1 (sekundová)</li>' +
    211     '<li>V sítí Mikrotech: 0 Kč/minutu</li>' +
    212     '<li>Volání do pevných sítí: 0,5 Kč/minutu</li>' +
    213     '<li>Volání do mobilních sítí: 1,95 Kč/minutu</li>' +
    214     '<li>Přenesení vašeho čísla: 1200 Kč</li>' +
    215     '</ul><br/>' +
    216 
    217     '<strong>10 výhod volání s VoIP Mikrotech</strong>' +
    218     '<ol><li>Začnete ihned šetřit - volání v síti zdarma</li>' +
    219     '<li>Registrace, zřízení VoIP zdarma</li>' +
    220     '<li>0,- Kč měsíční paušál, pouze 1 Kč pronájem čísla</li>' +
    221     '<li>Žádný závazek, kredit bez časového omezení</li>' +
    222     '<li>Nejnižší ceny hovorů na trhu</li>' +
    223     '<li>Online výpis hovorů zdarma</li>' +
    224     '<li>Běžné tel. číslo, možnost přenosu stávajícího čísla</li>' +
    225     '<li>Za příchozí hovory Vám zaplatíme</li>' +
    226     '<li>Bez počátečních investic - softwarový telefon</li>' +
    227     '<li>Pro telefonování nepotřebujete počítač - hardwarový VoIP telefon</li>' +
    228     '</ol>';
    229     end;
    230   end;
    231 end;
    232 
    233 procedure Hosting(App: TMainModule; HandlerData: THTTPHandlerData);
    234 var
    235   I: Integer;
    236   DbRows: TDbRows;
    237 begin
    238   with App do begin
    239     HtmlDocument.Title := 'Hosting';
    240 
    241     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    242       Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
    243       '<strong>Standardní varianty:</strong><br/>' +
    244       '<table class="WideTable">' +
    245       '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';
    246       try
    247         DbRows := TDbRows.Create;
    248         Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');
    249         for I := 0 to DbRows.Count - 1 do
    250           Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
    251             DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
    252             '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
    253             DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';
    254       finally
    255         DbRows.Free;
    256       end;
    257       Text := Text + '</table>' +
    258       '<br/>' +
    259       'Prvních 7 dní zdarma, denní zálohování disků, ceny včetně DPH<br/>' +
    260       'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="http://openvz.org/">OpenVZ</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +
    261       '<br/>' +
    262       '<i>Aktualizováno: 3.4.2010</i><br/><br/>';
    263 
    264       Text := Text + '<p>Hosting je využíván především pro provoz herních serverů MMORPG her jako např. World of Warcraft (WoW), Lineage II, Aion, aj.</p>';
    265       Text := Text + '<p>Instalovat lze mnoho různých linuxových distribucí. Seznam některých OpenVZ šablon <a href="http://download.openvz.org/template/precreated/">zde</a> nebo '
    266       + '<a href="http://download.openvz.org/contrib/template/precreated/">zde</a></p>';
    267 
    268       Text := Text + '<strong>Projekty využívající VPS hosting</strong><br/><ul>';
    269       try
    270         DbRows := TDbRows.Create;
    271         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
    272         for I := 0 to DbRows.Count - 1 do
    273           if DbRows[I].Values['Homepage'] <> '' then
    274           Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
    275             DbRows[I].Values['Name'] + '</a></li>'
    276             else Text := Text + '<li>' + DbRows[I].Values['Name'] + '</li>';
    277         Text := Text + '</ul>';
    278       finally
    279         DbRows.Free;
    280       end;
    281 
    282       Text := Text + '<br/><strong>Projekty využívající web hosting</strong><br/><ul>';
    283       try
    284         DbRows := TDbRows.Create;
    285         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');
    286         for I := 0 to DbRows.Count - 1 do
    287           Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
    288             DbRows[I].Values['Name'] + '</a></li>';
    289         Text := Text + '</ul>';
    290       finally
    291         DbRows.Free;
    292       end;
    293     end;
    294   end;
    295 end;
    296 
    297 procedure Network(App: TMainModule; HandlerData: THTTPHandlerData);
    298 var
    299   TextBlock: THtmlString;
    300 begin
    301   with App do begin
    302     HtmlDocument.Title := 'Síť';
    303 
    304     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    305       Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
    306         MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
    307         MakeLink('Plánované projekty', NavigationLink('/plany/')) + '<br/>';
    308     end;
    309   end;
    310 end;
    311 
    312 procedure About(App: TMainModule; HandlerData: THTTPHandlerData);
    313 var
    314   TextBlock: THtmlString;
    315 begin
    316   with App do begin
    317     HtmlDocument.Title := 'Úvod';
    318 
    319     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    320     Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
    321       '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
    322       '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="170" height="334" alt="Pokrytí obce signálem"/></a>' +
    323       '<strong>Informace o obci:</strong><br/>' +
    324       'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +
    325       '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/>' +
    326       '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/>' +
    327       '<br/>' +
    328       '<strong>Informace o síti:</strong><br/>' +
    329       '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. ' +
    330       'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' +
    331       'Připojení je negarantované, avšak prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' +
    332       '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/>' +
    333       '<br/>' +
    334       '<i>Důvody ke vzniku sítě:</i><br/>' +
    335       '<ul>' +
    336       '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' +
    337       '<li>Dosažení rychlejšího a levnějšího nepřetržitého sdíleného internetového připojení bez omezení dat</li>' +
    338       '<li>Možnost šíření aktuálních informací z dění v obce</li>' +
    339       '<li>Sdílení společných dat</li>' +
    340       '<li>Společné hraní síťových her</li>' +
    341       '<li>Zprovoznění užitečných služeb (chat, aktuality, bazar, menu v jídelně, web kamery, aj.)</li>' +
    342       '</ul><br/>';
    343 
    344     Text := Text + '<br/>' +
    345       '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' +
    346       '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" /></a>';
    347 
    348     Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
    349       'Připojených domácností v obci: 99<br/>' +
    350       'Připojených institucí: 1<br/>' +
    351       'Hosting serverů: 4<br/>' +
    352       'Celkem: 104<br/>' +
    353       '<br/>' +
    354       '<strong>Technické parametry sítě</strong><br/>' +
    355       'Internetové připojení: 40/40 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
    356       'Pokrytí obce signálem: asi 80%<br/>' +
    357       'V připojených domácnostech celkem 327 občanů ze všech 600 (55 %)<br/>' +
    358       '<br/>' +
    359       '<i>Aktualizováno: 3.7.2010</i>';
    360     end;
    361   end;
    362 end;
    363 
    364 procedure Documents(App: TMainModule; HandlerData: THTTPHandlerData);
    365 begin
    366   with App do begin
    367     HtmlDocument.Title := 'Dokumenty';
    368 
    369     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    370       Text := '<strong>O obci:</strong><br/>' +
    371 
    372       IconedLink(NavigationLink('/docs/Zdechovska_historie_a_soucasnost.pdf'), 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +
    373       '<img src="' + NavigationLink('/images/icons/pdf.gif') + '" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
    374 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf') + '">nízká (1,8 MB)</a> ' +
    375 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf') + '">střední (3,7 MB)</a> ' +
    376 '<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf') + '">vysoká (7,2 MB)</a>)' +
    377 '<br/><br/>' +
    378     '<strong>Propagace sítě v obci:</strong><br/>' +
    379 
    380       IconedLink(NavigationLink('/docs/info_na_infokanal_1.6.2006.pdf'), 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +
    381       IconedLink(NavigationLink('/docs/info_na_infokanal_4.3.2005.pdf'), 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +
    382       IconedLink(NavigationLink('/docs/info_na_infokanal_24.9.2004.pdf'), 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +
    383       IconedLink(NavigationLink('/docs/vyzva_do_infokanalu_15.8.2004.pdf'), 'Výzva do infokanálu (15.8.2004)') + '<br/>';
    384     end;
    385   end;
    386 end;
    387 
    388 procedure Contact(App: TMainModule; HandlerData: THTTPHandlerData);
    389 begin
    390   App.HtmlDocument.Title := 'Kontakt';
    391 
    392   with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    393     Text := '<strong>Kontaktní informace</strong><br/>' +
    394     'Provozovatel: Ing. Jiří Hajda<br/>' +
    395     'Adresa: Zděchov 208, 75607<br/>' +
    396     'Telefon: 737785792<br/>' +
    397     'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
    398     'Jabber: chronos@jabbim.cz<br/>' +
    399     'ICQ: <a href="http://www.icq.com/people/277158770">277158770</a><br/>' +
    400     'IČ: 75904535<br/>' +
    401     'DIČ: CZ8303255884<br/>' +
    402     'Bankovní účet: 218098370 / 0300<br/>';
    403   end;
    404 end;
    405 
    406 procedure UserControl(App: TMainModule; HandlerData: THTTPHandlerData);
    407 var
    408   PageName: string;
    409   NewForm: TQueryForm;
    410   NewGroup: TQueryFormGroup;
    411   NewItem: TQueryFormItem;
    412 begin
    413   App.HtmlDocument.Title := 'Uživatel';
    414 
    415   if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
    416     else PageName := '';
    417   with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    418     if PageName = 'prihlaseni' then begin
    419       Text := 'Login';
    420       with App.HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
    421         Title := 'Přihlášení';
    422         ClassId := 'Form';
    423         with TQueryFormGroup(Groups.AddNew(TQueryFormGroup.Create)) do begin
    424           Title := 'Základní údaje';
    425           with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
    426             Caption := 'Jméno';
    427             Hint := 'Zadejte vaše přihlašovací jméno';
    428             Required := True;
    429           end;
    430           with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
    431             Caption := 'Heslo';
    432             Hint := 'Zadejte vaše heslo';
    433             Required := True;
    434             ItemType := fitPassword;
    435           end;
    436         end;
    437       end;
    438     end else Text := '';
    439   end;
    440 end;
    441 
    442 
    443 procedure ServerInfo(App: TMainModule; HandlerData: THTTPHandlerData);
    444 begin
    445   HandlerData.Session.Values['Test'] := 'Tst';
    446   MainModule.HTTPServer.ServerInfo(HandlerData);
    447 end;
    44815
    44916end.
Note: See TracChangeset for help on using the changeset viewer.