TELECHARGEMENT MP3 ENVIRON 30 SECONDE + ÉCOUTE EN STREAMING + RECHERCHE JAQUETTE AUDIO DEPUIS LE SITE RADIO BLOG CLUB

Commentaire de TITOMBOSS le 24/02/2007 01:23:00

http://www.vbfrance.com/codes/RADIOBLOG-SEARCHER_39661.aspx
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...

Commentaire de TITOMBOSS le 25/02/2007 11:54:39

Mecri MadM@tt, je viens de faire une MAJ pour les jaquettes, on auras maintenant le choix entres les jaquette de radioblog(petite tailles chargement rapide) ou celles de discogs (bonne qualité mais lent et surtout pour les disques vilyles.)

Commentaire de MadM@tt le 03/03/2007 19:26:17

Effectivement moi aussi, ça fait plusieurs jours

Commentaire de skatix le 03/03/2007 21:13:42

Si la source ne marche plus c'est due au site qui a complètement refondu son code et rendu l'accès aux morceaux plus difficilement, mais néanmoins toujours, accessibles.

Désolé de te le dire, mais il faut refaire ton code parcequ'il est inutilisable maintenant! ;)

Commentaire de TITOMBOSS le 08/03/2007 09:12:50

Voila qui est fait!

Commentaire de MOMOgrougrou1808 le 08/03/2007 17:34:26

Cool il es bien comme ca mais tu devrais améliorer un peu le style car c'est pas fort beau a voir.
Es ce normal que la command "Try Google" ne sert a rien a ce que je vois?
10/10

Commentaire de MOMOgrougrou1808 le 08/03/2007 18:15:48

Ok j'attends avec impatiente la prochaine version :D
bon continuation :p

Commentaire de vxn772 le 08/03/2007 20:35:57

Super ce code !! Vraiment je le trouve très bien !! Il marche super bien, il est très pratique et c'est bein fait en général. Super quoi. Continue comme ca !
Je suis impatient de voir les prochaines versions !

Commentaire de ben05 le 11/03/2007 00:41:33

Salut,

Je trouve ta source intéressante mais comment ca marche.
Ya pas de .exe ?

Cordialement.

Commentaire de TITOMBOSS le 11/03/2007 18:28:17

verifi que wmp.dll et comdlg32.ocx soit dans system32, puis que ils soient bien coché dans composants (ctrl + T)

Commentaire de ben05 le 21/03/2007 00:25:20

Salut,

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.

Commentaire de sham_ren le 29/03/2007 20:46:24

Oui, est ce que tu pourrais compiler le code ?
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 !

Commentaire de sham_ren le 30/03/2007 19:05:52

J'ai enfin réussis a l'ouvrir avec vb6, mais, impossible de le compiler les form4 et 5 bugs.
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 !

Commentaire de TITOMBOSS le 30/03/2007 20:36:19

salut sham_ren, si les form 4 et 5 ne sont pas compilé c peut étre a cause des RichTextBox1 et WebBrowser1, veriffi dans composants (ctrl + T)... sinon, quels sont les messages d'erreur? sinon, je nes pas bien compris le probléme d'enregistrement... tu as besoin de mettre la dll isxdl_fr.dll dans "C:\windows\system32\".

Commentaire de TITOMBOSS le 31/03/2007 12:21:06

    Salut sham_ren, alors si le probléme viens bien de ces deux composant, verifi la présence des fichiers:
"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, "\\","\")

Commentaire de TITOMBOSS le 31/03/2007 14:30:42

dans ce cas, dans composants de vb6, clique sur parcourir et vas chercher le fichier "C:\windows\system32\RICHTXT32.OCX", puis "Microsoft Rich Textbox Control 6.0" vas apparaitre dans la liste...

Commentaire de boulika le 13/04/2007 12:16:59

Bonjour à tous,

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

Commentaire de Nassertom le 16/04/2007 00:58:19

Bonjour,

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, "</B> of about <B>", "</B> for <B>")
            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, "</B> of about <B>", "</B> for <B>")
            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

Commentaire de stuntman_91 le 17/04/2007 18:59:13

Pour tout t'avouer j'ai pas vraiement regardé la source (j'y connai quasiemen rien), mais çà me paraissé juste bizar de devoir donner le nombre de page dans les paramètres!
En tout cas merci pour ton super travail.
A+

Commentaire de Nassertom le 18/04/2007 23:46:30

Salut TITOMBOSS,

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.

Commentaire de MOMOgrougrou1808 le 28/04/2007 16:02:38

Salut à tous,

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><a href=""/release/", """><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.

Commentaire de MOMOgrougrou1808 le 28/04/2007 16:59:17

Je viens remarque que mon code ne sert a rien car apparament le site www.discogs.com n'existe plus.

Commentaire de Triboutmatthieu le 09/05/2007 21:28:23

Je voudrais savoir si se serai possible de faire une listbox pour choisir;
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??

Commentaire de MOMOgrougrou1808 le 11/05/2007 18:13:41

pour hwnd, je l'ai fait passer par une picture sur la form principale

Commentaire de TITOMBOSS le 14/05/2007 19:58:24

Salut, une verssion en vb2005 est en cours, avec notament une gestion en thread séparée avec progression de la recherche dans un progressbar, les urls seront cherchées dans le fichier xml de la recherche et non pas le nom & ".rbs" ce qui vas evité les erreur d'extentions... toutes ces fontions sont déja programmés, reste a adapté les options actuelles paroles, clip etc... Je découvre a peine le vb2005 qui m'avait fait peur, mais en fait bcp plus fonctionel que vb6, en méme temps je prépare mon bac et donc pas beaucoup de temps... verssion prévu avant la fin du mois...

Commentaire de MOMOgrougrou1808 le 14/05/2007 23:04:04

je me rejuis de voir la version en vb2005 car meilleures performances et moins de bugs d'extenssion bon courage :D

Commentaire de Triboutmatthieu le 02/06/2007 16:30:31

Salut ton programme qui fonctionne sous Visual Basic 6 ne fonctionne presque plus, on peut faire des recherches mais plus aucune musiques se lance. Hors ton programme sous visual basic express fonctionne. Peut tu corriger ce problème pour écouter une musique sélectionner car avant ça marché!
merci d'avance.

Commentaire de Triboutmatthieu le 03/06/2007 11:36:11

Oui mais Titomboss utilise un code avec Visual basic express qui fonctionne àce jur( voir sn projet en tléchargment),
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.