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

Timestamp:

Sep 9, 2022, 1:16:58 AM (22 months ago)

Author:

chronos

Message:

• Added: Robots page.
• Modified: Canonical URL for webcams.
• Modified: Removed compiler mode delphi as it is already set in project.
• Modified: Updated Common package.
• Modified: Use Generics.Collections instead of fgl.

File:

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

trunk/Modules/ZdechovNET/UWebCamPage.pas

@@ -14 +14 @@
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
   private
+    ImageWidth: Integer;
+    ImageHeight: Integer;
+    function GetAll(HandlerData: THTTPHandlerData): string;
+    function GetSingle(HandlerData: THTTPHandlerData; Id: Integer): string;
     function GetVideoArchive(Id: string): string;
   public
@@ -35 +39 @@
 procedure TWebCamPage.DataModuleProduce(HandlerData: THTTPHandlerData);
 var
-  RefreshInterval: Integer;
-  WebCamImage: string;
   DbRows: TDbRows;
   I: Integer;
   CameraId: Integer;
-  IdParam: string;
-  LastFileDate: string;
-  ImageWidth, ImageHeight: Integer;
-  ImageWidthThumb, ImageHeightThumb: Integer;
+  SubPageName: string;
+  Value: Integer;
+  NotFound: Boolean;
 begin
   with TWebSession(HandlerData) do begin
@@ -49 +50 @@
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := '';
+      CameraId := -1;
+      NotFound := False;
+      if Request.Path.Count >= 2 then begin
+        SubPageName := Request.Path[1];
+        if TryStrToInt(SubPageName, Value) then
+          CameraId := Value else
+          NotFound := True;
+      end;
+      if not NotFound then begin
     //for I := 0 to HandlerData.Request.Query.Count - 1 do
       //Text := Text + HandlerData.Request.Query[I] + ' ';
@@ -54 +64 @@
       //HandlerData.Request.Query.Values['W'] := 'dsd';
       //HandlerData.Request.Query.Values['H'] := 'dsd';
-      if HandlerData.Request.Query.SearchKey('Id') = -1 then CameraId := -1
-        else CameraId := StrToInt(HandlerData.Request.Query.Values['Id']);
       if (HandlerData.Request.Query.SearchKey('W') = -1) then begin
         ImageWidth := 640;
@@ -62 +70 @@
       end;
 
-      if CameraId >= 0 then IdParam := '&Id=' + IntToStr(CameraId)
-        else IdParam := '';
       Text := Text + '<table style="width: 100%"><tr><td style="width: 20%" valign="top">' +
         '<strong>Velikost</strong><br/>' +
-        '<a href="?W=160' + IdParam + '">Malá</a><br/> ' +
-        '<a href="?W=320' + IdParam + '">Menší</a><br/> ' +
-        '<a href="?W=640' + IdParam + '">Střední</a><br/> ' +
-        '<a href="?W=1024' + IdParam + '">Větší</a><br/> ' +
-        '<a href="?W=1280' + IdParam + '">Velká</a><br/><br/>';
+        '<a href="?W=160">Malá</a><br/> ' +
+        '<a href="?W=320">Menší</a><br/> ' +
+        '<a href="?W=640">Střední</a><br/> ' +
+        '<a href="?W=1024">Větší</a><br/> ' +
+        '<a href="?W=1280">Velká</a><br/><br/>';
 
       Text := Text + '<strong>Místní kamery</strong><br/>';
-      Text := Text + '<a href="?W=' + IntToStr(ImageWidth) + '">Všechny</a><br/>';
+      Text := Text + MakeLink('Všechny', NavigationLink('/kamery/?W=' + IntToStr(ImageWidth))) + '<br/>';
       try
         DbRows := TDbRows.Create;
         Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
         for I := 0 to DbRows.Count - 1 do begin
-          Text := Text + '<a href="?Id=' + DbRows[I].Values['Id'] + '&amp;W=' + IntToStr(ImageWidth) +
-          '">' + DbRows[I].Values['Name'] + '</a><br/>';
+          Text := Text + MakeLink(DbRows[I].Values['Name'], NavigationLink(
+            '/kamery/' + DbRows[I].Values['Id'] + '/?W=' + IntToStr(ImageWidth))) + '<br/>';
         end;
       finally
@@ -92 +98 @@
 
       if CameraId = -1 then begin
