RECUPÉRER INFO FILM ALLOCINE TXT ET IMAGE (VB ALLOCINE 2)

Commentaire de Renfield le 10/12/2003 07:12:35 administrateur CS

Tu vas rire(ou peut-etre pas...), mais je suis en train de coder une appli similaire.....

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..

Commentaire de ld40 le 10/12/2003 11:21:25

je n'ai pas vb sous la main pour critiquer le code, mais d'après la capture écran, il doit te manquer un export des données:
-format dbb
-impression fiche
-impression jacquette

;-)

Commentaire de pcpunch le 10/12/2003 13:39:58

Ralf19b3-->non c pas normal vu que le but est de recuperer les infos du site allocine.com. y a t-il qq choses d'inscrit dans la barre d'état si oui Koi?
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)

Commentaire de ralf19b3 le 10/12/2003 13:55:27

Nivo config je suis pareil que toi (xp sp1 et vb6)! Sinon ca me met "Recherche en cours..." puis "Aucun résultat"!! Ca pourait etre a cause de "inet"<?, comment puis je y remedier??

Commentaire de ralf19b3 le 10/12/2003 14:11:02

Nivo config je suis pareil que toi (xp sp1 et vb6)! Sinon ca me met "Recherche en cours..." puis "Aucun résultat"!! Ca pourait etre a cause de "inet"<?, comment puis je y remedier??

Commentaire de Cugel le 10/12/2003 16:59:05

Je crois savoir pourquoi certains ont des problèmes...  J'ai été obligé de compiler le projet pour que mon FireWall laisse passer la recherche sur allociné (il demande quand même avant).

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.

Commentaire de vincentescalade le 10/12/2003 21:10:20

En tout ca moi ca marche super bien (meme pour matrix). J'avais déja pensé faire un truc dans le genre mais je ne savais comment faire.


Bravo 9/10 !!!!

Commentaire de ralf19b3 le 11/12/2003 07:31:30

voila maintenant ca marche impec!! je te met ... heu...10/10!
-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 =)

Commentaire de vans_44 le 12/12/2003 16:54:58

Voici le code pour télécharger un fichier sans ouvrir une boite de dialogue enregistrer sous

'*************************************************************************************************
'*  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

Commentaire de Bifrons le 15/12/2003 12:11:57

Vraiment cool ton petit prog

Bravo  :)

Commentaire de nezac43 le 17/12/2003 19:18:07

Felicitations. Ce prg est bien pensé et bien realisé. Il permet une recherche plus pratique que directement sur le site allocine.

Commentaire de espadon2 le 26/12/2003 12:53:03

Cool , bon boulot , Je vais réutilisé ta source . J' avais commencé par me faire une bdd de tous mes films , mais là c 'est bcp plus simple pour récupérer info du film (si on est connecté)

Bonne continuation...

Commentaire de snoopy77 le 14/07/2004 14:26:31

Hello !! Terrible ce petit prog !

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 ! @++

Commentaire de bibou92 le 01/08/2004 16:52:36

Super boulot !!

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.

Commentaire de Psyc0s le 27/09/2004 01:12:17

jai testé bravo

10/10

Commentaire de fifipil909 le 04/10/2004 11:42:58

aparament allocine on changer leur skin du site et en plus la page www.allocine.fr/recherche/rubrique.html? ....etc n'existe plus.

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

Commentaire de fifipil909 le 04/10/2004 13:44:30

Désoler de te dire ca mais c'est toujours pareil.
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.

Commentaire de Bifrons le 05/10/2004 15:43:31

Autre user : il fonctionne toujours aussi bien chez moi en tout cas !
Même avec de nouveaux films jamais recherchés.

Commentaire de CrAzYb le 06/10/2004 08:07:41

J'ai regardé de mon coté, allocine.com a changer la structure de ses pages ceci explique peut etre cela, l'ocx comme ce code ne fonctionne plus. Sinon trés bon travail, j'ai utilisé jusqu'a maintenant nickel. Je met un 8/10 car j'ai mis 9/10 pour l'ocx.
Bonne continuation.

Commentaire de claudetom le 22/12/2004 14:05:38

En effet la structure du site d'allocine a changé idem pour l'adresse de recherche par mot clef.

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.

Commentaire de polposicion le 05/09/2005 05:45:36

Dommage, ce code active mon antivirus BitDefender: infecté par Exploit.ADODB.Stream2.Gen

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