Récuperer données d'une page Web

**FCL31** · 20/11/2013, 11h15

Bonjour ebastien (et les passant qui passent)

Pour le renommage des TexBox, c'est Prévu

Pour l'instance WebClient, si j'ai bien compris, il faut mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim WebRequest As WebClient = New WebClient
WebRequest.Headers(HttpRequestHeader.UserAgent) = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727)"
Dim URL as string = "Url API de DVDfr.com (je suppose)"
Dim WebPage As String = WebRequest.DownloadString(URL)

Il faut le mettre dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Class Form1

??

Si je comprend bien, l'API d'un site, permet de récupérer des "variables" spécifique à ce site.

Le problème, c'est que je sais pas comment obtenir l'API du site.
Je sais pas si c'est un ficher (j'ai cru comprendre sur certains site que certaines API sont des fichiers qu'on va chercher dans VB).

Mais si je comprend bien, se que je doute, en utilisant l'instance web client, on va chercher l'API du site directement sur le site.
Le problème, je pense c'est qu'il faut impérativement une connexion internet pour l'utilisation de l'appli.

Je suis pas sur dutout de bien comprendre.
Comme je pensais récupérer les infos via la page HTML du site, je ne m'étais pas penché sur l'utilisation de l'API et plus je regarde sur le net et moins je comprend. Certains appellent le serveur d'un site, d'autres parlent de fichier dll ...

Surtout que je suis sur 2 PC :
- Un qui a internet mais certains sites sont bloqués et bien sur c'est la cas pour DVDFr.com
- l'autre, sur lequel est installer Visual Basic n'as pas internet.
Avec ça, je suis bien avancé.

Je ne sais même pas comment tu as fait pour avoir le code xml d'un fiche d'un film. En avoir plusieurs, pourrais faciliter ma compréhension.

Bref, malgré pas mal de recherche, même si j'ai quand même avancé grace à toi, je suis toujours un peut perdu.
Mais je suis sur qu'on va y arriver.

Encore merci

**wallace1** · 20/11/2013, 13h47

Bonjour,

