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

Timestamp:

Jul 24, 2020, 11:06:31 PM (4 years ago)

Author:

chronos

Message:

• Added: IPTV channels for channel packages.
• Added: Used network interfaces specification document.
• Modified: Updated IPTV manual.
• Fixed: Build under Lazarus 2.0.10.

File:

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

trunk/Modules/ZdechovNET/UIPTVPage.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser;
+  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser, Contnrs;
 
 type
+  TChannelGroup = (cpBasic, cpStandard, cpMax);
+  TChannelGroups = set of TChannelGroup;
+
+  TChannel = class
+    Name: string;
+    Groups: TChannelGroups;
+  end;
+
+  { TChannels }
+
+  TChannels = class(TObjectList)
+    function AddNew(Name: string; Groups: TChannelGroups): TChannel;
+    function GetNamesByGroup(Group: TChannelGroup): string;
+    function GetCountByGroup(Group: TChannelGroup): Integer;
+  end;
 
   { TIPTVPage }
@@ -18 +33 @@
   public
     ModuleUser: TModuleUser;
-  end; 
+  end;
 
 var
@@ -30 +45 @@
   UCore, UHtmlClasses, UWebSession;
 
+{ TChannels }
+
+function TChannels.AddNew(Name: string; Groups: TChannelGroups): TChannel;
+begin
+  Result := TChannel.Create;
+  Result.Name := Name;
+  Result.Groups := Groups;
+  Add(Result);
+end;
+
+function TChannels.GetNamesByGroup(Group: TChannelGroup): string;
+var
+  I: Integer;
+begin
+  Result := '';
+  for I := 0 to Count - 1 do begin
+    if Group in TChannel(Items[I]).Groups then begin
+      if Result <> '' then Result := Result + ', ';
+      Result := Result + TChannel(Items[I]).Name;
+    end;
+  end;
+end;
+
+function TChannels.GetCountByGroup(Group: TChannelGroup): Integer;
+var
+  I: Integer;
+begin
+  Result := 0;
+  for I := 0 to Count - 1 do begin
+    if Group in TChannel(Items[I]).Groups then begin
+      Inc(Result);
+    end;
+  end;
+end;
+
 { TIPTVPage }
 
 procedure TIPTVPage.DataModuleProduce(HandlerData: THTTPHandlerData);
