Changeset 138 for trunk/Modules/ZdechovNET

Timestamp:

Sep 9, 2022, 8:20:25 PM (2 years ago)

Author:

chronos

Message:

• Modified: Removed TemplateGenerics package. Generics usage replaced by standard Generics.Collections.

Location:

trunk/Modules/ZdechovNET

Files:

• UAboutPage.lfm (modified) (1 diff)
• UAboutPage.pas (modified) (3 diffs)
• UContactPage.lfm (modified) (1 diff)
• UContactPage.pas (modified) (1 diff)
• UDocumentsPage.pas (modified) (1 diff)
• UHistoryPage.pas (modified) (2 diffs)
• UHostingPage.pas (modified) (4 diffs)
• UIPTVPage.pas (modified) (1 diff)
• UInternetPage.pas (modified) (1 diff)
• ULinksPage.pas (modified) (2 diffs)
• UModuleZdechovNET.pas (modified) (4 diffs)
• UNetworkPage.pas (modified) (1 diff)
• UPlansPage.pas (modified) (3 diffs)
• UProjectsPage.pas (modified) (2 diffs)
• URobotsPage.pas (modified) (1 diff)
• UVoIPPage.pas (modified) (1 diff)
• UWebCamPage.pas (modified) (6 diffs)

trunk/Modules/ZdechovNET/UAboutPage.lfm

@@ -1 +1 @@
 object AboutPage: TAboutPage
   OldCreateOrder = False
+  Raw = False
   Caption = 'Úvod'
   OnProduce = DataModuleProduce
-  Height = 206
-  HorizontalOffset = 259
-  VerticalOffset = 250
-  Width = 407
+  Height = 309
+  HorizontalOffset = 389
+  VerticalOffset = 375
+  Width = 611
+  PPI = 144
 end

trunk/Modules/ZdechovNET/UAboutPage.pas

@@ -12 +12 @@
   TAboutPage = class(TWebPage)
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
-  private
-    { private declarations }
   public
     ModuleUser: TModuleUser;
@@ -39 +37 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := '<table><tr><td style="vertical-align: top;">' +
         '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
@@ -88 +86 @@
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<div>' +
-            '<strong>' + DbRows[I].Values['Title'] + '</strong> ' +
-            '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + ')</strong>' +
+            '<strong>' + DbRows[I].Items['Title'] + '</strong> ' +
+            '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Items['Time'])) + ')</strong>' +
             '<br/>' +
-            DbRows[I].Values['Text'] + '</div></br>';
+            DbRows[I].Items['Text'] + '</div></br>';
         end;
       finally

trunk/Modules/ZdechovNET/UContactPage.lfm

@@ -1 +1 @@
 object ContactPage: TContactPage
   OldCreateOrder = False
+  Raw = False
   Caption = 'Kontakt'
   OnProduce = DataModuleProduce
-  Height = 186
-  HorizontalOffset = 295
-  VerticalOffset = 245
-  Width = 496
+  Height = 279
+  HorizontalOffset = 443
+  VerticalOffset = 368
+  Width = 744
+  PPI = 144
 end

trunk/Modules/ZdechovNET/UContactPage.pas

@@ -31 +31 @@
 procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
     ModuleUser.LoadUserInfo;
     Text := '<strong>Kontaktní informace</strong><br/>' +

trunk/Modules/ZdechovNET/UDocumentsPage.pas

@@ -35 +35 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := Text + '<strong>Úřední dokumenty:</strong><br/>' +
         IconedLink(NavigationLink('/docs/rozhrani.pdf'), 'Technická specifikace účastnických rozhraní') + ' ' +

trunk/Modules/ZdechovNET/UHistoryPage.pas

@@ -39 +39 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := '<table>';
       try
@@ -46 +46 @@
         for I := 0 to DbRows.Count - 1 do begin
           Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
-            HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
-            DbRows[I].Values['Text'] + '</td></tr>';
+            HumanDate(SQLToDateTime(DbRows[I].Items['Date'])) + '&nbsp;- </td><td>' +
+            DbRows[I].Items['Text'] + '</td></tr>';
         end;
       finally

trunk/Modules/ZdechovNET/UHostingPage.pas

@@ -39 +39 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
       '<strong>Standardní varianty:</strong><br/>' +
@@ -48 +48 @@
         Database.Query(DbRows, 'SELECT * FROM VPSHosting ORDER BY Price DESC');
         for I := 0 to DbRows.Count - 1 do
-          Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
-            DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
-            '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
-            DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';
+          Text := Text + '<tr><td>' + DbRows[I].Items['Name'] + '</td><td align="center">' +
+            DbRows[I].Items['Internet'] + '</td><td align="center">' + DbRows[I].Items['Memory'] +
+            '</td><td align="center">' + DbRows[I].Items['Space'] + '</td><td align="center">' +
+            DbRows[I].Items['CPU'] + '</td><td align="center">' + DbRows[I].Items['Price'] + '</td></tr>';
       finally
         DbRows.Free;
