OCX ALLOCINE (INFO COMPLETE + MINIATURE)

Commentaire de PROTEUS91 le 20/09/2004 05:25:31

Je viens de telecharger ta source... Je lui trouve mechament d'interet, avec ton authorisation je vais pomper quelque parti de ton code pour completer un programme sur lequel je travail depuis un moment. Par contre je penses que j'aurais certaine question a te poser.

Est ce que tu penses que tu aurais un peu de temps pour y repondre ?

Encore bravo pour la source elle a vraiment de l'interet.

Commentaire de pcpunch le 20/09/2004 12:21:28

Merci...

PROTEUS : Pas de probléme pour pomper le code il est la pour ca!!! simplement un petit commentaire lors du post de ta src ferait plaisir.... pour les questions pas de probléme vas y.....

Renfield : Effectivement le seule probléme c'est que je ne sais pas faire une classe, mais j'y ai pensé et je vais me pencher la dessus...

++

Commentaire de yomm le 21/09/2004 14:03:47

allez un p'ti bug ;-)

j'ai voulu regarder la fonction enregistrement de l'image , que j'utilise moi dans un de mes sources afin de conparer avec ce que tu avais fait...et là j'ai eut une petite surprise..pas très grave c'est sûr mais bon je le signal...

Si tu enregistres plusieurs fois l'image (l'affiche) , tu te retrouves pas forcément avec la dite affiche ;-)...
un exemple pour t'aider à trouver la solution (qui a mon avis est un simple problème de lecture du code html), fais une recherche sur matrix....tu dois trouver 3 résultats normalement...prends le premier...là, enregistre l'image...super tu as l'affiches...maintenant, enregistre de nouveau l'image...et là surprise un screeshot du film ;-)

Sinon autre chose mais nettement moins important, dans ton prog de test...si tu annules l'enregistrement , ça enregistre quand même...

Enfin voilà , sinon l'idée est intéressante !!!

@+

PS: si tu veux des infos pour pouvoir passer cela en class, comme je l'ai dit , j'ai fait un source dans l'esprit mais concernant les albums audio...et je récupère l'image de la cover...le principe est à peu pret le même , une requette http, la sauvegarde du source html , l'extraction des infos importantes et la sauvegarde d'une image...donc si tu veux jeter un coup d'oeil pour passer ton code en class, pas de problème, voici même le lien : http://www.vbfrance.com/code.aspx?id=24263

@+ et bon dev

Commentaire de HsMow le 21/09/2004 23:26:05

ça à l'air interessant =)

Commentaire de pcpunch le 22/09/2004 22:15:27

Dsl Titi89 mais je me dois de te faire remarquer le titre de cette source : OCX ALLOCINE.

En aucun cas j'ai marqué logiciel pour telecharger les infos et affiche depuis allociné. la source est la pour montrer comment utiliser l'ocx. Je pense que si je post un Ocx et que je donne pas d'emple d'utilisation avec, je vais avoir droit à " Ton programme il marche pas", " comment on fait pour faire marcher ton ocx", "c'est ko un ocx", etc ... lol

Donc ce qui explique que cette interface pour utiliser l'ocx n'est pas poussé, car le but et de developper un controle et non de faire une appli.....

Ps: C'est marrant j'ai eu la mm remarque aujourd'hui conecernant mon OCX d'envoie d'email. On me reproche que l'interface que j'ai joint ne gére pas la connection internet et une file d'envoie d'email en cas de reconnection. Quand on fait un ocx, c'est pas un programme complet qui tourne, c'est un controle utilisateur qui vous permet de facilité le developpement de vos soft!!!!!!

Voila ++

Commentaire de titi89 le 23/09/2004 08:13:04

salut,je suis entièrement d'accord avec vos commentaires mais je trouve qu 'il n'y a rien de plus explicit qu 'un exemple qui fonctionne pour un débutant.quand  il y a des erreurs faut déjà les coriger avant de tester la source, je regrette mais si ça plante, beaucoups ne vont pas plus loing .vbcodessources est pour moi le meilleur site où l'on peut apprendre et trouver réponses à ses questions et je reste admiratif envers vos sources(Renfield et pcpunch)enfin voilà c'est juste mon point de vue et encore bravo

Commentaire de pcpunch le 23/09/2004 10:32:44

Effectivement Yomm, j'avais remarqué ce probléme mais j'ai oublié de le rectifier. merci pour ce commentaire constructif

++

Commentaire de CrAzYb le 06/10/2004 07:24:21

Trés bon, parcontre pour info allociné.com vient de changer son aspect et la capture ne fonctionne plus.

Bonne continuation.

Commentaire de yomm le 06/10/2004 12:30:49

ça doit pas etre grand chose ;-)

