RECUPÉRER INFO FILM ALLOCINE TXT ET IMAGE (VB ALLOCINE 2)
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
10 déc. 2003 à 07:12
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 7 oct. 2012 à 14:50
malo777 Messages postés 88 Date d'inscription jeudi 21 avril 2005 Statut Membre Dernière intervention 13 juin 2013 - 7 oct. 2012 à 14:50
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/18579-recuperer-info-film-allocine-txt-et-image-vb-allocine-2
https://codes-sources.commentcamarche.net/source/18579-recuperer-info-film-allocine-txt-et-image-vb-allocine-2
7 oct. 2012 à 14:50
Quelqu’un a un solution?
28 oct. 2005 à 13:01
J'aurais tant voulu que sa marche !!! pourrait tu remodifier ta source et la mettre a jour si c'est possible ???
5 sept. 2005 à 05:45
Function GetBinary(strPathSource As String, strFileName As String, strPathDest As String) As Long
On Error GoTo Err_GetBinary
Dim oHTTP
Dim oStream
Dim strSrcUrl As String
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", strPathSource & strFileName, False
oHTTP.Send
If oHTTP.Status = 200 Then
'Pas d'erreur
Set oStream = CreateObject("adodb.stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.Write oHTTP.responseBody
oStream.SaveToFile strPathDest & strFileName, adSaveCreateOverWrite
GetBinary = ERROR_SUCCESS
Else
GetBinary = -1
End If
Set oStream = Nothing
Set oHTTP = Nothing
Exit Function
Err_GetBinary:
GetBinary = Err.Number
End Function
22 déc. 2004 à 15:10
++
22 déc. 2004 à 14:05
J'ai aussi travaillé sur la base de ce programme pour en faire un plus complet avec base de données et d'autres sites de recherche ainsi que la récupération de l'affiche du film sur le site d'allociné et sur d'autre (au choix).
+ impression de jaquettes au format DVD, CD, et formulaire.
Ainsi qu'un paramétrage complet des balises de recherche dans le cas ou justement la structure et adresse changerait.
Tout en vb.net.
le programme à été amélioré: parti base de données ainsi que d'autres modules (réception de message anti-spam etc..et compo) de Jean-marie delaboutresse.
j'ai agrémenté le logiciel de différents modules pour en faire un tout-en-un.
Je ne peux pas diffuser le programme, car il est beaucoup trop gros pour être envoyé ici, mais vous
pouvez me le demander par mail ou à jean-marie.
La partie modification des balises n'est pas finie, mais fonctionnelle.
6 oct. 2004 à 16:47
il va falloir dans ce cas modifier la méthode de parse de la page et pas très évident quand on voit la tronche du code source de la page html
pcpunch:
si tu veux des infos la dessus tu pourrais éventuellement voir avec les éditeurs d'un freeware divxbox qui sont en ce moment confronter
au même problème.
http://divxbox.omsoccer.com/
6 oct. 2004 à 08:07
Bonne continuation.
5 oct. 2004 à 21:20
Hier soir le code fonctionnait encore et now : HS :(
5 oct. 2004 à 15:43
Même avec de nouveaux films jamais recherchés.
5 oct. 2004 à 01:13
Le prob ne vient pas plutot de ta config???? ou autres???
Ps: j'ai testé l'ocx et cette source pas de probléme chez moi!!!! mm avec ceux qui ne sont pas en cache!!!
Dsl ++
4 oct. 2004 à 13:44
J'ai tester hier tout fonctionner parfaitement avec ta source et l'ocx
mais aujourd'hui j'obtient que les résumer des films qui sont en cache sur mon poste.
essais de ton coté de faire une recherche sur un film que tu n'a jamais essayer tu verra par toi meme que ca ne fonctionne plus !!
sniff sniff, domage ta source était trop bien ;)
Tien moi au courant !
fifipil@hotmail.com !
Merci.
4 oct. 2004 à 12:42
++
4 oct. 2004 à 11:42
pourrait tu regarder de ton coté et mettre ta méthode de parse à jour suivant la nouvelle page car ta source est trop top !!
Merci
1 oct. 2004 à 18:18
Bravo 10/10
27 sept. 2004 à 01:12
10/10
23 août 2004 à 13:52
Deux choses:
- Si ça t'intéresse j'ai bricolé ta source, j'arrive mieux à récupérer les affiches de films, tu me dis ça par émail à 'laum62@free.fr', pas la peine de polluer ici.
- Si t'es toujours au chomage, je connais du monde que ça peut intéresser, à mon avis pas plein temps mais pourquoi pas free-lance en indépendant ? J'en sais rien à voir avec eux, si tu veux plus d'infos contactes-moi.
@+, et bonne journée.
1 août 2004 à 16:52
Je te mets 9/10.
Sinon, je voulais reutiliser certains trucs pour un programme en VB .net ou j'ai besoin d'aller rechercher des infos sur allocine de la meme maniere mais je n'y arrive pas alors si qqun peut m'aider ce serait cool.
15 juil. 2004 à 15:36
Pascal
14 juil. 2004 à 14:26
Mais je me pose une question, en fait je suis train de programmer un script en PHP pour répertorier tous mes films et alimenter ainsi une base de donnée ( sql ), or je n'arrive pas pour l'instant a extraire les infos des résultats de la recherche du moteur d'allocine kom ton programme le permet, donc je voulais savoir si je pouvais faire une sorte de pont entre le VB et le PHP et/ou la base SQL pour utiliser tes résultats, or je n'est pas encotre eu le temps de me pencher sur le VB !!
Mais c'est les vacances dc j'ai ts le temps !!
Merci d'avance ! @++
26 déc. 2003 à 22:06
26 déc. 2003 à 12:53
Bonne continuation...
23 déc. 2003 à 18:49
17 déc. 2003 à 19:18
15 déc. 2003 à 12:29
Mais auriez vous le même prog mais dans l'autre sens, c'est a dire qui copie un fichier sur un serveur ?
15 déc. 2003 à 12:11
Bravo :)
13 déc. 2003 à 09:18
10/10.
12 déc. 2003 à 16:54
'*************************************************************************************************
'* FUNCTION : GetBinary
'* DESCRIPTION : Download un fichier du serveur
''*************************************************************************************************
Function GetBinary(strPathSource As String, strFileName As String, strPathDest As String) As Long
On Error GoTo Err_GetBinary
Dim oHTTP
Dim oStream
Dim strSrcUrl As String
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", strPathSource & strFileName, False
oHTTP.Send
If oHTTP.Status = 200 Then
'Pas d'erreur
Set oStream = CreateObject("adodb.stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.Write oHTTP.responseBody
oStream.SaveToFile strPathDest & strFileName, adSaveCreateOverWrite
GetBinary = ERROR_SUCCESS
Else
GetBinary = -1
End If
Set oStream = Nothing
Set oHTTP = Nothing
Exit Function
Err_GetBinary:
GetBinary = Err.Number
End Function
11 déc. 2003 à 09:13
11 déc. 2003 à 07:31
-Pour le bon boulot que tu a fait
-Pi aussi pour t'avoir interesser a mon probleme!!
Merci encore et tres bonne source bien utile =)
11 déc. 2003 à 02:56
Voir Descriptif, Zip, Capture.
J'avais des états d'âme!!! lol
Pour ceux qui avait des problémes avec inet, maintenant il est juste utiliser pour l'affichage de la miniature(voir ma questions dans le descriptif)!!
c plus stable et surtout plus rapide!!!
Faites moi part de vos impressions ou problémes!!!!
Et surtout remonter la note!! "qui est en train de degringoler!! :( "
10 déc. 2003 à 21:10
Bravo 9/10 !!!!
10 déc. 2003 à 19:12
Sinon g desactivé le firewall xp, j ai rien d autre et idem!!! donc vient pas de la !!!
10 déc. 2003 à 16:59
Je suppose donc que ceux qui ont des problèmes ont un firewall activé et ont tenté une recherche en mode interprété.
Quant au code source en lui-même, rien à redire, je mettrai bien 9/10. Seul problème : les commentaires çà craint un peu...
je revois donc la note à 8/10.
10 déc. 2003 à 14:17
Dim codesrc As String
Inet1.AccessType = icUseDefault
Inet1.Protocol = icDefault
codesrc = Inet1.OpenURL("http://www.allocine.fr/recherche/rubrique.html?typerecherche=3&motcle=" & Text1.Text)
Do While Inet1.StillExecuting = True
DoEvents
Loop
MsgBox codesrc
G une reponse sur titanic, matrix ?sinon genre maison ou vélo g rien alors que normalement il y en a????? c incomprehensible??
10 déc. 2003 à 14:11
10 déc. 2003 à 13:57
Sinon je le prend pas comme ça c'est juste que les améliorations auquelle je pensé concerné la src de recherche d'info et non le développement d'un autre prog!!!
Pour ceux qui est des états d'ames, j'ai posté plusieurs fois dans le forum mon probléme de récupération de le src html, ainsi que sur le chat Cs, et je n'ai eu aucune réponse alors comme ce code n'est pas parfais au niveau de la stabilité c'était un moyen de demander comment faire pour résoudre ce probléme et de tester si il existe aussi chez les autres!!!!
Citation : "De mon coté ça m'est égal, les développements que je suggére, je suis parfaitement capable de les développer tout seul,ton code m'apporte quelque chose puisque je ne savais pas qu'il était aussi simple de récupérer des infos dans un fichier web. "
-->donc si tu sais répondre a ce probléme????
10 déc. 2003 à 13:55
10 déc. 2003 à 13:47
Note que tu as écrit "Si vous voulez que j'améliore cette src, ou si vous voulez vous joindre a moi."
De mon coté ça m'est égal, les développements que je suggére, je suis parfaitement capable de les développer tout seul.
En ce qui me concerne, je n'ai toujours pas déposé de source car je sais qu'il reste des bugs, je vois que tout le monde n'a pas mes états d'âme.
Je reconnais toutefois, que ton code m'apporte quelque chose puisque je ne savais pas qu'il était aussi simple de récupérer des infos dans un fichier web.
10 déc. 2003 à 13:39
Comme je le décriver en commentaire de ma src, inet est trés capricieux, c'est pas le premiere fois que j'ai des problémes avec!!! je suis sous xp sp1 , vb6 sp5...
ld40-->ce site est code source et pas freeware gratos!!! si tu lit le titre : comment recupérer info des fims sur allocine, et non base de donnée de film qui recupérer infos...... Si tu veu te faire une base de divx le plus dur est fait!!!!!! Lit les descriptifs de source avant de poster des choses qui n'ont aucun intéret!!!!!
Renfield-->Super, car de maniére général tes src sont des petits bijoux!!! et ici c'est fais pour ça!!!! donc aucun probléme pour moi en tous cas!!!! par contre si tu aurais exmeple pour recupérer le code src du WB? ca m' interesse car apparement des gens on des problémes avec inet????(Ralf19b3)
10 déc. 2003 à 13:18
Si vous savez pourquoi prevener moi pleeaze
10 déc. 2003 à 11:21
-format dbb
-impression fiche
-impression jacquette
;-)
10 déc. 2003 à 10:55
10 déc. 2003 à 07:12
A ceci pres que je conte integrer une Bdd pour pouvoir consulter les films hors ligne.....
pour le WB, tu devrais pas avoir tous tes soucis...
bonne continuation..