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

Timestamp:

Oct 2, 2012, 2:52:20 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: V balíčku CoolWeb některé seznamy změněny z typu TStringList na TListString.

File:

• trunk/Modules/ZdechovNET/UWebCamPage.pas (modified) (1 diff)

trunk/Modules/ZdechovNET/UWebCamPage.pas

@@ -54 +54 @@
       //HandlerData.Request.Query.Values['W'] := 'dsd';
       //HandlerData.Request.Query.Values['H'] := 'dsd';
-      if HandlerData.Request.Query.IndexOfName('Id') = -1 then CameraId := -1
+      if HandlerData.Request.Query.SearchKey('Id') = -1 then CameraId := -1
         else CameraId := StrToInt(HandlerData.Request.Query.Values['Id']);
-      if (HandlerData.Request.Query.IndexOfName('W') = -1) then begin
+      if (HandlerData.Request.Query.SearchKey('W') = -1) then begin
         ImageWidth := 640;
       end else begin