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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
| Public Class Frm_Video
Private Sub Bt_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt_Search.Click
Lst_Result.Items.Clear()
Lst_ID.Items.Clear()
Lst_Acteurs.Items.Clear()
Lst_Real.Items.Clear()
txt_Annee.Clear()
txt_Duree.Clear()
txt_Editeur.Clear()
txt_Genre.Clear()
txt_ID.Clear()
txt_Media.Clear()
txt_Synopsis.Clear()
txt_Titre.Clear()
txt_VO.Clear()
picb_Cover.ImageLocation = "C:\Users\Florent\documents\visual studio 2010\Projects\AppVideoSoft\VideoSoft\Image\NoDVD.jpg"
Link_URL.Text = ""
'-- Lire un doc XML
Dim xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.load("http://www.dvdfr.com/api/search.php?title=" & Chr(34) & Txt_SearchTitre.Text & Chr(34))
Dim oElement = xmlDoc.documentElement
If Not oElement Is Nothing Then
For Each Titre In oElement.getElementsByTagName("fr")
Lst_Result.Items.Add(Titre.Text)
Next
End If
If Not oElement Is Nothing Then
For Each ID In oElement.getElementsByTagName("id")
Lst_ID.Items.Add(ID.Text)
Next
End If
End Sub
Private Sub Lst_Result_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Lst_Result.SelectedIndexChanged
Lst_Acteurs.Items.Clear()
Lst_Real.Items.Clear()
Dim xmlDoc = CreateObject("Microsoft.XMLDOM")
Dim NumItm = Lst_Result.SelectedIndex
Dim id = CStr(Lst_ID.Items(NumItm))
xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement
xmlDoc.load("http://www.dvdfr.com/api/dvd.php?id=" & Chr(34) & id & Chr(34))
Dim oElement = xmlDoc.documentElement
If Not oElement Is Nothing Then
For Each Titre In oElement.getElementsByTagName("fr")
txt_Titre.Text = Titre.Text
Next
End If
If Not oElement Is Nothing Then
For Each idFiche In oElement.getElementsByTagName("id")
txt_ID.Text = idFiche.Text
Next
End If
If Not oElement Is Nothing Then
For Each url In oElement.getElementsByTagName("url")
Link_URL.Text = url.Text
Next
End If
If Not oElement Is Nothing Then
For Each img In oElement.getElementsByTagName("cover")
picb_Cover.ImageLocation = img.Text
Next
End If
If Not oElement Is Nothing Then
For Each Support In oElement.getElementsByTagName("media")
txt_Media.Text = Support.Text
Next
End If
If Not oElement Is Nothing Then
For Each TitreVo In oElement.getElementsByTagName("vo")
txt_VO.Text = TitreVo.Text
Next
End If
If Not oElement Is Nothing Then
For Each editeur In oElement.getElementsByTagName("editeur")
txt_Editeur.Text = editeur.Text
Next
End If
If Not oElement Is Nothing Then
For Each annee In oElement.getElementsByTagName("annee")
txt_Annee.Text = annee.Text
Next
End If
If Not oElement Is Nothing Then
For Each Synop In oElement.getElementsByTagName("synopsis")
txt_Synopsis.Text = Synop.Text
Next
End If
If Not oElement Is Nothing Then
For Each duree In oElement.getElementsByTagName("duree")
txt_Duree.Text = duree.Text
Next
End If
If Not oElement Is Nothing Then
For Each cat In oElement.getElementsByTagName("categorie")
txt_Genre.Text = cat.Text
Next
End If
If Not oElement Is Nothing Then
For Each acteur In oElement.getElementsByTagName("stars")
Lst_Acteurs.Items.Add(acteur.Text)
Next
End If
If Not oElement Is Nothing Then
For Each real In oElement.getElementsByTagName("realisteur")
Lst_Real.Items.Add(real.Text)
Next
End If
End Sub
End Class |
