Ignore:
Timestamp:
Jun 24, 2012, 12:22:17 AM (12 years ago)
Author:
chronos
Message:
  • Opraveno: Chyba při změně velikosti obrázků při zobrazení náhledu všech.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Pages/UWebCamPage.pas

    r82 r83  
    3939  DbRows: TDbRows;
    4040  I: Integer;
    41   Id: Integer;
     41  CameraId: Integer;
     42  IdParam: string;
    4243  LastFileDate: string;
    4344  ImageWidth, ImageHeight: Integer;
     
    5354      //HandlerData.Request.Query.Values['W'] := 'dsd';
    5455      //HandlerData.Request.Query.Values['H'] := 'dsd';
    55       if HandlerData.Request.Query.IndexOfName('Id') = -1 then Id := ''
    56         else Id := IntToStr(StrToInt(HandlerData.Request.Query.Values['Id']));
     56      if HandlerData.Request.Query.IndexOfName('Id') = -1 then CameraId := -1
     57        else CameraId := StrToInt(HandlerData.Request.Query.Values['Id']);
    5758      if (HandlerData.Request.Query.IndexOfName('W') = -1) then begin
    5859        ImageWidth := 640;
     
    6162      end;
    6263
     64      if CameraId >= 0 then IdParam := '&Id=' + IntToStr(CameraId)
     65        else IdParam := '';
    6366      Text := Text + '<table style="width: 100%"><tr><td style="width: 20%" valign="top">' +
    6467        '<strong>Velikost</strong><br/>' +
    65         '<a href="?W=160&Id=' + Id + '">Malá</a><br/> ' +
    66         '<a href="?W=320&Id=' + Id + '">Menší</a><br/> ' +
    67         '<a href="?W=640&Id=' + Id + '">Střední</a><br/> ' +
    68         '<a href="?W=1024&Id=' + Id + '">Větší</a><br/> ' +
    69         '<a href="?W=1280&Id=' + Id + '">Velká</a><br/><br/>';
     68        '<a href="?W=160' + IdParam + '">Malá</a><br/> ' +
     69        '<a href="?W=320' + IdParam + '">Menší</a><br/> ' +
     70        '<a href="?W=640' + IdParam + '">Střední</a><br/> ' +
     71        '<a href="?W=1024' + IdParam + '">Větší</a><br/> ' +
     72        '<a href="?W=1280' + IdParam + '">Velká</a><br/><br/>';
    7073
    7174      Text := Text + '<strong>Místní kamery</strong><br/>';
     
    8891        '</td><td style="width: 80%" valign="top">';
    8992
    90       if Id = '' then begin
     93      if CameraId = -1 then begin
    9194        try
    9295          DbRows := TDbRows.Create;
     
    109112        DbRows := TDbRows.Create;
    110113        Database.Query(DbRows, 'SELECT * FROM `Webcam` WHERE (`Id`=' +
    111           Id + ') AND (`Enabled`=1)');
     114          IntToStr(CameraId) + ') AND (`Enabled`=1)');
    112115        if DbRows.Count > 0 then begin
    113116
    114117          WebCamImage := 'images/webcam/' + DbRows[0].Values['ImageName'];
    115118          RefreshInterval := StrToInt(DbRows[0].Values['ImagePeriod']);
    116           Id := DbRows[0].Values['Id'];
     119          CameraId := StrToInt(DbRows[0].Values['Id']);
    117120          ImageHeight := Round(ImageWidth * StrToInt(DbRows[0].Values['Height']) / StrToInt(DbRows[0].Values['Width']));
    118121
Note: See TracChangeset for help on using the changeset viewer.