Load Image dans listview1 avec HTML

Version imprimable

Bonjour,

voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public Class Form1
    Dim URL As String = "http://flux.radio.free.fr/"
    Dim imgList As New ImageList
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        imgList.ImageSize = New Size(48, 48)
        ListView1.SmallImageList = imgList
        Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
        Dim response As System.Net.HttpWebResponse = CType(request.GetResponse, Net.HttpWebResponse)
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim resourcecode As String = sr.ReadToEnd
        Dim r As New System.Text.RegularExpressions.Regex("<td(.*)>(.*)</td>", RegexOptions.IgnoreCase)
        Dim i As New System.Text.RegularExpressions.Regex("img alt="""" src=(.*)""", RegexOptions.IgnoreCase)
        Dim matches2 As MatchCollection = r.Matches(resourcecode)
        Dim matches As MatchCollection = i.Matches(resourcecode)
        For Each itemcode2 As Match In matches2
            For Each itemcode As Match In matches
                Dim urlimage As String = itemcode.Groups(1).Value
                urlimage = urlimage.Replace("""", "")
                Dim index As Integer = 0
                imgList.Images.Add(ChargerImage("http://flux.radio.free.fr/" & urlimage))
                Dim lvi As New ListViewItem(urlimage)
                lvi.ImageIndex = index
                lvi.SubItems.Add(itemcode2.Groups(2).Value)
                ListView1.Items.Add(lvi)
            Next
        Next
    End Sub
 
    Private Function ChargerImage(ByVal url As String) As Image
        Dim client As New WebClient()
        Using str As Stream = client.OpenRead(url)
            Return Image.FromStream(str)
        End Using
    End Function
 
End Class

je suis entrain de créer un web radio par rapport au lien de la station.
je voudrais savoir si il y a un moyen pour charger l'image plus rapidement car avec mon ça prend plus 5 min pour charger l'image.

avez-vous une solution pour charger l'image dans listview1 plus rapidement.
Merci de votre compréhension,

09/04/2019, 14h43
ebastien

Bonjour,

Tes deux boucles imbriquées me paraissent bizarres : ta première regexp récupère des libellés je suppose et ta deuxième les images. Pour un libellé, une image donc je ne comprend par les Foreach imbriqués.
Ton code va récupérer toutes les images sur chaque libellé. Je comprends que ce soit long... :aie:
Pour faire plus rapide, je pense que charger chaque image une seule fois peut être la solution ;)

1 pièce(s) jointe(s)

Bonjour,

Merci d'avoir répondu ebastien,

j'ai un petit problème avec les stations dans listview1, il sont en triple le mème station dans listview1.
voici en image :
Pièce jointe 465357

mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
        Dim response As System.Net.HttpWebResponse = CType(request.GetResponse, Net.HttpWebResponse)
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim str As String = sr.ReadToEnd
        Dim r As New System.Text.RegularExpressions.Regex(".*<td>([^<]*)</td>.*", RegexOptions.IgnoreCase)
Dim matches2 As MatchCollection = r.Matches(str)
For Each itemcode2 As Match In matches2
Dim lvi As New ListViewItem()
lvi.SubItems.Add(itemcode2.Groups(1).Value)
                ListView1.Items.Add(lvi)
next
response.Close()
        sr.Close()

j'arrive pas a voir les stations un par un. avez-vous un idée comment faire?
Merci

10/04/2019, 11h36
ebastien

Bonjour,

Probablement l'expression régulière à revoir. Sinon, passer par une liste (ce qui sera de toute façon plus propre) et supprimer les doublons à l'aide de Enumerable.Distinct.

Bonjour,

j'ai essayer avec xmldocument mais j'arrive pas lire.

voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim URL As String = "http://flux.radio.free.fr/"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim request As System.Net.HttpWebRequest = CType(System.Net.HttpWebRequest.Create(URL), Net.HttpWebRequest)
        Dim response As System.Net.HttpWebResponse = CType(request.GetResponse, Net.HttpWebResponse)
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
        Dim str As String = sr.ReadToEnd
        Dim xmlDoc As New XmlDocument()
        Dim namespaces As New XmlNamespaceManager(xmlDoc.NameTable)
        namespaces.AddNamespace("ns", "http://www.w3.org/1999/xhtml")
        xmlDoc.LoadXml(Str)
        Dim nodes As XmlNodeList = xmlDoc.DocumentElement.SelectNodes("/ns:html/ns:body/ns:tr", namespaces)
        For Each node As XmlNode In nodes
            Dim addr As String = node.SelectSingleNode("ns:td width="".*""", namespaces).InnerText
            RichTextBox1.AppendText(addr & Environment.NewLine)
        Next
    End Sub

voici html en txt :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
 
<head>
<meta content="fr" http-equiv="Content-Language" />
<meta content="text/html; charset=utf-8" http-equiv="Content-Type" />
<title>Site en cours de maintenance</title>
<style type="text/css">
.style1 {
        text-align: center;
}
.style2 {
        text-align: center;
        text-decoration: underline;
}
</style>
</head>
 
<body>
 
<p class="style1">
<img alt="Annuaire des flux radio" height="134" src="logo6.gif" width="476" /></p>
<p class="style1">Site en cours de maintenance !&nbsp; Mais retrouvez tous vos 
liens ci dessous ! ;)</p>
<h2 class="style2">Radios d’infos</h2>
<p><img alt="" src="Sans%20titre%2035.gif" />:</p>
<table id="table25" bgcolor="#e5e5e5" border="1" bordercolor="#808080" style="width: 403px; border-collapse: collapse; height: 16px;">
	<tr>
		<td width="399">http://streaming.radio.rtl.fr/rtl-1-44-96</td>
	</tr>
</table>
<hr />
<p class="story"><img alt="" src="Sans%20titre%2036.gif" />:</p>
<table id="table26" bgcolor="#e5e5e5" border="1" bordercolor="#808080" style="width: 403px; border-collapse: collapse; height: 16px;">
	<tr>
		<td width="399">http://cache.yacast.fr/V4/rmc/rmc.m3u</td>
	</tr>
</table>
<hr />
<p class="story"><img alt="" src="Sans%20titre%2037.gif" />:</p>
<table id="table27" bgcolor="#e5e5e5" border="1" bordercolor="#808080" style="width: 403px; border-collapse: collapse; height: 16px;">
	<tr>
		<td width="399">http://live.europe1.fr/V4/europe1/europe1.asx</td>
	</tr>
</table>
<hr />
<p class="story"><img alt="" src="Sans%20titre%2038.gif" />:</p>
<table id="table28" bgcolor="#e5e5e5" border="1" bordercolor="#808080" style="width: 494px; border-collapse: collapse; height: 16px;">
	<tr>
		<td width="490">
		http://www.tv-radio.com/station/france_inter_mp3/france_inter_mp3-128k.m3u</td>
	</tr>
</table>
<!-- ...... etc -->

je voudrais savoir comment le lire xmldocument le fichier HTML? d’où vient le problème de lecture.

12/04/2019, 11h52
ebastien

Bonjour,

A mon avis l'expression régulière est préférable. D'autant que tu pourrais la paramétrer au cas où la structure du site change.
Ta première piste me paraît donc être la bonne. Tu reprends ton code, et plutôt que de mettre directement le résultat dans la ListView, tu construis une liste<string> et tu supprimes les doublons de cette liste si tu as des doublons.

Maintenant, le mieux serait quand même de créer une classe Radio comportant le nom, l'url, l'image etc et de stocker les Radio(s) dans une List<Radio>.