+var
+  Channels: TChannels;
 begin
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
+      Channels := TChannels.Create;
+    with Channels do begin
+      AddNew('1TV RUS', [cpBasic, cpStandard, cpMax]);
+      AddNew('360TuneBox', [cpMax]);
+      AddNew('AMC (American Movie Classics)', [cpStandard, cpMax]);
+      AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]);
+      AddNew('Animal Planet', [cpStandard, cpMax]);
+      AddNew('Arena SPORT 1 HD', [cpStandard, cpMax]);
+      AddNew('Arena SPORT 2', [cpStandard, cpMax]);
+      AddNew('ATM Rozrywka', [cpBasic, cpStandard, cpMax]);
+      AddNew('ATV', [cpBasic, cpStandard, cpMax]);
+      AddNew('AXN', [cpStandard, cpMax]);
+      AddNew('AXN Black', [cpStandard, cpMax]);
+      AddNew('AXN White', [cpStandard, cpMax]);
+      AddNew('Baby TV', [cpStandard, cpMax]);
+      AddNew('Barrandov Krimi HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('BBC World News', [cpMax]);
+      AddNew('Brazzers TV Europe', [cpStandard, cpMax]);
+      AddNew('CNN', [cpStandard, cpMax]);
+      AddNew('CNN Prima News', [cpBasic, cpStandard, cpMax]);
+      AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CS film/ CS Horor', [cpStandard, cpMax]);
+      AddNew('CS History', [cpBasic, cpStandard, cpMax]);
+      AddNew('CS Mystery', [cpStandard, cpMax]);
+      AddNew('CT :D / Art', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT :D HD/ Art HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1 JM', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1 JM HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1 SM', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 1 SM HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 2', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 2 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 3', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 3 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 24', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT 24 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT sport', [cpBasic, cpStandard, cpMax]);
+      AddNew('CT sport HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Deutsche Welle', [cpStandard, cpMax]);
+      AddNew('Discovery Channel', [cpStandard, cpMax]);
+      AddNew('Discovery Science', [cpMax]);
+      AddNew('Discovery Showcase HD', [cpMax]);
+      AddNew('Disney Channel', [cpStandard, cpMax]);
+      AddNew('Disney junior', [cpStandard, cpMax]);
+      AddNew('DocuBox HD', [cpMax]);
+      AddNew('DTX HD', [cpMax]);
+      AddNew('Dvojka', [cpBasic, cpStandard, cpMax]);
+      AddNew('Dvojka HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Erox HD', [cpMax]);
+      AddNew('Eroxxx HD', [cpMax]);
+      AddNew('Euronews', [cpMax]);
+      AddNew('Eurosport 2 HD', [cpStandard, cpMax]);
+      AddNew('Eurosport 1 HD', [cpStandard, cpMax]);
+      AddNew('Fashion TV', [cpStandard, cpMax]);
+      AddNew('FashionBox HD', [cpMax]);
+      AddNew('Fast&FunBOX HD', [cpMax]);
+      AddNew('FightBox HD', [cpMax]);
+      AddNew('Film Europe', [cpStandard, cpMax]);
+      AddNew('Film Europe HD', [cpStandard, cpMax]);
+      AddNew('Film Europe + HD', [cpMax]);
+      AddNew('Filmbox', [cpStandard, cpMax]);
+      AddNew('Filmbox Extra HD', [cpMax]);
+      AddNew('Filmbox Family', [cpMax]);
+      AddNew('Filmbox Plus', [cpMax]);
+      AddNew('Filmbox Premium', [cpMax]);
+      AddNew('Filmbox Premium HD', [cpMax]);
+      AddNew('Fishing & Hunting', [cpStandard, cpMax]);
+      AddNew('France 24', [cpMax]);
+      AddNew('Golf Channel HD', [cpMax]);
+      AddNew('Investigation discovery', [cpBasic, cpMax]);
+      AddNew('Jednotka', [cpBasic, cpStandard, cpMax]);
+      AddNew('Jednotka HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Jihočeská televize', [cpBasic, cpStandard, cpMax]);
+      AddNew('JOJ Family HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('JOJ Cinema HD', [cpStandard, cpMax]);
+      AddNew('Kino Barrandov HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Markíza International HD', [cpStandard, cpMax]);
+      AddNew('Minimax', [cpStandard, cpMax]);
+      AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
+      AddNew('MTV CZ', [cpStandard, cpMax]);
+      AddNew('NASA Tv HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('National Geographic', [cpStandard, cpMax]);
+      AddNew('National Geographic HD', [cpMax]);
+      AddNew('National Geographic Wild', [cpStandard, cpMax]);
+      AddNew('Nickelodeon', [cpStandard, cpMax]);
+      AddNew('Nickelodeon Jr.', [cpStandard, cpMax]);
+      AddNew('Nova', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova 2', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova 2 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Action', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Action HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Cinema', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Cinema HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Gold', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Gold HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Nova Sport 1', [cpStandard, cpMax]);
+      AddNew('Nova Sport 1 HD', [cpMax]);
+      AddNew('Nova Sport 2 HD', [cpStandard, cpMax]);
+      AddNew('Óčko', [cpBasic, cpStandard, cpMax]);
+      AddNew('Óčko Star', [cpBasic, cpStandard, cpMax]);
+      AddNew('ORF1', [cpBasic, cpStandard, cpMax]);
+      AddNew('ORF2', [cpBasic, cpStandard, cpMax]);
+      AddNew('Polar', [cpBasic, cpStandard, cpMax]);
+      AddNew('Polsat', [cpBasic, cpStandard, cpMax]);
+      AddNew('Praha TV', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima COOL', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima COOL HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima Comedy Central', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima Krimi', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima Krimi HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima LOVE', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima MAX', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima ZOOM', [cpBasic, cpStandard, cpMax]);
+      AddNew('Prima ZOOM HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Pro 7', [cpBasic, cpStandard, cpMax]);
+      AddNew('Reality Kings TV', [cpMax]);
+      AddNew('Regionální.tv', [cpBasic, cpStandard, cpMax]);
+      AddNew('Relax', [cpBasic, cpStandard, cpMax]);
+      AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
+      AddNew('Seznam.cz TV', [cpBasic, cpStandard, cpMax]);
+      AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('Spektrum HD', [cpStandard, cpMax]);
+      AddNew('Sport 5', [cpMax]);
+      AddNew('Sport 1', [cpStandard, cpMax]);
+      AddNew('Sport 2 HD', [cpStandard, cpMax]);
+      AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]);
+      AddNew('Šlágr TV', [cpBasic, cpStandard, cpMax]);
+      AddNew('TA3', [cpBasic, cpStandard, cpMax]);
+      AddNew('TLC', [cpStandard, cpMax]);
+      AddNew('Travel Channel HD', [cpStandard, cpMax]);
+      AddNew('Trojka', [cpBasic, cpStandard, cpMax]);
+      AddNew('Trojka HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Barrandov', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Barrandov HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Brno 1', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Noe', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Puls', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Puls 2', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Rebel', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV Slovácko', [cpBasic, cpStandard, cpMax]);
+      AddNew('TV5Monde', [cpMax]);
+      AddNew('TVN', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVN 7', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP Historia', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP Info', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP 3 Katowice', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP Sport', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP1 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('TVP2 HD', [cpBasic, cpStandard, cpMax]);
+      AddNew('V1', [cpBasic, cpStandard, cpMax]);
+      AddNew('ZDF', [cpBasic, cpStandard, cpMax]);
+    end;
+
       Text := Text + '<h3>Výhody</h3>' +
       '<ul><li>velké množství televizních kanálů za nízkou cenu</li>' +
@@ -43 +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, tablet, smartphone nebo internetový prohlížeč</li>' +
+      '<li>televizi lze sledovat přes set-top box, Smart TV Samsung 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 4NET.TV services s.r.o.</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>' +
       '</ul><br/>' +
 
       '<h3>Základní balíčky</h3>' +
-      '<table class="WideTable"><tr><th>Balíček</th><th>Počet kanálů</th><th>Cena [Kč/měsíc]</th></tr>' +
-      '<tr><td>Basic</td><td>83</td><td>82</td></tr>' +
-      '<tr><td>Basic + tématika</td><td>104</td><td>91</td></tr>' +
-      '<tr><td>Standard</td><td>118</td><td>355</td></tr>' +
-      '<tr><td>Max</td><td>136</td><td>694</td></tr>' +
-      '</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/>' +
+      '<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>' +
+      '</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/>' +
 
       '<h3>Tématické balíčky</h3>' +
-      '<table class="WideTable"><tr><th>Balíček</th><th>Kanály</th><th>Cena [Kč/měsíc]</th></tr>' +
-      '<tr><td>HBO 1</td><td>HBO HD, HBO Comedy HD, HBO2 HD</td><td>182</td></tr>' +
-      '<tr><td>HBO 2</td><td>Cinemax HD, Cinamex2 HD, HBO HD, HBO 2 HD, HBO Comedy HD</td><td>241</td></tr>' +
-      '<tr><td>Film</td><td>Film Europe, Film Europe HD, Film+, AXN, AXN White, AXN Black, Filmbox, JOJ Cinema HD</td><td>49</td></tr>' +
-      '<tr><td>Superbox</td><td>Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus</td><td>146</td></tr>' +
-      '<tr><td>Sport</td><td>Eurosport HD, Eurosport 2 HD, Nova Sport 1, Sport 5, Nova Sport 1 HD, Nova Sport 2 HD, ArenaSPORT 1, ArenaSPORT 2 HD, Golf Channel</td><td>67</td></tr>' +
-      '<tr><td>Dětské</td><td>Disney Channel, Disney Channel junior, Nickelodeon, Nickelodeon Junior, Baby TV</td><td>37</td></tr>' +
-      '<tr><td>Česky</td><td>CS Film/CS mini, Horor film, DokuCS, Kino CS, Muzika CS</td><td>43</td></tr>' +
-      '<tr><td>Láska</td><td>Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV</td><td>49</td></tr>' +
-      '<tr><td>Zpravodaj</td><td>BBC World, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde</td><td>15</td></tr>' +
-      '<tr><td>Dokument</td><td>Discovery, National Geographic, National Geographic Wild, Animal Planet, TLC, Fishing & Hunting, Discovery HD, IDX, Discovery Science, DTX, National Geograpic HD, Travel Channel</td><td>73</td></tr>' +
-      '</table>Celková cena vznikne jako součet zvolených tématických balíčků a zákaldního balíčku Basic + tématika.<br/>' +
+      '<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>' +
+      '</table>' +
+      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
 
       //'<h3>Programová nabídka</h3>' +
@@ -83 +295 @@
       'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
       '<br/>' +
-      'Ceny uvedeny včetně DPH platné od 1.6.2018.';
+      'Ceny uvedeny včetně DPH platné od 24.7.2020.';
+      Channels.Free;
     end;
     GeneratePage(Self);