Changeset 138 for trunk/Modules/ZdechovNET/UWebCamPage.pas

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.

File:

• trunk/Modules/ZdechovNET/UWebCamPage.pas (modified) (6 diffs)

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