Changeset 35

Timestamp:

Sep 26, 2010, 5:39:23 PM (14 years ago)

Author:

george

Message:

• Přidáno: Stránka zobrazující webové kamery.

Location:

trunk

Files:

• Application/UCustomApplication.pas (modified) (1 diff)
• CGI.lpr (modified) (1 diff)
• Pages/UMainPage.pas (modified) (2 diffs)
• Scripts (added)
• Scripts/webcam.sh (added)
• images/webcam (added)

trunk/Application/UCustomApplication.pas

@@ -227 +227 @@
       '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
       '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>' +
+      '<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>' +

trunk/CGI.lpr

@@ -24 +24 @@
     RegisterPage('kontakt', Contact);
     RegisterPage('serverinfo', ServerInfo);
+    RegisterPage('kamery', WebCam);
     RegisterPage('', About);
     HTTPServer := THTTPServerCGI.Create;

trunk/Pages/UMainPage.pas

@@ -18 +18 @@
 procedure Contact(App: TCustomApplication; HandlerData: THTTPHandlerData);
 procedure ServerInfo(App: TCustomApplication; HandlerData: THTTPHandlerData);
+procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
 
 implementation
@@ -114 +115 @@
       '<br/>' +
       '<i>Aktualizováno: 1.7.2010</i>';
+    end;
+  end;
+end;
+
+procedure WebCam(App: TCustomApplication; HandlerData: THTTPHandlerData);
+const
+  WebCamImage = 'images/webcam/webcam.jpg';
+  RefreshInterval = 1;
+begin
+  with App do begin
+    HtmlDocument.Title := 'Webové kamery';
+
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+      Text := '<table style="width: 100%"><tr><td style="width: 20%">' +
+        '<strong>Kamery v okolí:</strong><br />' +
+        '<a href="http://www.mestovsetin.cz/vismo/dokumenty2.asp?id_org=18676&id=480245">Vsetínské kamery</a><br />' +
+        '<a href="http://www.huslenky.cz/?page=kamery&I=2">Kamery v Huslenkách</a><br/>' +
+        '<a href="http://kamery.hovnet.cz/">Kamery v Hovnetu</a><br/>' +
+        '</td><td style="width: 80%">';
+
+      if FileExists(WebCamImage) then begin
+        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 = 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"><img name="theImage" src="" idth="640" height="480" alt="Webcam image"><br>Poslední aktualizace: ' +
+          DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + '<br>Obnovování po ' + IntToStr(RefreshInterval) + ' sekundách</div><br />';
+      end else Text := '<br />Obrázek nenalezen.<br /><br />';
+      Text := Text + '</td></tr></table>';
     end;
   end;