-        try
-          DbRows := TDbRows.Create;
-          Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
-          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'];
-            Text := Text + '<span align="center" valign="middle" style="vertical-align: middle;">' + //DbRows[I].Values['Name'] + '<br/>' +
-              '<a href="?Id=' + DbRows[I].Values['Id'] + '&W=' + IntToStr(ImageWidth) + '">' +
-              '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' +
-            IntToStr(ImageWidthThumb) + '" height="' + IntToStr(ImageHeightThumb) + '" alt="' +
-            DbRows[I].Values['Name'] + '"/></a></span> ';
-          end;
-        finally
-          DbRows.Free;
-        end;
-      end else
-      try
-        DbRows := TDbRows.Create;
-        Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE (`Id`=' +
-          IntToStr(CameraId) + ') AND (`Enabled`=1)');
-        if DbRows.Count > 0 then begin
-
-          WebCamImage := 'images/webcam/' + DbRows[0].Values['ImageName'];
-          RefreshInterval := StrToInt(DbRows[0].Values['ImagePeriod']);
-          CameraId := StrToInt(DbRows[0].Values['Id']);
-          ImageHeight := Round(ImageWidth * StrToInt(DbRows[0].Values['Height']) / StrToInt(DbRows[0].Values['Width']));
-
-          if FileExists(WebCamImage) then begin
-            DateTimeToString(LastFileDate, 'hh:mm:ss d.m.yyyy', FileDateToDateTime(FileAge(WebCamImage)));
-            Text := Text + '<script language="JavaScript">' + #13#10 +
-            '  var ImageURL= "' + NavigationLink('/' + WebCamImage) + '";' + #13#10 +
-            '' + #13#10 +
-            '// Force an immediate image load' + #13#10 +
-            'var theTimer = setTimeout("reloadImage()", 1);' + #13#10 +
-            '' + #13#10 +
-             'function reloadImage()' + #13#10 +
-            '{' + #13#10 +
-            '  theDate = new Date();' + #13#10 +
-            '  var url = ImageURL;' + #13#10 +
-            '  url += "?dummy=";' + #13#10 +
-            '  url += theDate.getTime().toString(10);' + #13#10 +
-            '  // The above dummy cgi-parameter enforce a bypass of the browser image cache.' + #13#10 +
-            '  // Here we actually load the image' + #13#10 +
-            '  document.theImage.src = document.theImageTemp.src;' + #13#10 +
-            '  document.theImageTemp.src = url;' + #13#10 +
-            '' + #13#10 +
-            '  // Reload the image every defined period' + #13#10 +
-            '  theTimer = setTimeout("reloadImage()", ' + IntToStr(RefreshInterval * 1000) + ');' + #13#10 +
-            '}' + #13#10 +
-            '</script>' + #13#10 +
-
-            '<br /><div align="center">' + DbRows[0].Values['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>';
-          end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';
-          Text := Text + '<br/><div align="center">';
-          if LastFileDate <> '' then Text := Text + 'Aktualizace: <span id="lasttime">' +
-            LastFileDate + '</span>, ';
-          Text := Text + 'Perioda: ' + IntToStr(RefreshInterval) + ' sekund, Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
-            '<br/>' + DbRows[0].Values['Description'];
-          Text := Text + GetVideoArchive(DbRows[0].Values['Id']) + '</div>';
-        end else Text := Text + '<br />Id kamery nenalezeno.<br/><br>';
-      finally
-        DbRows.Free;
-      end;
+        Text := Text + GetAll(HandlerData);
+      end else begin
+        Text := Text + GetSingle(HandlerData, CameraId);
+      end;
+
       Text := Text + '</td></tr></table>';
+      end else Text := 'Stránka nenalezena.';
     end;
     GeneratePage(Self);
+  end;
+end;
+
+function TWebCamPage.GetAll(HandlerData: THTTPHandlerData): string;
+var
+  DbRows: TDbRows;
+  I: Integer;
+  ImageWidthThumb: Integer;
+  ImageHeightThumb: Integer;
+  WebCamImage: string;
+begin
+  Result := '';
+  with TWebSession(HandlerData) do
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE `Enabled`=1');
+    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'];
+      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)) + '">' +
+        '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' +
+        IntToStr(ImageWidthThumb) + '" height="' + IntToStr(ImageHeightThumb) + '" alt="' +
+        DbRows[I].Values['Name'] + '"/></a></span> ';
+    end;
+  finally
+    DbRows.Free;
+  end;
+end;
+
+function TWebCamPage.GetSingle(HandlerData: THTTPHandlerData; Id: Integer): string;
+var
+  DbRows: TDbRows;
+  I: Integer;
+  WebCamImage: string;
+  RefreshInterval: Integer;
+  LastFileDate: string;
+begin
+  Result := '';
+  with TWebSession(HandlerData) do
+  try
+    DbRows := TDbRows.Create;
+    Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE (`Id`=' +
+      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']));
+
+      if FileExists(WebCamImage) then begin
+        DateTimeToString(LastFileDate, 'hh:mm:ss d.m.yyyy', FileDateToDateTime(FileAge(WebCamImage)));
+        Result := Result + '<script language="JavaScript">' + #13#10 +
+          '  var ImageURL= "' + NavigationLink('/' + WebCamImage) + '";' + #13#10 +
+          '' + #13#10 +
+          '// Force an immediate image load' + #13#10 +
+          'var theTimer = setTimeout("reloadImage()", 1);' + #13#10 +
+          '' + #13#10 +
+          'function reloadImage()' + #13#10 +
+          '{' + #13#10 +
+          '  theDate = new Date();' + #13#10 +
+          '  var url = ImageURL;' + #13#10 +
+          '  url += "?dummy=";' + #13#10 +
+          '  url += theDate.getTime().toString(10);' + #13#10 +
+          '  // The above dummy cgi-parameter enforce a bypass of the browser image cache.' + #13#10 +
+          '  // Here we actually load the image' + #13#10 +
+          '  document.theImage.src = document.theImageTemp.src;' + #13#10 +
+          '  document.theImageTemp.src = url;' + #13#10 +
+          '' + #13#10 +
+          '  // Reload the image every defined period' + #13#10 +
+          '  theTimer = setTimeout("reloadImage()", ' + IntToStr(RefreshInterval * 1000) + ');' + #13#10 +
+          '}' + #13#10 +
+          '</script>' + #13#10 +
+
+          '<br /><div align="center">' + DbRows[0].Values['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>';
+      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>';
+    end else Result := Result + '<br />Id kamery nenalezeno.<br/><br>';
+  finally
+    DbRows.Free;
   end;
 end;
@@ -180 +213 @@
   VideoPathFormat := 'images/webcam_archive/%s/%s/video.mp4';
   Items := TStringList.Create;
-  Date := Now - OneDay;
-  repeat
-    DateStr := FormatDateTime('yyyy-mm-dd', Date);
-    Video := Format(VideoPathFormat, [DateStr, Id]);
-    if FileExists(Video) then begin
-      Items.Add(DateStr + Items.NameValueSeparator + Video);
-      Date := Date - OneDay;
-      Continue;
-    end else Break;
-  until False;
-
-  if Items.Count > 0 then begin
-    Result := '<br/>Video archív: <select name="dates" id="dates">';
-    for I := 0 to Items.Count - 1 do begin
-      Result := Result + '<option value="' + NavigationLink('/' + Items.ValueFromIndex[I]) + '">' + Items.Names[I] + '</option>';
+  try
+    Date := Now - OneDay;
+    repeat
+      DateStr := FormatDateTime('yyyy-mm-dd', Date);
+      Video := Format(VideoPathFormat, [DateStr, Id]);
+      if FileExists(Video) then begin
+        Items.Add(DateStr + Items.NameValueSeparator + Video);
+        Date := Date - OneDay;
+        Continue;
+      end else Break;
+    until False;
+
+    if Items.Count > 0 then begin
+      Result := '<br/>Video archív: <select name="dates" id="dates">';
+      for I := 0 to Items.Count - 1 do begin
+        Result := Result + '<option value="' + NavigationLink('/' + Items.ValueFromIndex[I]) + '">' + Items.Names[I] + '</option>';
+      end;
+      Result := Result + '</select>';
+      Result := Result + ' <button onclick="var element = document.getElementById(''dates''); window.open(element.value, ''_blank'')">Zobrazit</button>';
     end;
-    Result := Result + '</select>';
-    Result := Result + ' <button onclick="var element = document.getElementById(''dates''); window.open(element.value, ''_blank'')">Zobrazit</button>';
-  end;
-
-  Items.Free;
+  finally
+    Items.Free;
+  end;
 end;