@@ -69 +69 @@
         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=0');
         for I := 0 to DbRows.Count - 1 do
-          if DbRows[I].Values['Homepage'] <> '' then
-          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
-            DbRows[I].Values['Name'] + '</a></li>'
-            else Text := Text + '<li>' + DbRows[I].Values['Name'] + '</li>';
+          if DbRows[I].Items['Homepage'] <> '' then
+          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
+            DbRows[I].Items['Name'] + '</a></li>'
+            else Text := Text + '<li>' + DbRows[I].Items['Name'] + '</li>';
         Text := Text + '</ul>';
       finally
@@ -83 +83 @@
         Database.Query(DbRows, 'SELECT * FROM `HostedProject` WHERE `Active`=1 AND `WebHosting`=1');
         for I := 0 to DbRows.Count - 1 do
-          Text := Text + '<li><a href="' + DbRows[I].Values['Homepage'] + '">' +
-            DbRows[I].Values['Name'] + '</a></li>';
+          Text := Text + '<li><a href="' + DbRows[I].Items['Homepage'] + '">' +
+            DbRows[I].Items['Name'] + '</a></li>';
         Text := Text + '</ul>';
       finally

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -89 +89 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Channels := TChannels.Create;
       with Channels do begin

trunk/Modules/ZdechovNET/UInternetPage.pas

@@ -35 +35 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := Text + 'V síti je možné využít také doplňkovou nabídku výhodného připojení k internetu. ' +
       'Tarify se liší v základu minimální a maximální rychlostí. U všech placených tarifů je také k dispozici bonusová sdílená rychlost z volné kapacity sítě.<br/><br/>' +

trunk/Modules/ZdechovNET/ULinksPage.pas

@@ -33 +33 @@
 procedure TLinksPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 begin
-  with TWebSession(HandlerData), HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
     ModuleUser.LoadUserInfo;
     Text := '<strong>Odkazy související s obcí:</strong><br/>' +
 
-    '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
-    '<a href="http://zdechovskagrapa.sweb.cz/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +
-    '<a href="http://skiareal.zdechov.net/">Skiareál</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
-    '<a href="http://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +
-    '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
-    '<a href="http://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
+    '<a href="https://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
+    '<a href="https://motokros.zdechov.net/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +
+    '<a href="https://skiareal.zdechov.net/">Skiareál</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
+    '<a href="https://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +
+    '<a href="https://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
+    '<a href="https://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
     '<br/>' +
 
     '<strong>Odkazy související s okolím:</strong><br/>' +
-    '<a href="http://www.valassko-hornovsacko.cz/">Valašsko - Horní Vsacko</a> - informační stránky oblasti<br/>' +
+    '<a href="https://www.valassko-hornovsacko.cz/">Valašsko - Horní Vsacko</a> - informační stránky oblasti<br/>' +
     '<br/>' +
 
@@ -57 +57 @@
 
     '<strong>Komunitní sítě v okolí:</strong><br/>' +
-    '<a href="http://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
+    '<a href="https://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
     //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +
-    '<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
+    '<a href="https://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
     '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
     '<br/>';

trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

@@ -264 +264 @@
 procedure TModuleZdechovNET.Upgrade;
 begin
-  inherited Upgrade;
+  inherited;
 end;
 
@@ -277 +277 @@
 begin
   with Session do
-  with TXmlTag(HtmlDocument.Body.SubItems.AddNew(TXmlTag.Create)) do begin
-    Name := 'ul';
-    Attributes.Values['class'] := 'Footer';
-    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
-      Name := 'li';
-      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
-        Text := TCore(MainModule).Admin;
+  with HtmlDocument.Body.SubItems.AddList do begin
+    ClassId := 'Footer';
+    with SubItems.AddString do begin
+      Text := TCore(MainModule).Admin;
+    end;
+    with SubItems.AddString do begin
+      Text := TCore(MainModule).AdminEmail;
+    end;
+    if TCore(MainModule).ShowRuntimeInfo then begin
+      with SubItems.AddString do begin
+        Text := 'Doba generování: ' +
+          FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
+      end;
+      with SubItems.AddString do begin
+        //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
       end;
     end;
-    with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
-      Name := 'li';
-      with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
-        Text := TCore(MainModule).AdminEmail;
-      end;
-    end;
-    if TCore(MainModule).ShowRuntimeInfo then begin
-      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
-        Name := 'li';
-        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
-          Text := 'Doba generování: ' +
-            FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
-        end;
-      end;
-      with TXmlTag(SubElements.AddNew(TXmlTag.Create)) do begin
-        Name := 'li';
-        with TXmlString(SubElements.AddNew(TXmlString.Create)) do begin
-          //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
-        end;
-      end;
-    end;
   end;
 end;
 
 procedure TModuleZdechovNET.TopMenu(Session: TWebSession);