exemple pour matrix:
voici le genre de recherche à faire:
http://www.allocine.fr/recherche/?motcle=matrix&rub=1

ensuite sur la page obtenue faut chopper les liens et:
http://www.allocine.fr/film/fichefilm_gen_cfilm=19776.html

et là tu choppes le le synopsis et les infos tel ke la date de sortie , les acteurs , la durée....

par contre la galerie n'a pas l'air de marcher ;-)

enfin voilà , j'espère te rendre service même si tu as surement déjà vu tout cela ;-)

@+

Commentaire de yomm le 06/10/2004 13:32:16

>>CrAzYb
nop mais je suis sûr de trouver un résultat en général
;-)

Commentaire de CrAzYb le 07/10/2004 08:28:13

Et faire une capture depuis 2 sites eventuellement, synopsis sur un, affiche sur un autre, pourquoi pas
+

Commentaire de pcpunch le 13/10/2004 15:07:13

Oops j'ai aussi ajouter le champ de date de sortie du film quand l'info est disponible....

Commentaire de mauris le 15/10/2004 19:51:04

Voilà donc, ca a l'air de bien fonctionner, mais ya un leger problème :

En fait, tu lance le site dans webBrowser mais ya une pub sur allociné avec du son.. alors c'est...

on pourrai pas coupé par je ne sais quel moyen le son ?

Merci sinon c'est nikel ;)

++

Commentaire de Tamplan le 14/07/2005 14:23:13

Tout d'abord un grand merci pour cette source !!
Je prends enfin le temps d'apporter peut-être ma pierre à l'édifice, je te propose une autre solution sans l'ocx webbrowser (du coup plus de son des pubs et autre popups).

Tout se passe en faisant référence à Microsoft HTML Object Library puis utilises ce code dans un module :

Public Type FilmAllociné
    Affiche As String
    Durée As String
    Titre As String
    Genre As String
    Pays As String
    Année As String
    Réalisateur As String
    Acteurs As String
    Résumé As String
    Numéro As String
End Type

' URL$ est de la forme http://www.allocine.fr/film/fichefilm_gen_cfilm=19776.html
Function InfosFilm(ByVal URL$) As FilmAllociné
Dim hMSHTML As New MSHTML.HTMLDocument
Dim hDocument As HTMLDocument
Dim hTable As HTMLTable
Dim hImage As HTMLImg

Dim Film As FilmAllociné
Dim TableauTemp
Dim i As Integer

Set hDocument = hMSHTML.createDocumentFromUrl(URL$, vbNullString)

' Attente du chargement de la page
While hDocument.readyState <> "complete"
    DoEvents
Wend

' REcherche de l'affiche
For Each hImage In hDocument.images
    If (InStr(hImage.src, "acmedia/media") <> 0) And (InStr(hImage.src, ".jpg") <> 0) Then
        Film.Affiche = hImage.src
        Exit For
    End If
Next

' La tale dans laquelle sont stockée toutes les données
Set hTable = hDocument.All.tags("table").Item(8)

tableau = Split(hTable.innerText, vbCrLf)

For i = 0 To UBound(tableau)
    
    ' Titre du film
    If InStr(tableau(i), "  Ajouter à " & Chr$(34) & "Mes Films" & Chr$(34)) <> 0 Then
        TableauTemp = Split(tableau(i), "  Ajouter à " & Chr$(34) & "Mes Films" & Chr$(34))
        Film.Titre = TableauTemp(0)
    End If

    ' Réslisateur(s)
    If InStr(tableau(i), "Réalisé par ") = 1 Then
        Film.Réalisateur = Replace(tableau(i), "Réalisé par ", "")
        Film.Réalisateur = Replace(Film.Réalisateur, "   Voir tout le casting...", "")
    End If

    ' Acteurs
    If InStr(tableau(i), "Avec ") = 1 Then
        Film.Acteurs = Replace(tableau(i), "Avec ", "")
    End If

    ' Genre et nationnalité
    If InStr(tableau(i), ".  Genre : ") <> 0 Then
        TableauTemp = Split(tableau(i), ".  Genre : ")
        Film.Pays = TableauTemp(0)
        Film.Genre = TableauTemp(1)
    End If
    
    ' Durée et année
    If InStr(tableau(i), "Durée :") = 1 Then
        TableauTemp = Split(tableau(i), ".  Année de production : ")
        Film.Durée = Replace(TableauTemp(0), "Durée : ", "")
        Film.Durée = Replace(Film.Durée, "h ", "h")
        Film.Année = TableauTemp(1)
    End If

    If tableau(i) = "Synopsis" Then
        Film.Résumé = tableau(i + 1)
        Exit For
    End If
Next i

Film.Numéro = Replace(URL$, "http://www.allocine.fr/film/fichefilm_gen_cfilm=", "")
Film.Numéro = Replace(Film.Numéro, ".html", "")

