Changeset 128 for trunk/Modules/ZdechovNET/UIPTVPage.pas

Timestamp:

Feb 22, 2021, 11:20:53 PM (3 years ago)

Author:

chronos

Message:

• Added: Price list document.
• Modified: Updated internet page and documents according ČTÚ requirements.

File:

• trunk/Modules/ZdechovNET/UIPTVPage.pas (modified) (4 diffs)

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -30 +30 @@
     procedure DataModuleProduce(HandlerData: THTTPHandlerData);
   private
-    { private declarations }
+    function Row(Cell1: string; Cell2: string = ''; Cell3: string = ''; Cell4: string = ''): string;
   public
     ModuleUser: TModuleUser;
@@ -255 +255 @@
       '<li>možnost pozastavení přehrávání vysílání</li>' +
       '<li>možnost záznamu pořadů</li>' +
-      '<li>televizi lze sledovat přes set-top box, Smart TV Samsung a Android, tablet, smartphone nebo internetový prohlížeč</li>' +
+      '<li>televizi lze sledovat přes set-top box, Smart TV Samsung, LG a Android, tablet, smartphone nebo internetový prohlížeč</li>' +
       '<li>lze spárovat až 4 zařízení na jeden účet</li>' +
       '<li>vyzkoušení na měsíc zdarma</li>' +
       '<li>převzaté vysílání zajišťuje společnost <a href="www.4net.tv">4NET.TV services s.r.o.</a></li>' +
-      '<li>pro provoz služby stačí i nejnižší internetový tarif Internet 200k/140M za 190 Kč/měsíc</li>' +
+      '<li>pro provoz služby stačí i nejnižší internetový tarif Internet 20M za 190 Kč/měsíc</li>' +
       '</ul><br/>' +
 
       '<h3>Základní balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      '<tr><td>Basic</td><td>95</td><td>' + IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic) + '</td></tr>' +
-      '<tr><td>Basic + tématika</td><td>103</td><td>' + IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic) + '</td></tr>' +
-      '<tr><td>Standard</td><td>367</td><td>' + IntToStr(Channels.GetCountByGroup(cpStandard)) + '</td><td>' + Channels.GetNamesByGroup(cpStandard) + '</td></tr>' +
-      '<tr><td>Max</td><td>530</td><td>' + IntToStr(Channels.GetCountByGroup(cpMax)) + '</td><td>' + Channels.GetNamesByGroup(cpMax) + '</td></tr>' +
+      Row('Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
+      Row('Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
+      Row('Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)) + '</td><td>' + Channels.GetNamesByGroup(cpStandard)) +
+      Row('Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)) + '</td><td>' + Channels.GetNamesByGroup(cpMax)) +
       '</table>' +
       'Balíček Basic obsahuje stejné kanály jako Basic + tématika. Pro možnost volby tématických balíčků je ale nutné mít balíček Basic + tématika.<br/>' +
@@ -273 +273 @@
       '<h3>Tématické balíčky</h3>' +
       '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
-      '<tr><td>Film</td><td>49</td><td>7</td><td>AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD</td></tr>' +
-      '<tr><td>Superbox</td><td>146</td><td>9</td><td>Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus</td></tr>' +
-      '<tr><td>Sport</td><td>67</td><td>9</td><td>ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5</td></tr>' +
-      '<tr><td>Dětské</td><td>37</td><td>5</td><td>Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.</td></tr>' +
-      '<tr><td>Česky</td><td>43</td><<td>4</td><td>CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD</td></tr>' +
-      '<tr><td>Láska</td><td>49</td><td>4</td><td>Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV</td></tr>' +
-      '<tr><td>Zpravodaj</td><td>15</td><td>6</td><td>BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde</td></tr>' +
-      '<tr><td>Dokument</td><td>103</td><td>12</td><td>Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD</td></tr>' +
+      Row('Film', '49', '7', 'AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD') +
+      Row('Superbox', '146', '9', 'Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus') +
+      Row('Sport', '67', '9', 'ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5') +
+      Row('Dětské', '37', '5', 'Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.') +
+      Row('Česky', '43', '4', 'CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD') +
+      Row('Láska', '49', '4', 'Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV') +
+      Row('Zpravodaj', '15', '6', 'BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde') +
+      Row('Dokument', '103', '12', 'Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD') +
       '</table>' +
       'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
@@ -302 +302 @@
 end;
 
+function TIPTVPage.Row(Cell1: string; Cell2: string; Cell3: string;
+  Cell4: string): string;
+begin
+  Result := '<td>' + Cell1 + '</td>';
+  if Cell2 <> '' then Result := Result + '<td>' + Cell2 + '</td>';
+  if Cell3 <> '' then Result := Result + '<td>' + Cell3 + '</td>';
+  if Cell4 <> '' then Result := Result + '<td>' + Cell4 + '</td>';
+  Result := '<tr>' + Result + '</tr>';
+end;
+
 end.