-begin
-  with Session, THtmlString(HtmlDocument.Body.SubItems.InsertNew(1, THtmlString.Create)) do begin
+var
+  Output: THtmlString;
+begin
+  Output := THtmlString.Create;
+  Session.HtmlDocument.Body.SubItems.Insert(1, Output);
+  with Output do begin
     Text := '<div class="Navigation">';
     // Visitor
@@ -326 +317 @@
       '<li>' + MakeLink('Kamery', NavigationLink('/kamery/')) + '</li>' +
       '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
-      '<li><a href="http://wiki.zdechov.net/">Wiki</a></li>' +
+      '<li><a href="https://wiki.zdechov.net/">Wiki</a></li>' +
       '</ul><ul class="MenuItem2">'; //<li>&nbsp;</li>';
     if False and Assigned(ModuleBase.Pages.FindByName('uzivatel')) then begin
@@ -356 +347 @@
   with ASession do begin
     if Page.Raw then begin
-      Response.Content.WriteString(THtmlString(HtmlDocument.Body.SubItems[0]).Text);
+      Response.Content.WriteString(HtmlDocument.Body.AsXmlElement.AsString);
     end else begin
       HtmlDocument.ContentLanguage := 'cs';

trunk/Modules/ZdechovNET/UNetworkPage.pas

@@ -37 +37 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
         MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +

trunk/Modules/ZdechovNET/UPlansPage.pas

@@ -39 +39 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := '<table>';
       try
@@ -47 +47 @@
         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + '<li>' + DbRows[I].Values['Description'] + '</li>';
+          Text := Text + '<li>' + DbRows[I].Items['Description'] + '</li>';
         end;
         Text := Text + '</ul></div><br/>';
@@ -55 +55 @@
         Database.Query(DbRows, 'SELECT * FROM `Plans` WHERE (`TimeFinished` IS NOT NULL) AND (`Public`=1) ORDER BY `TimeCreate`');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + '<li>' + DbRows[I].Values['Description'] + '<br/>' +
-            '<i style="padding-left: 30px;">' + DbRows[I].Values['Conclusion'] + '</i></li>';
+          Text := Text + '<li>' + DbRows[I].Items['Description'] + '<br/>' +
+            '<i style="padding-left: 30px;">' + DbRows[I].Items['Conclusion'] + '</i></li>';
         end;
         Text := Text + '</ul></div><br/>';

trunk/Modules/ZdechovNET/UProjectsPage.pas

@@ -39 +39 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       try
         DbRows := TDbRows.Create;
@@ -47 +47 @@
         Database.Query(DbRows, 'SELECT * FROM `Plans` ORDER BY `TimeCreate` DESC');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + '<tr><td>' + DbRows[I].Values['TimeCreate'] + '</td>' +
-            '<td>' + DbRows[I].Values['TimeFinished'] + '</td>' +
-            '<td>' + DbRows[I].Values['Description'] + '</td>' +
-            '<td>' + DbRows[I].Values['Public'] + '</td></tr>';
+          Text := Text + '<tr><td>' + DbRows[I].Items['TimeCreate'] + '</td>' +
+            '<td>' + DbRows[I].Items['TimeFinished'] + '</td>' +
+            '<td>' + DbRows[I].Items['Description'] + '</td>' +
+            '<td>' + DbRows[I].Items['Public'] + '</td></tr>';
         end;
         Text := Text + '</table>';

trunk/Modules/ZdechovNET/URobotsPage.pas

@@ -37 +37 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := 'User-agent: *' + LineEnding +
         'Disallow: /*?';

trunk/Modules/ZdechovNET/UVoIPPage.pas

@@ -35 +35 @@
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.' +
       ' A v rámci sítě a těch co mají v obci VoIP od stejného operátora dokonce zdarma. <br/>' +

trunk/Modules/ZdechovNET/UWebCamPage.pas

@@ -45 +45 @@
   Value: Integer;
   NotFound: Boolean;
+  WidthValue: string;
 begin
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
-    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+    with HtmlDocument.Body, SubItems.AddString do begin
       Text := '';
       CameraId := -1;
@@ -64 +65 @@
       //HandlerData.Request.Query.Values['W'] := 'dsd';
       //HandlerData.Request.Query.Values['H'] := 'dsd';