Set hTable = Nothing
Set hDocument = Nothing
Set hMSHTML = Nothing
InfosFilm = Film
End Function

En gros, tu obtiens toutes les infos sous formes de textes sans les balises à gérer !! ;-)

En espérant que ça serve ...

Commentaire de Tamplan le 16/07/2005 16:48:26

En complément, le code pour réupérer les grandes affiches si elles existent ;-)

Cest basé sur une petite étude des pages de galerie photos, plusieurs cas possible :
- Affiche française et affiche américaine
- Affiche préventive et affiche définitive
- Affiche unique
- Pas d'affiche

On recherche les liens des pages avec l'image agrandie, une fois que le nuémro d'image est connu (affiche française, définitive, unique), le lien de la vignette donne le lien de l'image agrandie ...

' LienFicheFilm$ est de la forme http://www.allocine.fr/film/fichefilm_gen_cfilm=56143.html
Function RechercheGrandeAffiche(ByVal LienFicheFilm$) As String
Dim hMSHTML As New MSHTML.HTMLDocument
Dim hDocument As HTMLDocument
Dim hTable As HTMLTable
Dim hImage As HTMLImg
Dim hLink As HTMLLinkElement
Dim hRow As HTMLTableRow

Dim Tableau
Dim TableauTemp
Dim i As Integer, j As Integer
Dim Début As Integer
Dim NuméroFilm$
Dim NuméroImage$

Dim Lien$
Dim Temp$

Temp$ = Replace$(LienFicheFilm$, "http://www.allocine.fr/film/fichefilm_gen_cfilm=", "")

' Numéro de film dans la base Allociné
NuméroFilm$ = Replace$(Temp$, ".html", "")

Lien$ = "http://www.allocine.fr/film/galerievignette_gen_cfilm=" + NuméroFilm$ + ".html"

Set hDocument = hMSHTML.createDocumentFromUrl(Lien$, vbNullString)

' Attente du chargement de la page
While hDocument.readyState <> "complete"
    DoEvents
Wend

Set hTable = hDocument.All.tags("table").Item(8)

Set hRow = hTable.rows(0)

NuméroImage$ = ""
For i = 0 To hTable.rows(0).All.length - 1
    If hRow.All.Item(i).tagName = "A" Then
        If InStr(hRow.All.Item(i).href, "http://www.allocine.fr/film/galerie_gen_cfilm=" + NuméroFilm$ + "&filtre=&cmediafichier=") <> 0 Then
            If InStr(hRow.All.Item(i - 1).innerText, "Affiche française") <> 0 Or InStr(hRow.All.Item(i - 1).innerText, "Affiche définitive") <> 0 Then
                Temp$ = Replace(hRow.All.Item(i).href, "http://www.allocine.fr/film/galerie_gen_cfilm=", "")
                Temp$ = Replace$(Temp$, NuméroFilm$, "")
                Temp$ = Replace$(Temp$, "&filtre=&cmediafichier=", "")
                NuméroImage$ = Replace$(Temp$, ".html", "")
                Exit For
            End If
        End If
    End If
Next i

If NuméroImage$ = "" Then
    For Each hLink In hDocument.links
        If InStr(hLink, "http://www.allocine.fr/film/galerie_gen_cfilm=" + NuméroFilm$ + "&filtre=&cmediafichier=") <> 0 Then
            Temp$ = Replace(hLink, "http://www.allocine.fr/film/galerie_gen_cfilm=", "")
            Temp$ = Replace$(Temp$, NuméroFilm$, "")
            Temp$ = Replace$(Temp$, "&filtre=&cmediafichier=", "")
            NuméroImage$ = Replace$(Temp$, ".html", "")
            Exit For
        End If
    Next
End If

If NuméroImage$ <> "" Then
    For Each hImage In hDocument.images
        If InStr(hImage.src, NuméroImage$) <> 0 Then
            Lien$ = Replace$(hImage.src, "_vign", "")
            Exit For
        End If
    Next
Else
    Lien$ = "http://a69.g.akamai.net/n/69/10688/v1/img5.allocine.fr/acmedia/skin/AlloCineV5/habillage/AffichetteAllocine.gif"
End If

Set hTable = Nothing
Set hDocument = Nothing
Set hMSHTML = Nothing
RechercheGrandeAffiche = Lien$
End Function

Code testé plusieurs fois et sans bug, jusqu'à preuve du contraire ;-) ...

Commentaire de dede1919 le 18/03/2008 19:37:32

Bonjour!

Je up la source après un an! lol
Excellente cette OCX! deux - trois bugs vraiment minuscule mais vraiment efficace! C'est grâce à ce genre d'aide que des gens comme moi parviennent à gagner du temps précieux! merci beaucoup!

;-)