Changeset 82 for trunk/Pages

Timestamp:

Jun 23, 2012, 11:58:40 PM (13 years ago)

Author:

chronos

Message:

• Upraveno: Na stránce web kamer velikost změněna na slovní označení místo bodových rozměrů. Nově jsou podporovány obrázky s jiným poměrem než 4:3.

File:

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

trunk/Pages/UWebCamPage.pas

@@ -41 +41 @@
   Id: Integer;
   LastFileDate: string;
-  ImageWidth, ImageHeight: string;
+  ImageWidth, ImageHeight: Integer;
+  ImageWidthThumb, ImageHeightThumb: Integer;
 begin
   with TWebSession(HandlerData) do begin
@@ -54 +55 @@
       if HandlerData.Request.Query.IndexOfName('Id') = -1 then Id := ''
         else Id := IntToStr(StrToInt(HandlerData.Request.Query.Values['Id']));
-      if (HandlerData.Request.Query.IndexOfName('W') = -1) or
-        (HandlerData.Request.Query.IndexOfName('H') = -1) then begin
-        ImageWidth := '640';
-        ImageHeight := '480';
+      if (HandlerData.Request.Query.IndexOfName('W') = -1) then begin
+        ImageWidth := 640;
       end else begin
-        ImageWidth := IntToStr(StrToInt(HandlerData.Request.Query.Values['W']));
-        ImageHeight := IntToStr(StrToInt(HandlerData.Request.Query.Values['H']));
+        ImageWidth := StrToInt(HandlerData.Request.Query.Values['W']);
       end;
 
       Text := Text + '<table style="width: 100%"><tr><td style="width: 20%" valign="top">' +
         '<strong>Velikost</strong><br/>' +
-        '<a href="?W=320&H=240&Id=' + Id + '">320x240</a><br/> ' +
-        '<a href="?W=640&H=480&Id=' + Id + '">640x480</a><br/> ' +
-        '<a href="?W=1024&H=768&Id=' + Id + '">1024x768</a><br/> ' +
-        '<a href="?W=1280&H=1024&Id=' + Id + '">1280x1024</a><br/><br/>';
+        '<a href="?W=160&Id=' + Id + '">Malá</a><br/> ' +
+        '<a href="?W=320&Id=' + Id + '">Menší</a><br/> ' +
+        '<a href="?W=640&Id=' + Id + '">Střední</a><br/> ' +
+        '<a href="?W=1024&Id=' + Id + '">Větší</a><br/> ' +
+        '<a href="?W=1280&Id=' + Id + '">Velká</a><br/><br/>';
 
       Text := Text + '<strong>Místní kamery</strong><br/>';
-      Text := Text + '<a href="?W=' + ImageWidth +
-      '&H=' + ImageHeight +'">Všechny</a><br/>';
+      Text := Text + '<a href="?W=' + IntToStr(ImageWidth) + '">Všechny</a><br/>';
       try
         DbRows := TDbRows.Create;
-        Database.Query(DbRows, 'SELECT * FROM Webcam WHERE Enabled=1');
+        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'] + '&W=' + ImageWidth +
-          '&H=' + ImageHeight +'">' + DbRows[I].Values['Name'] + '</a><br/>';
+          Text := Text + '<a href="?Id=' + DbRows[I].Values['Id'] + '&W=' + IntToStr(ImageWidth) +
+          '">' + DbRows[I].Values['Name'] + '</a><br/>';
         end;
       finally
@@ -93 +91 @@
         try
           DbRows := TDbRows.Create;
-          Database.Query(DbRows, 'SELECT * FROM Webcam WHERE Enabled=1');
+          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">' + //DbRows[I].Values['Name'] + '<br/>' +
-        '<a href="?Id=' + DbRows[I].Values['Id'] + '&W=' + ImageWidth +
-          '&H=' + ImageHeight +'">' +
-        '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="160" height="120" alt="' +
-        DbRows[I].Values['Name'] + '"/></a></span> ';
+            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
@@ -108 +108 @@
       try
         DbRows := TDbRows.Create;
-        Database.Query(DbRows, 'SELECT * FROM Webcam WHERE (Id=' +
-          Id + ') AND (Enabled=1)');
+        Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE (`Id`=' +
+          Id + ') AND (`Enabled`=1)');
         if DbRows.Count > 0 then begin
 
@@ -115 +115 @@
           RefreshInterval := StrToInt(DbRows[0].Values['ImagePeriod']);
           Id := DbRows[0].Values['Id'];
+          ImageHeight := Round(ImageWidth * StrToInt(DbRows[0].Values['Height']) / StrToInt(DbRows[0].Values['Width']));
 
         if FileExists(WebCamImage) then begin
@@ -142 +143 @@
         '<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="' + ImageWidth + '" height="' + ImageHeight + '" alt="' +
+        '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' + IntToStr(ImageWidth) +
+        '" height="' + IntToStr(ImageHeight) + '" alt="' +
         DbRows[0].Values['Name'] + '"/><br/>Aktualizace: <span id="lasttime">' +
           LastFileDate + '</span>, Perioda: ' +