-      if (HandlerData.Request.Query.SearchKey('W') = -1) then begin
-        ImageWidth := 640;
-      end else begin
-        ImageWidth := StrToInt(HandlerData.Request.Query.Values['W']);
-      end;
+      if HandlerData.Request.Query.TryGetValue('W', WidthValue) then
+        ImageWidth := StrToInt(WidthValue)
+        else ImageWidth := 640;
 
       Text := Text + '<table style="width: 100%"><tr><td style="width: 20%" valign="top">' +
@@ -84 +83 @@
         Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + MakeLink(DbRows[I].Values['Name'], NavigationLink(
-            '/kamery/' + DbRows[I].Values['Id'] + '/?W=' + IntToStr(ImageWidth))) + '<br/>';
+          Text := Text + MakeLink(DbRows[I].Items['Name'], NavigationLink(
+            '/kamery/' + DbRows[I].Items['Id'] + '/?W=' + IntToStr(ImageWidth))) + '<br/>';
         end;
       finally
@@ -125 +124 @@
     ImageWidthThumb := 160;
     for I := 0 to DbRows.Count - 1 do begin
-      ImageHeightThumb := Round(ImageWidthThumb * StrToInt(DbRows[I].Values['Height']) / StrToInt(DbRows[I].Values['Width']));
-      WebCamImage := 'images/webcam/' + DbRows[I].Values['ImageName'];
+      ImageHeightThumb := Round(ImageWidthThumb * StrToInt(DbRows[I].Items['Height']) / StrToInt(DbRows[I].Items['Width']));
+      WebCamImage := 'images/webcam/' + DbRows[I].Items['ImageName'];
       Result := Result + '<span align="center" valign="middle" style="vertical-align: middle;">' + //DbRows[I].Values['Name'] + '<br/>' +
-        '<a href="' + NavigationLink('/kamery/' + DbRows[I].Values['Id'] + '/?W=' + IntToStr(ImageWidth)) + '">' +
+        '<a href="' + NavigationLink('/kamery/' + DbRows[I].Items['Id'] + '/?W=' + IntToStr(ImageWidth)) + '">' +
         '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' +
         IntToStr(ImageWidthThumb) + '" height="' + IntToStr(ImageHeightThumb) + '" alt="' +
-        DbRows[I].Values['Name'] + '"/></a></span> ';
+        DbRows[I].Items['Name'] + '"/></a></span> ';
     end;
   finally
@@ -153 +152 @@
       IntToStr(Id) + ') AND (`Enabled`=1)');
     if DbRows.Count > 0 then begin
-      WebCamImage := 'images/webcam/' + DbRows[0].Values['ImageName'];
-      RefreshInterval := StrToInt(DbRows[0].Values['ImagePeriod']);
-      ImageHeight := Round(ImageWidth * StrToInt(DbRows[0].Values['Height']) / StrToInt(DbRows[0].Values['Width']));
+      WebCamImage := 'images/webcam/' + DbRows[0].Items['ImageName'];
+      RefreshInterval := StrToInt(DbRows[0].Items['ImagePeriod']);
+      ImageHeight := Round(ImageWidth * StrToInt(DbRows[0].Items['Height']) / StrToInt(DbRows[0].Items['Width']));
 
       if FileExists(WebCamImage) then begin
@@ -181 +180 @@
           '</script>' + #13#10 +
 
-          '<br /><div align="center">' + DbRows[0].Values['Name'] + '<br/>' +
+          '<br /><div align="center">' + DbRows[0].Items['Name'] + '<br/>' +
           '<img name="theImageTemp" src="' + NavigationLink('/' + WebCamImage) + '" width="0" height="0" alt="Temp image"/>' +
           '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' + IntToStr(ImageWidth) +
           '" height="' + IntToStr(ImageHeight) + '" alt="' +
-          DbRows[0].Values['Name'] + '"/></div>';
+          DbRows[0].Items['Name'] + '"/></div>';
       end else Result := Result + '<br />Obrázek nenalezen.<br /><br />';
       Result := Result + '<br/><div align="center">';
       if LastFileDate <> '' then Result := Result + 'Aktualizace: <span id="lasttime">' +
         LastFileDate + '</span>, ';
-      Result := Result + 'Perioda: ' + IntToStr(RefreshInterval) + ' sekund, Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
-        '<br/>' + DbRows[0].Values['Description'];
-      Result := Result + GetVideoArchive(DbRows[0].Values['Id']) + '</div>';
+      Result := Result + 'Perioda: ' + IntToStr(RefreshInterval) + ' sekund, Typ: ' +
+        DbRows[0].Items['DeviceType'] + '<br />' +
+        '<br/>' + DbRows[0].Items['Description'];
+      Result := Result + GetVideoArchive(DbRows[0].Items['Id']) + '</div>';
     end else Result := Result + '<br />Id kamery nenalezeno.<br/><br>';
   finally