Guardiamo Televideo
Come sapere RAI Televideo è un servizio che la RAI vi offre, organizzato per pagina e notizie in tempo reale su qualunque argomento, cronaca, politica, sport e altro.
Se volete anche voi avere un clone dell’applicazione ufficiale della Rai, è molto semplice scriberla.
Una pagina del Televideo altro non è che una semplice immagine JPG, quindi con la tecnologia che più vi aggrada e con qualunque linguaggio diventa molto semplice scriverla.
Io proverò in VB.NET e WPF. Ci mettiamo nella Window semplicemente 4 oggetti: due TextBox, un comando e un controllo Image.
Questo il codice XAML:
<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
xmlns:local="clr-namespace:WpfApp1"
mc:Ignorable="d"
Title="MainWindow" Height="800" Width="800">
<Grid>
<Grid.RowDefinitions>
<RowDefinition Height="Auto"/>
<RowDefinition Height="*"/>
</Grid.RowDefinitions>
<Grid>
<Grid.ColumnDefinitions>
<ColumnDefinition/>
<ColumnDefinition/>
<ColumnDefinition/>
</Grid.ColumnDefinitions>
<TextBox Grid.Column="0" Name="PaginaTextBox" HorizontalAlignment="Left" Height="32" TextWrapping="Wrap" Text="" VerticalAlignment="Top" Width="126"/>
<TextBox Grid.Column="1" TextWrapping="Wrap" Text="" Width="120" Height="32" Name="InternaTextBox"/>
<Button Grid.Column="2" Content="Visualizza" Height="32" Width="100" Click="Button_Click"/>
</Grid>
<Image Grid.Row="1" Width="700" Height="700" Name="TelevideoImage"/>
</Grid>
</Window>
Ovviamente lo si può migliorare ma non ci interessa adesso questo:
Veniamo al code-behind.
Le due caselle di testo indicano la pagina principale (con eventuale sotto pagina 1) e le sottopagine dalla 2 in poi.
Facciamo doppio click sul pulsante e all’interno della routine ci scriviamo questo codice.
Dim LinkTelevideoFisso As String _
= "http://www.televideo.rai.it/televideo/pub/tt4web/Nazionale/page-"
Dim LinkTelevideo As String = ""
If InternaTextBox.Text = "" Then
LinkTelevideo = LinkTelevideoFisso & PaginaTextBox.Text & ".png"
Else
LinkTelevideo = LinkTelevideoFisso & PaginaTextBox.Text & "." & InternaTextBox.Text & ".png"
End If
Dim Url As Uri = New Uri(LinkTelevideo, UriKind.Absolute)
Dim Image As New BitmapImage()
Image.BeginInit()
Image.DecodePixelWidth = 700
Image.CacheOption = BitmapCacheOption.OnLoad
Image.UriSource = Url
Image.EndInit()
TelevideoImage.Source = Image
TelevideoImage.UpdateLayout()
Image = Nothing
Lanciamo l’applicazione e mettiamo la pagina 101:

Ora mettiamo la pagina 102/2:

Certo, si può poi migliorare, ma vi ho dato una base, uni spunto, un’idea, nel caso non sapeste cosa fare.
Leggi l'articolo intero | Make a Comment ( None so far )