TELECHARGEMENT MP3 ENVIRON 30 SECONDE + ÉCOUTE EN STREAMING + RECHERCHE JAQUETTE
TITOMBOSS
Messages postés
50
Date d'inscription
vendredi 6 août 2004
Statut
Membre
Dernière intervention
6 juillet 2007
-
24 févr. 2007 à 01:23
Utilisateur anonyme - 6 juin 2007 à 01:59
Utilisateur anonyme - 6 juin 2007 à 01:59
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/41622-telechargement-mp3-environ-30-seconde-ecoute-en-streaming-recherche-jaquette-audio-depuis-le-site-radio-blog-club
https://codes-sources.commentcamarche.net/source/41622-telechargement-mp3-environ-30-seconde-ecoute-en-streaming-recherche-jaquette-audio-depuis-le-site-radio-blog-club
6 juin 2007 à 01:59
Ma version en java fonctionne de nouveau.
pour info les points que j'ai ennoncés dans mon precedent message m'ont bien permis de comprendre le fonctionnement.
Je ne sais pas si Vb.net offre les class permetant de modifier les entêtes http ?
Bon courrage
Tiens nous au courant TITOMBOSS
3 juin 2007 à 11:36
je voudrais avoir ce code mais convertit pour Microsoft visual basic 6 pro, car je neveux pas refaire mon projet en vb express.
Si tu pouvais me convertr ce code je t'en serais connaissant.
Merci d'avance.
Titomboss tu pourrais m'aider aussi en plus je débute.
2 juin 2007 à 20:08
Le problème vient du fait que radioblog a cripté les adresses issu du fichier xml
à cela 2 solutions annaliser les trames https en faisant une recherche sous radioblog afin de comprendre comment sont décripté les données (ex: envois de la clef de criptage si c le lecteur flash qui décripte, ou alors une identification faite par le lecteur et donc reception des adresses décripté).
le premier lecteur fait par titomboss fonctionne toujours car il récupère l'adresse du fichier à lire directement dans la page html cette solution n'est pas tres propre car il ne connait pas l'extention du fichier à lire de plus si le nom du fichier n'est pas exactement le même il ne sait pas non plus le lire.
une solution dégradé consisterait à lire l'adresse directement dans la page html (idem 1er appli) puis de récupérer le non exacte du titre ainsi que l'extention du fichier dans le fichier xml (cette partie n'est toujours pas cripté !!). cette solution est a présoir en dernier recoure car elle va ralentir considérablement le chargement de la chanson à lire.
bon courage
Thomas
2 juin 2007 à 16:30
merci d'avance.
20 mai 2007 à 15:23
Voila le projet en vb2005, Avec la recherche en thread séparé et l'utilisation du XML, merci beacoup nassertom pour ton idé du xml, presque toutes les piste marche maintenant! bravo et bon courage pour ta verssion java!
14 mai 2007 à 23:04
14 mai 2007 à 21:45
Si tu as besoin d'un coups de main ou de conseil, je suis à ta dispo.
J'ai pour ma part comme cité plus haut intégré ces fonctionnalitées.
de plus j'ai ajouté une traduction pour les paroles ainsi qu'un historique (treeview et listview).
dans mon cas je l'ai fait en vb.net 2003.
sinon je suis entraint de terminer cette même application en java (sans vouloir parler d'autre chose que Vb) qui pour ma part est bien plus performante et fonctionne sur tous les pc car ma version en vb.net 2003 ne tourne pas sur tt les pc ??
la partie la plus dificile pour moi en vb.net fut de parser le fichier xml (je ne sais pas pourquoi le parseur n'accept pas les url mais uniquement les fichiers en local).
ainsi que recup la partie traduite de google (dans une autre frame).
je pense que tu ne rencontreras pas ce problème en vb.net2005.
Thomas
14 mai 2007 à 19:58
12 mai 2007 à 15:37
@+++
11 mai 2007 à 18:13
10 mai 2007 à 06:11
Pour la form3, je lais mise pour avoir un hwndle libre pour la fenétre de téléchargement. Je nais jamais rien compris au hwn, il doit y avoir un autre moyen...
9 mai 2007 à 21:28
Musiques
Vidéos
etc
pour pouvoir voir des clips sur msn vidéos ou des vidéos sur you tube.
Ce serait possible?? de rajouter ses options dans une mise à jour??
6 mai 2007 à 16:03
Juste une remarque la Form3 est vide, devait-il y avoir du code dedans à l'origine ou est elle là juste pour faire jolie ? :-)
J'ai mis 10/10 à la source car c'est vraiment du bon boulot.
@plus!
28 avril 2007 à 16:59
28 avril 2007 à 16:05
28 avril 2007 à 16:02
Je travaille sur ce projet pour le modifier à ma façon et j'ai fait une modification du code que je trouve quand même pratique par rapport à la source.
Lorsque le programme fait un recherche de pochette j'ai fait en sorte que d'abor il cherche sur 1 moteur si aucune résultat il recherche sur l'autre.
Donc, j'ai pu supprimer le combobox pour les moteurs des pochettes.
Private Sub FindCover()
If List2.ListCount = 0 Then Exit Sub
Image1.Picture = Me.Picture
On Error Resume Next
Kill App.Path & "\temp.jpeg"
disc = Split(List2.List(List2.ListIndex), ".")
Image1.Tag = disc(0)
disc = Replace(disc(0), "-", "+")
disc = Replace(disc, " ", "+")
tURL = "http://www.discogs.com/search?type=releases&q=" & disc
'On télécharge la page dans le fichier temp.tmp
DownloadPage tURL, App.Path & "\temp.tmp", False
'On extrait ce qui est entre la syntaxe observé dans la page puis on rajoute la ref a ladresse de l'image
URLCOVER = "http://www.discogs.com/viewimages?what=R&obid=" & Extract(App.Path & "\temp.tmp", "<li><span style", "", "")
DownloadPage URLCOVER, App.Path & "\temp.tmp", False
URLCOVER = Extract(App.Path & "\temp.tmp", "<img src=""http://www.discogs.com/image/", ".jpeg", "", "")
On Error GoTo 10
URLDownloadToFile 0, "http://www.discogs.com/image/" & URLCOVER & ".jpeg", App.Path & "\temp.jpeg", 0, 0
Image1.Picture = LoadPicture(App.Path & "\temp.jpeg")
10
On Error GoTo 11
URLDownloadToFile 0, "http://www1.radioblogclub.com/amazon/" & Replace(Nom2, ".rbs", ""), App.Path & "\temp.jpeg", 0, 0
Image1.Picture = LoadPicture(App.Path & "\temp.jpeg")
Image1.Tag = Replace(Nom2, ".rbs", "")
11
Si vous avez un commentaire a faire sur ce morceau de code dites le.
19 avril 2007 à 21:14
Thomas
18 avril 2007 à 23:46
je pense que l'érreur que tu rencontres et dans la recherche de chose qui ne trouve pas dans la page. Car je peux te confirmer que si tu fais une recherche dans le site avec une page sup au nombre de chanson trouvé il affiche bien la page mais sans chanson (cela va de soi!!)
si effectivement dans ton code cela n'est pas génant, en utilisant une autre méthode du type webbrowser, object IE ou encore WebRequest cela est genant car il attend la fin de la boucle (1000 step 50) avec ce que cela implique (chargement de la page) donc tres long.
mais cela est hors sujet de ton pose.
pour info j'ai trouvé la solution pour l'extention des titre qui est différent de rbs.
a savoir que des foi le titre de la chanson n'est pas toujours le même que celui passé en parametre de l'auto play.
il faut intérogé le fichier xml que radioblog te retourne pour donné la playlist du blog qui contient la chanson souhaité.
exemple :
tUrl = "http://www.radioblogclub.com/radio.blog.3.0/sounds/playlist.php?idradio=" & numPlayslit & "?r="
'test using system.net**************************************
Dim result As WebResponse
Dim req As WebRequest = WebRequest.Create(tUrl)
result = req.GetResponse()
' // on crée un flux pour lire la réponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
' // on choisit le type d'encodage
Dim encode As Encoding
encode = System.Text.Encoding.GetEncoding(0)
' // on crée un flux texte qui lira le flux web
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
' // on lit le flux qu'on place dans le string read
codesource = sr.ReadToEnd
sr.Close()
pour info le numplyslit est le numéro dans le lien entre "open/" et "/".
cela va en plus accelérer ton code car tu n'auras plus à charger la page pour récupe l'adresse du server contenant la chanson. mais uniquement le fichier Xml ce qui est beaucoup plus rapide.
si je peux me permetre de te conseiler quelquechose c'est de ne plus utiliser ta dll pour télécharger le code source car celle ci t'oblige à ecrire et lire un fichier txt (qui est plus long et qui t'oblige à effectuer cette opération de magniere synchrone (tjous plus longue)).
si tu peux ne plus être tributaire du fichier txt tu peux utiliser des Thread et donc faire en même temps des recherches sur plusieurs page en même temps et donc accélérer tes recherches.
en plus l'utilisation des threads te laisse la main sur l'interface durant la recherche ce qui est plus sympa.
dernier point pour revenir à mon message precedent.
la recherche du nombre de titre des la premiere page permet d'afficher la progression de ta recherche dans un progresbar par exemple ce qui n'est pas du luxe dans ta recherche est longue.
Thomas.
18 avril 2007 à 12:07
17 avril 2007 à 18:59
En tout cas merci pour ton super travail.
A+
17 avril 2007 à 09:46
salut Nassertom, Oui, tu as raison ta methode est beacoup plus propre, j'avais commencé a voir dabord le resultat, mais je me suis appercu que rechercher dans des pages vides provoqué une erreur,donc on quitte la procedure, et il ne vas pas chercher dans les pages suivantes... il n'ouvre alors quune page 'vide'
Thomas
16 avril 2007 à 00:58
Je suis de ton avis sur un nombre fix tell que 1000, pour autant je pense que l'utilisation de page suivante n'est pas une bonne idée sachant que radi blog affiche la page meme si il n'y a plus de chanson.
dans le programme que je me suis fait je recherche le nombre de page des la 1er recherche (quand je passe 0 en parametre)
puis je me base sur le total recherche qui est donné par radio blog
exemple :
If TheTotal = 0 Then
Dim total As String
total = typeSplite(codesource1, " of about ", " for ")
If total <> "" Then
TheTotal = CType(total, Integer)
If TheTotal > 50 Then TheTotal = ((CType(total, Integer) \ 50) * 50)
End If
End If
TheTotal est une variable globale
voici la fonction qui récupe le total :
Function typeSpliteParole(ByVal donneeSource As String, ByVal debut As String) As String
Dim textTemps As String
If InStr(LCase(donneeSource), LCase(debut)) <> 0 Then
textTemps = Mid(donneeSource, InStr(LCase(donneeSource), LCase(debut)))
typeSpliteParole = Mid(textTemps, (debut.Length + 1))
End If
End Function
ma facon de faire n'est pas la meilleur sachant que radio blog change regulierement sa facon d'ecrire le total.
deplus selon la maniere dont tu recupères la source HTML tu peux avoir du francais ou de l'anglais
ps : moi j'utilise "Imports System.Net" ce qui m'evite d'écrire et lire un fichier temps
exemple :
'test using system.net**************************************
Dim result As WebResponse
Dim req As WebRequest = WebRequest.Create(tURL)
result = req.GetResponse()
' // on crée un flux pour lire la réponse
Dim ReceiveStream As Stream
ReceiveStream = result.GetResponseStream
' // on choisit le type d'encodage
Dim encode As Encoding
encode = System.Text.Encoding.GetEncoding(0)
' // on crée un flux texte qui lira le flux web
Dim sr As StreamReader = New StreamReader(ReceiveStream, encode)
' // on lit le flux qu'on place dans le string read
codesource1 = sr.ReadToEnd
sr.Close()
If TheTotal = 0 Then
Dim total As String
total = typeSplite(codesource1, " of about ", " for ")
If total <> "" Then
TheTotal = CType(total, Integer)
If TheTotal > 50 Then TheTotal = ((CType(total, Integer) \ 50) * 50)
End If
End If
tURL est l'url recherché
si cela peut être utile.
Thomas
15 avril 2007 à 23:45
franchement pas mal du tout ce pti programme.
par contre je comprends pas pourquoi t'as pas faits un système de "page suivante" et "page précédente" plutôt que de mettre le nombre de page de recherche dans les paramètres.
Cà doit pas être trop compliqué étant donné les urls de rodioblog.
ils sont du type : "http://www.radioblogclub.fr/search/" & i & "/artiste"
avec i=0 pour la première page, i=i+50 pour la suivante et i=i-50 pour la précédente.
qu'est ce que t'en pense?
c'est possible de faire çà?
A+
13 avril 2007 à 12:16
Merci a TITOMBOSS cela a l'air super vu les commentaires mais le souci c'est que je peux pas compiler ton code.
Pourrais me dire ou trouver le exe ou me l'envoyer ?
Encore merci
4 avril 2007 à 02:04
J'ai réussi à adapter (enfin modifier beaucoup de chose car je ne peux utiliser la dll "isxdl.dll" et j'utilise VLC).
Dans ton code (que j'utilise) tu ajoutes ".rbs" à l'adresse finale or je me suis aperçu que cela limite fortement les possibilité de lire et download. En effet je rencontre souvent dans mes recherches des extensions du type ".mp3.rbs, .swf, .mp3.mp3".
Face à ce problème j'ai essayé de lister les fichiers contenu dans le répertoire or visiblement ce n'est pas possible (je n'ai rien trouvé sur le sujet). Pour autant j'ai trouvé sur le net un site "php" qui arrive à lister le contenu de ces répertoires !! .
si quelqu'un savais comment faire ? je pense que cela de intéressant à implémenter dans ta source.
Merci pour ta proposition de suis intéressé par ton exe (pour comparer avec la mienne en vb.net).
je t'enverrai la mienne si tu le souhaite une foi qu'elle sera stabilisé (utilisation du webbrowser pour recup le code source n'est pas terrible !! (mais plus d'utilisation de lecture de fichier temps) utilisation de thread et essay d'implementation du control de volume)
comme je ne suis pas encore bien dans l'utilisation des threads mon code n'est pas optimisé et présente encore quelque bug
Je met 10/10 super idée d'ajouter la proposition google, les paroles !!
le code est claire, et facilement exploitable.
31 mars 2007 à 14:30
31 mars 2007 à 13:44
Résutat : toujours les même erreurs
31 mars 2007 à 12:21
"C:\windows\system32\RICHTXT32.OCX"
"C:\windows\system32\shdocvw.dll"
puis vas dans composant (ctrl + T) et coche:
"Microsoft Internet Controls" et
"Microsoft Rich Textbox Control 6.0"
voila, mais normalement ces deux composant sont installer en méme temps que vb6,
un conseil pour tout le monde, n'executez pas le projet directement a la racine "c:"! parceque le programe fait souvent app.path & "\incoming" ce qui donne "c:\\incoming" et provoque une erreur, dans les prochaine verssion je rajouterais une ligne du stile A = replace (A, "\","")
31 mars 2007 à 10:07
alors dans system 32, j'avais bien :
- isxdl_fr.dll
- RICHTX32.OCX
- wmp.dll --> Activé dans Components
- comdlg32.ocx --> Activé dans Components
- ieframe.dll
Sinon, je n'ai ni l'entré RichTextBox1, ni WebBrowser1 dans les components, je ne sais pas si il me manque une dll...
Quand j'ouvre le projet avec VB6 :
Erreur : " 'C:\Appli\vbfrance_41622\RICHTX32.OCX' could not be loaded--Continue loading project? " --> " Oui "
Erreur 2 : " File not found: 'C:\Windows\System32\ieframe.dll/1'--Continue loading project? --> " Oui"
Erreur 3 : " Errors during load : refer to form4.log for details " --> " Ok "
Erreur 4 : " Errors during load : refer to form5.log for details " --> " Ok "
Maintenant les fichiers logs
Form4.log : "Line 39: Class RichTextLib.RichTextBox of control RichTextBox1 was not a loaded control class."
Form5.log : "
Line 13: Class SHDocVwCtl.WebBrowser of control WebBrowser1 was not a loaded control class."
Donc, apparemment, le probleme vient donc bien de ces 2 composants non activés, mais comment les activés ?
Donc, apres, dans le projet VB6, je fais play, puis une fois dans l'interphace norma1e, je clique sur "Clip" : Erreur : "Compile error, Metod or data not found. --> " Ok ".
Jappuis sur stop.
Je refais play, cette fois si, je met "Parole" : Erreur : "Compile error, Metod or data not found. --> " Ok ".
------------------------------------------------------------------
Je passe maintenant au problème du téléchargement :
A ba tien, maintenant, ça marche bien ^^.
En fait, il y avait un bug avec les noms, dans la version que je me suis compilé, car j'avais du pour faire l'exe, suprimer les 2 boutons "Clip" et "Paroles" et les forme4 et 5.
Cela vient t'il de ces 2 composants ?
Aller, salut, et cntinue ton projet ^^
30 mars 2007 à 20:36
30 mars 2007 à 19:29
je vais vous faire une installation en exe?
30 mars 2007 à 19:05
Donc, impossible de le voir les paroles ni le clip !!!
Sinon, quand je fais enregistrement, cela bug : En fait il n'y a pas de nom qui est donné au mp3, ce qui fait que je ne peut en enregistrer qu'un seul, car avant je doit le renommer dans le dossier incomming !
Sinon, bon boulo !
30 mars 2007 à 17:56
J'utilise vb.net 2003 et il m'indique que des objects ne sont pas licencier (j'ai l'habitude lol)
de ce fait j'ai essayé de retranscrir ton code dans un nouveau projet
mon problème est que le fichier temp ne se cré pas avec la commande suivante :
value = URLDownloadToFile(0, URL$, FileName$, 0, 0)
FileName$ contient bien l'adresse du fichier à créer
URL$ : contient bien la recherche (j'ai testé dans mon navigateur et la recherche est ok)
si vous avez une idée
d'avance merci
PS : j'ai bien collé la dll dans system32
29 mars 2007 à 20:46
Merci !
Ou alors que quelqu'un le fasse et heberge l'exe sur un ftp, ou un truc du genre rapidshare.com
merci d'avance !
21 mars 2007 à 04:20
21 mars 2007 à 00:25
Pourrais-tu joindre à ta source, une version compilée dans le zip.
Genre "projet1.exeenleverca" comme ca on enleve "enleverca" et on peux utiliser ton logiciel en .exe
Cordialement.
11 mars 2007 à 20:32
J'ai essayé de compiler mais j'y arrive pas. JE connais rien à al compilation. J'ai testé avec Visual Basic Express 2005
Quelqu'un peut m'envoyer une version avec un .exe ?
11 mars 2007 à 18:28
11 mars 2007 à 13:22
Moi j'ai eu droit à ça dans le Form1.log pcq le prog buggait quand j'ai voulu le lancer depuis vb6
voici ce que ça m'affiche:
Line 68: Class MSComDlg.CommonDialog of control CommonDialog1 was not a loaded control class.
Line 170: Class WMPLibCtl.WindowsMediaPlayer of control WindowsMediaPlayer1 was not a loaded control class.
Line 71: The property name _ExtentX in CommonDialog1 is invalid.
Line 72: The property name _ExtentY in CommonDialog1 is invalid.
Line 73: The property name _Version in CommonDialog1 is invalid.
Line 176: The property name URL in WindowsMediaPlayer1 is invalid.
Line 177: The property name rate in WindowsMediaPlayer1 is invalid.
Line 178: The property name balance in WindowsMediaPlayer1 is invalid.
Line 179: The property name currentPosition in WindowsMediaPlayer1 is invalid.
Line 180: The property name defaultFrame in WindowsMediaPlayer1 is invalid.
Line 181: The property name playCount in WindowsMediaPlayer1 is invalid.
Line 182: The property name autoStart in WindowsMediaPlayer1 is invalid.
Line 183: The property name currentMarker in WindowsMediaPlayer1 is invalid.
Line 184: The property name invokeURLs in WindowsMediaPlayer1 is invalid.
Line 185: The property name baseURL in WindowsMediaPlayer1 is invalid.
Line 186: The property name volume in WindowsMediaPlayer1 is invalid.
Line 187: The property name mute in WindowsMediaPlayer1 is invalid.
Line 188: The property name uiMode in WindowsMediaPlayer1 is invalid.
Line 189: The property name stretchToFit in WindowsMediaPlayer1 is invalid.
Line 190: The property name windowlessVideo in WindowsMediaPlayer1 is invalid.
Line 192: The property name enableContextMenu in WindowsMediaPlayer1 is invalid.
Line 193: The property name fullScreen in WindowsMediaPlayer1 is invalid.
Line 194: The property name SAMIStyle in WindowsMediaPlayer1 is invalid.
Line 195: The property name SAMILang in WindowsMediaPlayer1 is invalid.
Line 196: The property name SAMIFilename in WindowsMediaPlayer1 is invalid.
Line 197: The property name captioningID in WindowsMediaPlayer1 is invalid.
Line 198: The property name enableErrorDialogs in WindowsMediaPlayer1 is invalid.
Line 199: The property name _cx in WindowsMediaPlayer1 is invalid.
Line 200: The property name _cy in WindowsMediaPlayer1 is invalid.
11 mars 2007 à 00:41
Je trouve ta source intéressante mais comment ca marche.
Ya pas de .exe ?
Cordialement.
9 mars 2007 à 09:52
8 mars 2007 à 20:35
Je suis impatient de voir les prochaines versions !
8 mars 2007 à 19:06
8 mars 2007 à 18:15
bon continuation :p
8 mars 2007 à 18:01
Dans la prochaine verssion, on poura personnalisé le dossier incoming. merci pour les com et les notes...
8 mars 2007 à 17:34
Es ce normal que la command "Try Google" ne sert a rien a ce que je vois?
10/10
8 mars 2007 à 10:26
Bravo pour le mal que t'es donné, c'est beaucoup plus fonctionnel (il manque par contre une petite option pour personnaliser le dossier incoming ;)
10/10
8 mars 2007 à 09:12
8 mars 2007 à 08:18
Les mp3 se range tout seul dans un dossier incoming. Voila tant de modification que me font penser que je devrais refaire une autre source plutot que de mettre a jour celle-ci. je fini de corriger quelques bugs et je la poste...
3 mars 2007 à 21:13
Désolé de te le dire, mais il faut refaire ton code parcequ'il est inutilisable maintenant! ;)
3 mars 2007 à 19:49
3 mars 2007 à 19:26
3 mars 2007 à 19:00
Chez moi j'ai un probleme la rechrche ne se lance pas
Es ce normal?
25 févr. 2007 à 11:54
25 févr. 2007 à 00:23
24 févr. 2007 à 01:23
lol, je suis assez surpris de voir cette source, il me samblait avoir cherché avant... Voila donc une bonne chose pour ceux qui s'amuserait a comparer les deux sources... Et moi le premier! la seule chose de plus sur ma source est la recherche de jaquettes et la création de playlist LEGALES!,
pour ce qui est du "MARQUE COMME LOUCHE", oui, si on veux, mais bon... c'est parceque je prend des précaution que c'est louche???
J'attend vos commentaire pour les comparaissons, je pense que je perd quand méme, a cause de mon manque de clarté, et mes bidouillages, je pensait améliorer tout sa au fur et a meusure mais je m'avoue un peu abatu de voir que je n'était pas le premier...