Changeset 71 for trunk/Pages/UWebCamPage.pas

Timestamp:

Feb 11, 2012, 10:43:06 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Periodické načítání obrázků kamery se nyní provádí na pozadí kvůli zamezení problikávání.

File:

• trunk/Pages/UWebCamPage.pas (modified) (4 diffs)

trunk/Pages/UWebCamPage.pas

@@ -40 +40 @@
   I: Integer;
   Id: Integer;
+  LastFileDate: string;
   ImageWidth, ImageHeight: string;
 begin
@@ -115 +116 @@
 
         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 +
@@ -129 +131 @@
         '  // 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 = url;' + #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 +
@@ -137 +140 @@
 
         '<br /><div align="center">' + DbRows[0].Values['Name'] + '<br/>' +
-        '<img name="theImage" src="" width="' + ImageWidth + '" height="' + ImageHeight + '" alt="' +
-        DbRows[0].Values['Name'] + '"/><br/>Aktualizace: ' +
-          DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + ' Perioda: ' +
-          IntToStr(RefreshInterval) + ' sekund Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
+        '<img name="theImageTemp" src="' + NavigationLink('/' + WebCamImage) + '" width="0" height="0" alt="Temp image"/>' +
+        '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' + ImageWidth + '" height="' + ImageHeight + '" alt="' +
+        DbRows[0].Values['Name'] + '"/><br/>Aktualizace: <span id="lasttime">' +
+          LastFileDate + '</span>, Perioda: ' +
+          IntToStr(RefreshInterval) + ' sekund, Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
           '<br/>' + DbRows[0].Values['Description'] + '</div>';
         end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';