Si tu travailles avec les echanges de donnees provenants du web alors je te conseille d utiliser Fiddler (http://fiddler2.com) pour analyser en tps reel les requetes emises et recus.
Cela t aidera a analyser ce qu il se passe lorsque tu es sur un site et que tu cliques sur le bouton "rechercher", ce que te renvoie le site en reponse par exemple.....etc......

Une fonction API d un site web permet de simplifier le travail :
- lors de la composition des requetes vers le site.
- lorsqu un resultat est renvoyé il est generalement formaté en xml facilitant ainsi le travail du parsing dans la reponse.

Si tu veux des explications rapides sur l utilisation de Fiddler je suis dispo des ce soir

A+

**ebastien** · 20/11/2013, 14h01

Envoyé par FCL31

Comme je pensais récupérer les infos via la page HTML du site, je ne m'étais pas penché sur l'utilisation de l'API

Le principe est le même : d'un coté tu interroges une Url qui te retourne du HTML (page web), d'un autre tu interroges une Url qui te retourne du XML. Tu utiliseras un WebBrowser dans le premier cas pour afficher la page HTML mais tu peux aussi utiliser un WebClient qui permettra (entre autres) de récupérer directement le retour de ta requête (ici du XML) afin de faire l'analyse que tu veux.
Le mot API est très général (Application Programming Interface). Ca peut englober toutes sortes de notions (fonctions locales, webservice, url etc..). Ne t'embrouille pas avec ca.

Mais si je comprend bien, se que je doute, en utilisant l'instance web client, on va chercher l'API du site directement sur le site.
Le problème, je pense c'est qu'il faut impérativement une connexion internet pour l'utilisation de l'appli.

C'est la base de ton appli non ? rechercher sur internet les informations concernant un film. Sans connexion internet, c'est pas possible

Surtout que je suis sur 2 PC :
- Un qui a internet mais certains sites sont bloqués et bien sur c'est la cas pour DVDFr.com
- l'autre, sur lequel est installer Visual Basic n'as pas internet.
Avec ça, je suis bien avancé.

Effectivement, ça va pas être simple... développer un soft qui doit se connecter sur un site sans pouvoir se connecter sur le dit site, je ne sais pas comment tu vas faire. Trouve une machine qui peut se connecter au site, va voir la documentation des apis et tout te paraîtra moins obscure.

Globalement, tu as 2 apis :

- La première te permet de rechercher un film par son titre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://www.dvdfr.com/api/search.php?title="pacific rim"

ça te retourne :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<?xml version="1.0" encoding="ISO-8859-1" ?>
<dvds generator="$Id: dvd.tpl 855 2008-08-04 15:53:24Z glapierre $">
	<dvd>
		<id>157284</id>
		<media>BRD-3D</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Combo Blu-ray 3D + Blu-ray + Copie digitale - Packaging en relief</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>157041</id>
		<media>BRD-3D</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Ultimate Edition - Blu-ray 3D + Blu-ray + DVD + Copie digitale</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>157040</id>
		<media>BRD</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Blu-ray + Copie digitale</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>65924</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition></edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
</dvds>

ou encore dans le cas où plusieurs films existent pour ta recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://www.dvdfr.com/api/search.php?title="pacific"

Résultat :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
<?xml version="1.0" encoding="ISO-8859-1" ?>
<dvds generator="$Id: dvd.tpl 855 2008-08-04 15:53:24Z glapierre $">
	<dvd>
		<id>153627</id>
		<media>BRD</media>
		<titres>
			<fr>Band of Brothers + The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2001</annee>
		<edition>Édition Limitée</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="13175">Phil Alden Robinson</star>
			<star type="Réalisateur" id="14336">Richard Loncraine</star>
			<star type="Réalisateur" id="3647">Mikael Salomon</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="46308">Tom Hanks</star>
			<star type="Réalisateur" id="14337">David Leland</star>
			<star type="Réalisateur" id="14338">David Frankel</star>
			<star type="Réalisateur" id="46314">Tony To</star>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
		</stars>
	</dvd>
	<dvd>
		<id>54316</id>
		<media>DVD</media>
		<titres>
			<fr>Band of Brothers + The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2001</annee>
		<edition>Édition Limitée</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="13175">Phil Alden Robinson</star>
			<star type="Réalisateur" id="14336">Richard Loncraine</star>
			<star type="Réalisateur" id="3647">Mikael Salomon</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="46308">Tom Hanks</star>
			<star type="Réalisateur" id="14337">David Leland</star>
			<star type="Réalisateur" id="14338">David Frankel</star>
			<star type="Réalisateur" id="46314">Tony To</star>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
		</stars>
	</dvd>
	<dvd>
		<id>13919</id>
		<media>DVD</media>
		<titres>
			<fr>Coffret George Clooney : Intolérable cruauté + Hors d'atteinte + Le pacificateur</fr>
			<vo>Intolerable Cruelty + Out of Sight + The Peacemaker</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee></annee>
		<edition>Pack</edition>
		<editeur>Universal Pictures</editeur>
		<stars>
			<star type="Réalisateur" id="4783">Joel Coen</star>
			<star type="Réalisateur" id="4449">Steven Soderbergh</star>
			<star type="Réalisateur" id="11172">Mimi Leder</star>
		</stars>
	</dvd>
	<dvd>
		<id>31057</id>
		<media>DVD</media>
		<titres>
			<fr>Duel dans le Pacifique</fr>
			<vo>Hell in the Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1968</annee>
		<edition></edition>
		<editeur>Aventi Distribution</editeur>
		<stars>
			<star type="Réalisateur" id="11227">John Boorman</star>
		</stars>
	</dvd>
	<dvd>
		<id>65551</id>
		<media>DVD</media>
		<titres>
			<fr>Grands classiques films de guerre : La bataille de Bloody Beach + Pacific Inferno + Au service de Sa Majesté</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee></annee>
		<edition>Pack</edition>
		<editeur>Filmedia</editeur>
		<stars>
			<star type="Réalisateur" id="5460">Raoul Walsh</star>
			<star type="Réalisateur" id="106420">Herbert Coleman</star>
			<star type="Réalisateur" id="100007">Rolf Bayer</star>
		</stars>
	</dvd>
	<dvd>
		<id>29350</id>
		<media>DVD</media>
		<titres>
			<fr>Les Griffes jaunes</fr>
			<vo>Across the Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1942</annee>
		<edition></edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="1716">John Huston</star>
		</stars>
	</dvd>
	<dvd>
		<id>64452</id>
		<media>DVD</media>
		<titres>
			<fr>HBO découverte - Saisons 1 - Game of Thrones + The Pacific + Rome + Sur écoute + Six Feet Under</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2001</annee>
		<edition>Pack</edition>
		<editeur>HBO</editeur>
		<stars>
		</stars>
	</dvd>
	<dvd>
		<id>13900</id>
		<media>DVD</media>
		<titres>
			<fr>John Wayne - Coffret - Les cowboys + Chisum + Rio Bravo + Opération dans le Pacifique + La prisonnière du désert + Les cordes de la potence</fr>
			<vo>The Cowboys + Chisum + Rio Bravo + Operation Pacific + The Searchers + Cahill U.S. Marshal</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee></annee>
		<edition></edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="10298">Mark Rydell</star>
			<star type="Réalisateur" id="9063">Andrew V. McLaglen</star>
			<star type="Réalisateur" id="8050">Howard Hawks</star>
			<star type="Réalisateur" id="5649">George Waggner</star>
			<star type="Réalisateur" id="8689">John Ford</star>
		</stars>
	</dvd>
	<dvd>
		<id>8651</id>
		<media>DVD</media>
		<titres>
			<fr>Opération dans le Pacifique</fr>
			<vo>Operation Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1951</annee>
		<edition></edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5649">George Waggner</star>
		</stars>
	</dvd>
	<dvd>
		<id>63380</id>
		<media>DVD</media>
		<titres>
			<fr>The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2010</annee>
		<edition></edition>
		<editeur>HBO</editeur>
		<stars>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
			<star type="Réalisateur" id="46314">Tony To</star>
		</stars>
	</dvd>
	<dvd>
		<id>152905</id>
		<media>BRD</media>
		<titres>
			<fr>The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2010</annee>
		<edition></edition>
		<editeur>HBO</editeur>
		<stars>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
			<star type="Réalisateur" id="46314">Tony To</star>
		</stars>
	</dvd>
	<dvd>
		<id>51325</id>
		<media>DVD</media>
		<titres>
			<fr>The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2010</annee>
		<edition></edition>
		<editeur>HBO</editeur>
		<stars>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
			<star type="Réalisateur" id="46314">Tony To</star>
		</stars>
	</dvd>
	<dvd>
		<id>151135</id>
		<media>BRD</media>
		<titres>
			<fr>The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2010</annee>
		<edition>Édition Limitée</edition>
		<editeur>HBO</editeur>
		<stars>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
			<star type="Réalisateur" id="46314">Tony To</star>
		</stars>
	</dvd>
	<dvd>
		<id>50020</id>
		<media>DVD</media>
		<titres>
			<fr>The Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2010</annee>
		<edition>Édition Limitée</edition>
		<editeur>HBO</editeur>
		<stars>
			<star type="Réalisateur" id="50613">Timothy Van Patten</star>
			<star type="Réalisateur" id="9865">David Nutter</star>
			<star type="Réalisateur" id="45166">Jeremy Podeswa</star>
			<star type="Réalisateur" id="7600">Graham Yost</star>
			<star type="Réalisateur" id="9991">Carl Franklin</star>
			<star type="Réalisateur" id="46314">Tony To</star>
		</stars>
	</dvd>
	<dvd>
		<id>11361</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Coffret 3 DVD - Volume 1</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1995</annee>
		<edition></edition>
		<editeur>UFG</editeur>
		<stars>
			<star type="Réalisateur" id="45963">plusieurs</star>
		</stars>
	</dvd>
	<dvd>
		<id>11362</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Coffret 3 DVD - Volume 2</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1995</annee>
		<edition></edition>
		<editeur>UFG</editeur>
		<stars>
			<star type="Réalisateur" id="45963">plusieurs</star>
		</stars>
	</dvd>
	<dvd>
		<id>32327</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Saison 1</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1995</annee>
		<edition></edition>
		<editeur>Emylia</editeur>
		<stars>
			<star type="Réalisateur" id="45963">plusieurs</star>
		</stars>
	</dvd>
	<dvd>
		<id>7557</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Saison 1.1</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1995</annee>
		<edition></edition>
		<editeur>UFG</editeur>
		<stars>
			<star type="Réalisateur" id="20894">David Barrett</star>
			<star type="Réalisateur" id="20895">Paul Brown</star>
			<star type="Réalisateur" id="17262">Lyndon Chubbuck</star>
			<star type="Réalisateur" id="20896">Jim Davidson</star>
		</stars>
	</dvd>
	<dvd>
		<id>7558</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Saison 1.2</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1995</annee>
		<edition></edition>
		<editeur>UFG</editeur>
		<stars>
			<star type="Réalisateur" id="20894">David Barrett</star>
			<star type="Réalisateur" id="20895">Paul Brown</star>
			<star type="Réalisateur" id="17262">Lyndon Chubbuck</star>
			<star type="Réalisateur" id="20896">Jim Davidson</star>
		</stars>
	</dvd>
	<dvd>
		<id>32936</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Saison 2</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1996</annee>
		<edition></edition>
		<editeur>Long Boat Entertainment</editeur>
		<stars>
			<star type="Réalisateur" id="45963">plusieurs</star>
		</stars>
	</dvd>
	<dvd>
		<id>32937</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Blue - Saison 3</fr>
			<vo>Pacific Blue</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1996</annee>
		<edition></edition>
		<editeur>Long Boat Entertainment</editeur>
		<stars>
			<star type="Réalisateur" id="45963">plusieurs</star>
		</stars>
	</dvd>
	<dvd>
		<id>48334</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Express</fr>
			<vo>Union Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1939</annee>
		<edition></edition>
		<editeur>MEP Vidéo</editeur>
		<stars>
			<star type="Réalisateur" id="11877">Cecil B. DeMille</star>
		</stars>
	</dvd>
	<dvd>
		<id>31949</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Express</fr>
			<vo>Union Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1939</annee>
		<edition></edition>
		<editeur>Universal Pictures</editeur>
		<stars>
			<star type="Réalisateur" id="11877">Cecil B. DeMille</star>
		</stars>
	</dvd>
	<dvd>
		<id>63297</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Inferno</fr>
			<vo>Dans l'enfer du Pacifique</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1979</annee>
		<edition></edition>
		<editeur>Filmedia</editeur>
		<stars>
			<star type="Réalisateur" id="100007">Rolf Bayer</star>
		</stars>
	</dvd>
	<dvd>
		<id>46504</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Inferno</fr>
			<vo>Dans l'enfer du Pacifique</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1979</annee>
		<edition></edition>
		<editeur>Filmedia</editeur>
		<stars>
			<star type="Réalisateur" id="100007">Rolf Bayer</star>
		</stars>
	</dvd>
	<dvd>
		<id>44777</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Palissades</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1990</annee>
		<edition></edition>
		<editeur>TF1 Vidéo</editeur>
		<stars>
			<star type="Réalisateur" id="15385">Bernard Schmitt</star>
		</stars>
	</dvd>
	<dvd>
		<id>157284</id>
		<media>BRD-3D</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Combo Blu-ray 3D + Blu-ray + Copie digitale - Packaging en relief</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>157041</id>
		<media>BRD-3D</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Ultimate Edition - Blu-ray 3D + Blu-ray + DVD + Copie digitale</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>157040</id>
		<media>BRD</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition>Blu-ray + Copie digitale</edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>65924</id>
		<media>DVD</media>
		<titres>
			<fr>Pacific Rim</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2013</annee>
		<edition></edition>
		<editeur>Warner Bros.</editeur>
		<stars>
			<star type="Réalisateur" id="5274">Guillermo del Toro</star>
		</stars>
	</dvd>
	<dvd>
		<id>30191</id>
		<media>DVD</media>
		<titres>
			<fr>Le Pacificateur</fr>
			<vo>The Peacemaker</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1997</annee>
		<edition></edition>
		<editeur>DreamWorks France</editeur>
		<stars>
			<star type="Réalisateur" id="11172">Mimi Leder</star>
		</stars>
	</dvd>
	<dvd>
		<id>2423</id>
		<media>DVD</media>
		<titres>
			<fr>Le Pacificateur</fr>
			<vo>The Peacemaker</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1997</annee>
		<edition></edition>
		<editeur>DreamWorks France</editeur>
		<stars>
			<star type="Réalisateur" id="11172">Mimi Leder</star>
		</stars>
	</dvd>
	<dvd>
		<id>154292</id>
		<media>BRD</media>
		<titres>
			<fr>Pacifique Sud</fr>
			<vo>South Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2009</annee>
		<edition></edition>
		<editeur>The Corporation</editeur>
		<stars>
			<star type="Réalisateur" id="44302">Mark Brownlow</star>
			<star type="Réalisateur" id="146127">Chiara Bellati</star>
			<star type="Réalisateur" id="146128">Jonathan Clay</star>
		</stars>
	</dvd>
	<dvd>
		<id>57018</id>
		<media>DVD</media>
		<titres>
			<fr>Pacifique Sud</fr>
			<vo>South Pacific</vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>2009</annee>
		<edition></edition>
		<editeur>The Corporation</editeur>
		<stars>
			<star type="Réalisateur" id="44302">Mark Brownlow</star>
			<star type="Réalisateur" id="146127">Chiara Bellati</star>
			<star type="Réalisateur" id="146128">Jonathan Clay</star>
		</stars>
	</dvd>
	<dvd>
		<id>24001</id>
		<media>DVD</media>
		<titres>
			<fr>South Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1958</annee>
		<edition>Édition Collector</edition>
		<editeur>20th Century Fox</editeur>
		<stars>
			<star type="Réalisateur" id="4864">Joshua Logan</star>
		</stars>
	</dvd>
	<dvd>
		<id>23996</id>
		<media>DVD</media>
		<titres>
			<fr>South Pacific</fr>
			<vo></vo>
			<alternatif></alternatif>
			<alternatif_vo></alternatif_vo>
		</titres>
		<annee>1958</annee>
		<edition>Édition Simple</edition>
		<editeur>20th Century Fox</editeur>
		<stars>
			<star type="Réalisateur" id="4864">Joshua Logan</star>
		</stars>
	</dvd>
</dvds>

- La seconde te permet de trouver un film par son id (quand tu as plusieurs films pour la recherche) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

http://www.dvdfr.com/api/dvd.php?id=xxx

(Pour obtenir ces résultats, j'ai juste tapé l'url dans un browser)

Voilà, avec ça, tu as du grain à moudre

Bon courage !

**FCL31** · 20/11/2013, 14h45

Ok

Merci à vous, je regarde se soir sur un PC qui a Visual Basic et le Net.

A+

**FCL31** · 22/11/2013, 14h34

C'est re moi

Avec pas trop de temps, j'ai avancé un petit peut.

Toutefois, j'ai un truc que je comprend pas avec l'API de DVDfr :
Sur se post : http://www.developpez.net/forums/d13...b/#post7576185
Le code XML est complet alors que pour code XML fourni il manque beaucoup d'infos

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
<?xml version="1.0" encoding="ISO-8859-1" ?>
<dvds generator="$Id: dvd.tpl 855 2008-08-04 15:53:24Z glapierre $">
    <dvd>
        <id>153627</id>
        <media>BRD</media>
        <titres>
            <fr>Band of Brothers + The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2001</annee>
        <edition>Édition Limitée</edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="13175">Phil Alden Robinson</star>
            <star type="Réalisateur" id="14336">Richard Loncraine</star>
            <star type="Réalisateur" id="3647">Mikael Salomon</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="46308">Tom Hanks</star>
            <star type="Réalisateur" id="14337">David Leland</star>
            <star type="Réalisateur" id="14338">David Frankel</star>
            <star type="Réalisateur" id="46314">Tony To</star>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
        </stars>
    </dvd>
    <dvd>
        <id>54316</id>
        <media>DVD</media>
        <titres>
            <fr>Band of Brothers + The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2001</annee>
        <edition>Édition Limitée</edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="13175">Phil Alden Robinson</star>
            <star type="Réalisateur" id="14336">Richard Loncraine</star>
            <star type="Réalisateur" id="3647">Mikael Salomon</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="46308">Tom Hanks</star>
            <star type="Réalisateur" id="14337">David Leland</star>
            <star type="Réalisateur" id="14338">David Frankel</star>
            <star type="Réalisateur" id="46314">Tony To</star>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
        </stars>
    </dvd>
    <dvd>
        <id>13919</id>
        <media>DVD</media>
        <titres>
            <fr>Coffret George Clooney : Intolérable cruauté + Hors d'atteinte + Le pacificateur</fr>
            <vo>Intolerable Cruelty + Out of Sight + The Peacemaker</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee></annee>
        <edition>Pack</edition>
        <editeur>Universal Pictures</editeur>
        <stars>
            <star type="Réalisateur" id="4783">Joel Coen</star>
            <star type="Réalisateur" id="4449">Steven Soderbergh</star>
            <star type="Réalisateur" id="11172">Mimi Leder</star>
        </stars>
    </dvd>
    <dvd>
        <id>31057</id>
        <media>DVD</media>
        <titres>
            <fr>Duel dans le Pacifique</fr>
            <vo>Hell in the Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1968</annee>
        <edition></edition>
        <editeur>Aventi Distribution</editeur>
        <stars>
            <star type="Réalisateur" id="11227">John Boorman</star>
        </stars>
    </dvd>
    <dvd>
        <id>65551</id>
        <media>DVD</media>
        <titres>
            <fr>Grands classiques films de guerre : La bataille de Bloody Beach + Pacific Inferno + Au service de Sa Majesté</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee></annee>
        <edition>Pack</edition>
        <editeur>Filmedia</editeur>
        <stars>
            <star type="Réalisateur" id="5460">Raoul Walsh</star>
            <star type="Réalisateur" id="106420">Herbert Coleman</star>
            <star type="Réalisateur" id="100007">Rolf Bayer</star>
        </stars>
    </dvd>
    <dvd>
        <id>29350</id>
        <media>DVD</media>
        <titres>
            <fr>Les Griffes jaunes</fr>
            <vo>Across the Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1942</annee>
        <edition></edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="1716">John Huston</star>
        </stars>
    </dvd>
    <dvd>
        <id>64452</id>
        <media>DVD</media>
        <titres>
            <fr>HBO découverte - Saisons 1 - Game of Thrones + The Pacific + Rome + Sur écoute + Six Feet Under</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2001</annee>
        <edition>Pack</edition>
        <editeur>HBO</editeur>
        <stars>
        </stars>
    </dvd>
    <dvd>
        <id>13900</id>
        <media>DVD</media>
        <titres>
            <fr>John Wayne - Coffret - Les cowboys + Chisum + Rio Bravo + Opération dans le Pacifique + La prisonnière du désert + Les cordes de la potence</fr>
            <vo>The Cowboys + Chisum + Rio Bravo + Operation Pacific + The Searchers + Cahill U.S. Marshal</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee></annee>
        <edition></edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="10298">Mark Rydell</star>
            <star type="Réalisateur" id="9063">Andrew V. McLaglen</star>
            <star type="Réalisateur" id="8050">Howard Hawks</star>
            <star type="Réalisateur" id="5649">George Waggner</star>
            <star type="Réalisateur" id="8689">John Ford</star>
        </stars>
    </dvd>
    <dvd>
        <id>8651</id>
        <media>DVD</media>
        <titres>
            <fr>Opération dans le Pacifique</fr>
            <vo>Operation Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1951</annee>
        <edition></edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="5649">George Waggner</star>
        </stars>
    </dvd>
    <dvd>
        <id>63380</id>
        <media>DVD</media>
        <titres>
            <fr>The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2010</annee>
        <edition></edition>
        <editeur>HBO</editeur>
        <stars>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
            <star type="Réalisateur" id="46314">Tony To</star>
        </stars>
    </dvd>
    <dvd>
        <id>152905</id>
        <media>BRD</media>
        <titres>
            <fr>The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2010</annee>
        <edition></edition>
        <editeur>HBO</editeur>
        <stars>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
            <star type="Réalisateur" id="46314">Tony To</star>
        </stars>
    </dvd>
    <dvd>
        <id>51325</id>
        <media>DVD</media>
        <titres>
            <fr>The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2010</annee>
        <edition></edition>
        <editeur>HBO</editeur>
        <stars>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
            <star type="Réalisateur" id="46314">Tony To</star>
        </stars>
    </dvd>
    <dvd>
        <id>151135</id>
        <media>BRD</media>
        <titres>
            <fr>The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2010</annee>
        <edition>Édition Limitée</edition>
        <editeur>HBO</editeur>
        <stars>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
            <star type="Réalisateur" id="46314">Tony To</star>
        </stars>
    </dvd>
    <dvd>
        <id>50020</id>
        <media>DVD</media>
        <titres>
            <fr>The Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2010</annee>
        <edition>Édition Limitée</edition>
        <editeur>HBO</editeur>
        <stars>
            <star type="Réalisateur" id="50613">Timothy Van Patten</star>
            <star type="Réalisateur" id="9865">David Nutter</star>
            <star type="Réalisateur" id="45166">Jeremy Podeswa</star>
            <star type="Réalisateur" id="7600">Graham Yost</star>
            <star type="Réalisateur" id="9991">Carl Franklin</star>
            <star type="Réalisateur" id="46314">Tony To</star>
        </stars>
    </dvd>
    <dvd>
        <id>11361</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Coffret 3 DVD - Volume 1</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1995</annee>
        <edition></edition>
        <editeur>UFG</editeur>
        <stars>
            <star type="Réalisateur" id="45963">plusieurs</star>
        </stars>
    </dvd>
    <dvd>
        <id>11362</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Coffret 3 DVD - Volume 2</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1995</annee>
        <edition></edition>
        <editeur>UFG</editeur>
        <stars>
            <star type="Réalisateur" id="45963">plusieurs</star>
        </stars>
    </dvd>
    <dvd>
        <id>32327</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Saison 1</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1995</annee>
        <edition></edition>
        <editeur>Emylia</editeur>
        <stars>
            <star type="Réalisateur" id="45963">plusieurs</star>
        </stars>
    </dvd>
    <dvd>
        <id>7557</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Saison 1.1</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1995</annee>
        <edition></edition>
        <editeur>UFG</editeur>
        <stars>
            <star type="Réalisateur" id="20894">David Barrett</star>
            <star type="Réalisateur" id="20895">Paul Brown</star>
            <star type="Réalisateur" id="17262">Lyndon Chubbuck</star>
            <star type="Réalisateur" id="20896">Jim Davidson</star>
        </stars>
    </dvd>
    <dvd>
        <id>7558</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Saison 1.2</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1995</annee>
        <edition></edition>
        <editeur>UFG</editeur>
        <stars>
            <star type="Réalisateur" id="20894">David Barrett</star>
            <star type="Réalisateur" id="20895">Paul Brown</star>
            <star type="Réalisateur" id="17262">Lyndon Chubbuck</star>
            <star type="Réalisateur" id="20896">Jim Davidson</star>
        </stars>
    </dvd>
    <dvd>
        <id>32936</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Saison 2</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1996</annee>
        <edition></edition>
        <editeur>Long Boat Entertainment</editeur>
        <stars>
            <star type="Réalisateur" id="45963">plusieurs</star>
        </stars>
    </dvd>
    <dvd>
        <id>32937</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Blue - Saison 3</fr>
            <vo>Pacific Blue</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1996</annee>
        <edition></edition>
        <editeur>Long Boat Entertainment</editeur>
        <stars>
            <star type="Réalisateur" id="45963">plusieurs</star>
        </stars>
    </dvd>
    <dvd>
        <id>48334</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Express</fr>
            <vo>Union Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1939</annee>
        <edition></edition>
        <editeur>MEP Vidéo</editeur>
        <stars>
            <star type="Réalisateur" id="11877">Cecil B. DeMille</star>
        </stars>
    </dvd>
    <dvd>
        <id>31949</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Express</fr>
            <vo>Union Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1939</annee>
        <edition></edition>
        <editeur>Universal Pictures</editeur>
        <stars>
            <star type="Réalisateur" id="11877">Cecil B. DeMille</star>
        </stars>
    </dvd>
    <dvd>
        <id>63297</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Inferno</fr>
            <vo>Dans l'enfer du Pacifique</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1979</annee>
        <edition></edition>
        <editeur>Filmedia</editeur>
        <stars>
            <star type="Réalisateur" id="100007">Rolf Bayer</star>
        </stars>
    </dvd>
    <dvd>
        <id>46504</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Inferno</fr>
            <vo>Dans l'enfer du Pacifique</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1979</annee>
        <edition></edition>
        <editeur>Filmedia</editeur>
        <stars>
            <star type="Réalisateur" id="100007">Rolf Bayer</star>
        </stars>
    </dvd>
    <dvd>
        <id>44777</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Palissades</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1990</annee>
        <edition></edition>
        <editeur>TF1 Vidéo</editeur>
        <stars>
            <star type="Réalisateur" id="15385">Bernard Schmitt</star>
        </stars>
    </dvd>
    <dvd>
        <id>157284</id>
        <media>BRD-3D</media>
        <titres>
            <fr>Pacific Rim</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2013</annee>
        <edition>Combo Blu-ray 3D + Blu-ray + Copie digitale - Packaging en relief</edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="5274">Guillermo del Toro</star>
        </stars>
    </dvd>
    <dvd>
        <id>157041</id>
        <media>BRD-3D</media>
        <titres>
            <fr>Pacific Rim</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2013</annee>
        <edition>Ultimate Edition - Blu-ray 3D + Blu-ray + DVD + Copie digitale</edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="5274">Guillermo del Toro</star>
        </stars>
    </dvd>
    <dvd>
        <id>157040</id>
        <media>BRD</media>
        <titres>
            <fr>Pacific Rim</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2013</annee>
        <edition>Blu-ray + Copie digitale</edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="5274">Guillermo del Toro</star>
        </stars>
    </dvd>
    <dvd>
        <id>65924</id>
        <media>DVD</media>
        <titres>
            <fr>Pacific Rim</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2013</annee>
        <edition></edition>
        <editeur>Warner Bros.</editeur>
        <stars>
            <star type="Réalisateur" id="5274">Guillermo del Toro</star>
        </stars>
    </dvd>
    <dvd>
        <id>30191</id>
        <media>DVD</media>
        <titres>
            <fr>Le Pacificateur</fr>
            <vo>The Peacemaker</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1997</annee>
        <edition></edition>
        <editeur>DreamWorks France</editeur>
        <stars>
            <star type="Réalisateur" id="11172">Mimi Leder</star>
        </stars>
    </dvd>
    <dvd>
        <id>2423</id>
        <media>DVD</media>
        <titres>
            <fr>Le Pacificateur</fr>
            <vo>The Peacemaker</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1997</annee>
        <edition></edition>
        <editeur>DreamWorks France</editeur>
        <stars>
            <star type="Réalisateur" id="11172">Mimi Leder</star>
        </stars>
    </dvd>
    <dvd>
        <id>154292</id>
        <media>BRD</media>
        <titres>
            <fr>Pacifique Sud</fr>
            <vo>South Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2009</annee>
        <edition></edition>
        <editeur>The Corporation</editeur>
        <stars>
            <star type="Réalisateur" id="44302">Mark Brownlow</star>
            <star type="Réalisateur" id="146127">Chiara Bellati</star>
            <star type="Réalisateur" id="146128">Jonathan Clay</star>
        </stars>
    </dvd>
    <dvd>
        <id>57018</id>
        <media>DVD</media>
        <titres>
            <fr>Pacifique Sud</fr>
            <vo>South Pacific</vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>2009</annee>
        <edition></edition>
        <editeur>The Corporation</editeur>
        <stars>
            <star type="Réalisateur" id="44302">Mark Brownlow</star>
            <star type="Réalisateur" id="146127">Chiara Bellati</star>
            <star type="Réalisateur" id="146128">Jonathan Clay</star>
        </stars>
    </dvd>
    <dvd>
        <id>24001</id>
        <media>DVD</media>
        <titres>
            <fr>South Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1958</annee>
        <edition>Édition Collector</edition>
        <editeur>20th Century Fox</editeur>
        <stars>
            <star type="Réalisateur" id="4864">Joshua Logan</star>
        </stars>
    </dvd>
    <dvd>
        <id>23996</id>
        <media>DVD</media>
        <titres>
            <fr>South Pacific</fr>
            <vo></vo>
            <alternatif></alternatif>
            <alternatif_vo></alternatif_vo>
        </titres>
        <annee>1958</annee>
        <edition>Édition Simple</edition>
        <editeur>20th Century Fox</editeur>
        <stars>
            <star type="Réalisateur" id="4864">Joshua Logan</star>
        </stars>
    </dvd>
</dvds>

J'ai pas le liens vers l'affiche du film (que je voudrais pouvoir récupérer mais je sais pas encore comment), ni même le liens vers la fiche du film sur le site, pour les acteurs, il est marqué "Réalisateur" et on se retrouve avec beaucoup de réalisateurs pour un film.

Sur le premier code XML, tout est plus ou moins OK.
Même si je sais pas encore comment récupérer le nom de tous les acteurs dans une même TextBox simplement séparé par une virgule.

Bref, c'est normal autant de différence ??

De plus, lorsqu'on récupérer un code XML, il peut y avoir plusieurs films (comme le code ci-dessus).
Est'il possible d'avoir un récap des films dans une ListBox et choisir le quel on veux ???

Je trouve que je pose beaucoup de questions mais j’espère pouvoir avoir des réponses à toutes (au maximum en tout cas)

Merci de votre aide
A+

**ebastien** · 22/11/2013, 15h10

Bonjour,

Quelle a été la requête que tu as fait pour obtenir ce XML ? Si le XML ne fournit pas le cover du film, on ne peut pas l'inventer.

Il faut que tu regardes comment traiter efficacement le XML. Mais attention, comme il l'a déjà été dit plusieurs fois, travaille avec des classes d'objet :
Une classe Film avec des propriétés genre Id,Titre, année, affiche, Acteurs = List(of string), etc... Puis pour gérer plusieurs films, tu auras une List(of Film) !!

Ne cherche pas à directement afficher ton résultat dans des controls visuels, ça ne va pas être propre :
- Lancement requête,
- Analyse XML => construction des objets,
- Affichage des objet dans les controls visuels.

De plus, lorsqu'on récupérer un code XML, il peut y avoir plusieurs films (comme le code ci-dessus).
Est'il possible d'avoir un récap des films dans une ListBox et choisir le quel on veux ???

C'est le but de ton soft a priori. Si tu fais une recherche par titre, il y a toutes les chances qu'il te retourne plusieurs films en résultat. Il faut stocker dans les objets Film instanciés (tu auras un List(of Film)) !!, les id des films retournés et afficher tout ça dans une List(box/view). L'utilisateur sélectionne un film => tu relances une requête avec l'id du film sélectionné !

Bon courage !

**FCL31** · 22/11/2013, 16h09

Je dois avouer que je comprend pas trop vos histoire de classe

Par contre, je comprend que le code xml complet est donner en fonction de id du titre trouvé dans le code xml trouvé par le titre.

Se que j'ai fais avec ces renseignements (comme j'ai pas VB sur un PC avec le net, je fais avec fes fichiers XML dont j'ai récupéré le code sur les posts précédent):
recherche par titre dans une TexBbox
affiche tout les titres trouvé dans une ListBox

Il faudrait ensuite récupérer les ID des titres affiché mais mon problème est que dans le code, il y a des ID un peut partout et il me faudrait seulement celui du titre pour pouvoir afficher dans des TextBox, les éléments du titre sélectionné dans la ListBox

Je sais pas si je me suis bien exprimé et j'en suis désolé si ce n'est pas le cas.

Je vais cherche un peut plus de mon coté

**ebastien** · 22/11/2013, 16h36

Le XML retourné est relativement simple à comprendre :

Code XML :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
<dvds>
  <dvd>
    <id>xxx</id>
    ...
  </dvd>
  <dvd>
    <id>xxx</id>
    ...
  </dvd>
</dvds>

SEn revanche, il faut absolument que tu te formes (un minimum) à la programmation objet. Sans le principe des classes, comment vas-tu stocker en mémoire les dvds que tu récupères ? Je pense que c'est pour ça que tu galères...
Je n'ai pas trop le temps de m'attarder là-dessus tout de suite (beaucoup de boulot) mais j'y reviendrai si tu as besoin.

**FCL31** · 22/11/2013, 16h40

Je sais pas comment le coder et si c'est possible mais il faudrait un truc du style
MonID = premier "ID" qu'il y a entre les balises "<DVD>" et "</DVD>" du titre "fr" ou "vo" si "fr" est null

Un peut de Paint en pièce jointe

Pour stocker les données, je pensais utiliser simplement une base de donnée

Je vais me pencher sur la programmation objet comme tu le suggère.

**ebastien** · 24/11/2013, 13h15

Bonjour,

J'ai un peu bosser pour toi pour te montrer la démarche : C'est fait rapidement et sans vrai test.
Création des classes Film et Star (qui contriendra les acteurs et autres) (à compléter) :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public Class Star
    Public Property Id As String
    Public Property Type As String
    Public Property Name As String
End Class
 
Public Class Film
    Public Property Title As String
    Public Property OriginalTitle As String
    Public Property Id As String
    Public Property Year As Integer
    Public Property Edition As String
    Public Property Editor As String
    Public Property Stars As List(Of Star)
    Public Sub New()
        _Stars = New List(Of Star)
    End Sub
End Class

Une classe qui permet d'appeler l'api de recherche et qui retourne une liste de film :

Code VB.NET :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Imports System.Net
 
Public Class WebAnalyser
    Const ApiUrl As String = "http://www.dvdfr.com/api/"
    Const SearchCmd As String = "search.php?title="
    Const GetCmd As String = "dvd.php?id="
    Dim aXml As String
 
    ' Appel l'api et retourne le XML sous forme de string :
    Private Function GetXml(aUrl As String) As String
        Dim aWebClient As WebClient = New WebClient
        aWebClient.Headers.Add("user-agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; .NET CLR 1.0.3705;)")
        Return aWebClient.DownloadString(aUrl)
    End Function
 
    'Analyse le Xml pour créer la liste de film
    Private Function AnalyseXml(aXml As XElement) As List(Of Film)
        Dim aFilm As Film
        Dim aResult As List(Of Film) = New List(Of Film)
        For Each aXelement In aXml.<dvd>
            aFilm = New Film
            aFilm.Id = aXelement.<id>.FirstOrDefault
            aFilm.Title = aXelement.<titres>.<fr>.FirstOrDefault
            aFilm.OriginalTitle = aXelement.<titre>.<vo>.FirstOrDefault
            ' Et ainsi de suite pour les autres infos (stars, etc..) 
            aResult.Add(aFilm)
        Next
        Return aResult
    End Function
 
    ' Retourne une liste de fim : 
    Public Function SearchDvd(aTitle As String) As List(Of Film)
        Dim aUrl As String = ApiUrl & SearchCmd & "'" & aTitle & "'"
        Dim aXml As String = GetXml(aUrl)
        Return AnalyseXml(XElement.Parse(aXml))
    End Function
End Class

et enfin l'appel depuis une forme :

Code vb.net :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Bt_SearchClick(sender As Object, e As EventArgs) Handles bt_search.Click
        Dim aFilms As List(Of Film) = New List(Of Film)
        aFilms = aWebAnalyser.SearchDvd("Superman")
        maListBox.Items.Clear()
        For Each aFilm In aFilms
            maListBox.Items.Add(aFilm.Title)
        Next
    End Sub

Voilà, j'ai fait ça à la va vite. C'est pas optimisé (instanciation du webclient à chaque appel ...) et il y aurait une gestion d'erreur à faire car si on appelle l'api avec de mauvais paramètres :

.
Bref, c'est juste pour montrer le style de chose qu'il faudrait faire.
Bon courage,
eb.

**FCL31** · 24/11/2013, 16h36

Bonjour et merci beaucoup ebastien

Je vais étudier ton code et essayer de le comprendre.

Je ne suis pas non plus resté sans rien faire en attente d'un réponses (heureusement, car le forum n'est pas là non plus pour faire mon travail).

Voici se que j'ai fait :
- Un TextBox "Txt_SearchTitre" dans laquelle, je saisi le titre du film à chercher.
- Une ListBox "Lst_Result" dans laquelle, s'affiche les titres des films trouvé
- Une seconde ListBox "Lst_ID" dans laquelle s'affiche les ID des films trouvé (cette ListBox n'est pas visible).
- Les autres TextBox et ListBox permettent d'afficher les info sur le film sélectionné dans la "Lst_Resultat"

C'est peut être pas la meilleure solution mais tout marche nikel.

Ou presque :
J'ai juste un problème pour l'affichage des acteurs et réalisateurs.
Acteurs et réalisateurs sont affiché les un après les autres dans le même ListBox mais sur la même ligne.
J'ai pas trouvé de solution pour se dernier problème.

Voici mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Dit moi se que tu en pense !!

A+

Récuperer données d'une page Web

VB.NET

Discussions similaires

Partager

Partager