Encore WMP - Aucune logique la dedans...Résolu

Question

Salut tout le monde (je vais finir par plomber le forum )

Bin voila, j'ouvre lecteur windows media et j'ouvre mon adresse ftp avec un fichier audio à la clé et...paf ça le lis !

Maintenant dans le code, je met exactement le même lien ftp (copier-coller c'est pour dire !) et....paf aucune lecture  (je précise qu'au debut, ca a marcher mais ça n'a fait qu'une lecture )


Quelqu'un n'aurait-il pas une idée d'où pourrait provenir ce bug ?

Utilisateur anonyme · Accepted Answer

Au moment où tu initialises ta variable 'server', elle finit déjà par //
Toutes tes url seront donc fausses.
Utilise le mode pas à pas pour constater par toi-même :
F9 pour placer un point d'arrêt sur la ligne où est positionné le curseur. Puis F8 pour faire avancer ligne par ligne. Promène ta souris sur les variables pour observer les valeurs. Et observe surtout ta variable server

Utilisateur anonyme · Answer

Salut,

Quelqu'un n'aurait-il pas une idée d'où pourrait provenir ce bug ?
Sans bout de code la réponse est non.

tictac08 · Answer

AxWindowsMediaPlayer1.url = "ftp://identifiant:motdepasse@serveur/dossier/musique.mp3"

tictac08 · Answer

AxWindowsMediaPlayer1.url = "ftp://identifiant:motdepasse@serveur/dossier/musique.mp3"
AxWindowsMediaPlayer1.ctlcontrols.play()

J'avais oublier cette ligne 

Je ne vois pas ou j'aurait pu me planter...

Utilisateur anonyme · Answer

Que donne l'événement PlayStateChange (fenêtre exécution) ?
   Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
   debug.print(e.newstate.tostring)
End Sub

tictac08 · Answer

10
9
9
10

Il essaye de lire le flux mais se stoppe a chaque fois, je ne comprend vraiment pas...

Utilisateur anonyme · Answer

10 = Ready

As-tu toujours la possibilité de refaire ceci ? :
Bin voila, j'ouvre lecteur windows media et j'ouvre mon adresse ftp avec un fichier audio à la clé et...paf ça le lis !


Colle ici la sub complète (de ton bouton que sais-je).

Utilisateur anonyme · Answer

Pour info, la séquence que j'ai chez moi avec ton code et mon serveur est :
9 = transitioning
9 =     "
3 = play

tictac08 · Answer

Bon on est fixer, j'ai lancer FileZilla, c'est le serveur qui ne repond plus...

Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        AxWindowsMediaPlayer1.URL = server & Bobox.SelectedItem & ".mp3"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

où 
serveur = "ftp://indentifiant:motdepasse@serveur/dossier/"
bobox.selectedItem = le nom EXACT de ma musique


Je comprend en tout cas pourquoi, même en copiant le lien complet ca ne marchait pas

Seul différance :

WMP normal : Bloque sur connection en cours

WMP VB : Ne bloque pas, se stoppe immédiatement...

tictac08 · Answer

Correction le wmp normal se stoppe bien aussitot maintenant

Ca fait le 3 eme serveur que je teste, ca commence a bien faire

Utilisateur anonyme · Answer

Bon, tu as donc la réponse à ta question 
Trouve un serveur fiable. J'utilise ftpperso.free.fr et n'ai aucun problème avec ton code.
Bonne soirée.

tictac08 · Answer

Le seul bémol c'est qu'il faut être abonné a free, or, mon père ne voudra jamais me donner les identifiants...

Ah ! Le problème vient toujours de vb !!

Là ca marche avec tout sauf vb 

J'en ai marre 

Toujours avec

10 - 9 - 9 - 10


SUJET non résolu

Utilisateur anonyme · Answer

Si, en ce qui me concerne, le sujet est résolu puisqu'il relève d'un problème autre que celui du développement.

tictac08 · Answer

Bref, le serveur a resauté...j'ai l'impression que c'est vb qui fait planté tout...bref, je vais essayer de faire autrement...

En tout cas merci a toi

Utilisateur anonyme · Answer

Es-tu bien sûr de ton URL ?
Attention à la bonne écriture du login et du pass. Pas d'espaces ou d'accents. Et sensible à la casse.

ucfoutu · Answer

Un lien utile :

A condition der savoir danser. Si non ===>> on valse.
Vaudra mieux régler cela avec ton papa. 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

ucfoutu · Answer

Ah ! le lien a valsé dans la nature ===>>
Tapez le texte de l'url ici.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

tictac08 · Answer

Oui, sur de sur, je peux te les envoyer en message privé pour bien te prouver. Et en plus je met le même partout...

@ucfoutu

C'est ca sauf qu'on oublie le "Il dira ce qu'il voudra"

ucfoutu · Answer

Alors réagis comme tu l'entendras. Mais alors : toi ...


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.

Utilisateur anonyme · Answer

je peux te les envoyer en message privé pour bien te prouver
Non ce n'est pas nécessaire. Je peux t'affirmer que ton code est fonctionnel.
Si, volontairement, je remplace une majuscule, ou si je sors les : séparant le login du pass, ou si je place un caractère ASCII autre qu'une bonne vieille lettre de l'alphabet, alors j'ai le même résultat que toi.

tictac08 · Answer

Donc si j'ai bien compris, il faudrai que je fasse un truc du genre :

Dim nom as string = bobox.selectedItem
nom = nom.replace(" ", "%20")

Et après je met le code pour la lecture ?

Utilisateur anonyme · Answer

Non, les espaces dans le nom du fichier sont permis. Je parlais du login et du pass. Je sais même pas si c'est possible tiens !

tictac08 · Answer

je donne des idées à ce que je vois

Donc voici mon serveur

ftp://a2995188:***************@virtual.hostei.com/MarK1ira/"

Utilisateur anonyme · Answer

Et le nom du fichier, où est-il ?

tictac08 · Answer

Bon je vais expliquer clairement

Dans "MarK1ira" >> 3 dossiers

- "Epic" >> beaucoup de fichiers dont un qui en contient la liste

- "Heartful" >> beaucoup de fichiers dont un qui en contient la liste

- "Wondrous Battle" >> beaucoup de fichiers dont un qui en contient la liste

mon programme telecharge le fichier liste du dossier voulu et liste les nom des musiqies dans bobox tout en definissant la variable "type" sur le sous dossier de "MarK1ira".

la variable "seveur" c'est : monserveur & type

Utilisateur anonyme · Answer

On s'éloigne énormément des 2 toutes petites lignes de code du début donc.

Utilisateur anonyme · Answer

Je ne souhaite plus jouer aux devinettes. Montre la partie de code suspecte une bonne fois pour toutes.

tictac08 · Answer

Bon, voila le code


Imports System.IO

Public Class Form1
    Dim activer As Boolean
    Dim type As String = Nothing
    Dim timeout As Integer = 0
    Dim server As String = "ftp://a2995188:-------@virtual.hostei.com/MarK1ira/" & type & "/"
    Dim root As String = "ftp://virtual.hostei.com/MarK1ira/"

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.WindowState = FormWindowState.Minimized
        System.Diagnostics.Process.Start("http://www.youtube.com/user/MarK1ira")
    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
        AboutBox1.Show()
        AboutBox1.TopMost = True
    End Sub


    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        Dim Rep = MsgBox("Really ?", vbYesNo, "Do you really want exit this program ?")
        If Rep = vbYes Then
            i.Visible = False
            End
        Else

        End If
    End Sub

    Public Sub Form1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        Dim X = Me.Location.X
        Dim Y = Me.Location.Y
        If e.KeyCode = Keys.Left Then
            Me.Left = X - 2
        ElseIf e.KeyCode = Keys.Right Then
            Me.Left = X + 2
        ElseIf e.KeyCode = Keys.Down Then
            Me.Top = Y + 2
        ElseIf e.KeyCode = Keys.Up Then
            Me.Top = Y - 2
        End If
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        Me.Hide()
        i.BalloonTipIcon = ToolTipIcon.Info
        i.BalloonTipText = "The Player is now in the system tray !"
        i.BalloonTipTitle = "Little Player"
        i.ShowBalloonTip(5000)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        My.Settings.Runs = +1
        My.Settings.Save()
        Label8.Text = "Status : Clearing Data"
        If Directory.Exists(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData) Then
            Directory.Delete(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData, True)
        End If
        Label8.Text = "Status : Download Data"
        My.Computer.Network.DownloadFile("ftp://virtual.hostei.com/MarK1ira/Epic/Epic.l", My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Epic\file.l", userName:="a2995188", password:="------", overwrite:=True, showUI:=False, connectionTimeout:=10000000, onUserCancel:=FileIO.UICancelOption.DoNothing)

        type = "Epic"
        Label4.Text "Category Epic"
        Panel2.Visible = False

        
        Label8.Text = "Status : Ready"

        Label8.Text = "Status : Ready"
    End Sub

    Private Sub Label4_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.MouseEnter
        Panel2.Visible = True
    End Sub


    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
        Label8.Text = "Status : Download Data"
        My.Computer.Network.DownloadFile("ftp://virtual.hostei.com/MarK1ira/Epic/Epic.l", My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Epic\file.l", userName:="a2995188", password:="------", overwrite:=True, showUI:=False, connectionTimeout:=10000000, onUserCancel:=FileIO.UICancelOption.DoNothing)
        type = "Epic"
        Label4.Text "Category Epic"
        Panel2.Visible = False
        Bobox.Items.Clear()
        For Each line In IO.File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Epic\file.l")
            Bobox.Items.Add(line)
        Next
        Label8.Text = "Status : Ready"
    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        Label8.Text = "Status : Download Data"
        My.Computer.Network.DownloadFile("ftp://virtual.hostei.com/MarK1ira/Heartful/Heartful.l", My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Heartful\file.l", userName:="a2995188", password:="-------", overwrite:=True, showUI:=False, connectionTimeout:=10000000, onUserCancel:=FileIO.UICancelOption.DoNothing)
        Bobox.Items.Clear()
        type = "Heartful"
        Label4.Text "Category Heartful"
        Panel2.Visible = False
        For Each line In IO.File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Heartful\file.l")
            Bobox.Items.Add(line)
        Next
        Label8.Text = "Status : Ready"
    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
        Label8.Text = "Status : Download Data"
        My.Computer.Network.DownloadFile("ftp://virtual.hostei.com/MarK1ira/Wondrous Battle/Battle.l", My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Battle\file.l", userName:="a2995188", password:="--------", overwrite:=True, showUI:=False, connectionTimeout:=10000000, onUserCancel:=FileIO.UICancelOption.DoNothing)
        Bobox.Items.Clear()
        type = "Wondrous Battle"
        Label4.Text "Category Wondrous Battle"
        Panel2.Visible = False
        For Each line In IO.File.ReadAllLines(My.Computer.FileSystem.SpecialDirectories.AllUsersApplicationData & "\Battle\file.l")
            Bobox.Items.Add(line)
        Next
        Label8.Text = "Status : Ready"
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If WMPPlayState.wmppsPlaying Then
            Label8.Text = "Status : Playing..."
        ElseIf WMPPlayState.wmppsBuffering Or WMPPlayState.wmppsReconnecting Then
            Label8.Text = "Status : Connecting, please wait..."
        ElseIf WMPPlayState.wmppsWaiting Then
            Label8.Text = "-----------------------------------"
        End If
    End Sub

    Private Sub Panel2_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Panel2.MouseEnter
        timeout = 0
    End Sub


    Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Panel2.Visible = False
    End Sub

    Private Sub VisitHDSounDIChanelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisitHDSounDIChanelToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://www.youtube.com/user/MarK1ira")
    End Sub

    Private Sub VisitTheDeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VisitTheDeToolStripMenuItem.Click
        System.Diagnostics.Process.Start("http://virtual-connection.talk4fun.net")
    End Sub

    Private Sub ShowPlayerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowPlayerToolStripMenuItem.Click
        If ShowPlayerToolStripMenuItem.Text = "Show Player" Then
            Me.Show()
            ShowPlayerToolStripMenuItem.Text = "Hide Player"
        Else
            Me.Hide()
            ShowPlayerToolStripMenuItem.Text = "Show Player"
        End If
    End Sub

    Private Sub ExitProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitProgramToolStripMenuItem.Click
        Call PictureBox2_Click(Nothing, Nothing)
    End Sub
  


    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        AxWindowsMediaPlayer1.URL = server & Bobox.SelectedItem & ".mp3"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub
    Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
        debug.print(e.newstate.tostring)
    End Sub
   
End Class

Utilisateur anonyme · Answer

L'erreur est sur cette ligne :
Dim server As String = "ftp://a2995188:-------@virtual.hostei.com/MarK1ira/" & type & "/"
Partie en trop :
& type & "/"
Tu fais déjà une concaténation ici :
Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click
        AxWindowsMediaPlayer1.URL = server & Bobox.SelectedItem & ".mp3"
        AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

Utilisateur anonyme · Answer

Pense aussi à ton nom de dossier à intercaler entre server et bobox. Attention aux "".

Utilisateur anonyme · Answer

Explication : Vu que 'type' = Nothing, c'est comme si ta chaine server finissait par //

tictac08 · Answer

mais si je met pas ca ca va faire un truc comme ca non ?

---/MarK1ira/EpicMaMusique.mp3

tictac08 · Answer

vu que plus loin dans le code on lui donne une valeur

tictac08 · Answer

Ah ! Ca explique tout !

Au tout debut, au lieu de mettre nothing je mettais directement "Epic" et ma premiere lecture a eu lieu avec cette categorie !

par contre,  vu l'heure qu'il est , je n'est plus le droit à l'ordi, j'essaye ca demain ;)

tictac08 · Answer

Ca démonte les point d'arrêt !! 


Donc effectivement sa fini bien par //

mais la variable "type" contient bien mon dossier 

Donc pourquoi ne l'ajoute t'il pas directement à l'url ??

Il faut que je mette "& type" dans le sub de lecture donc ?

Utilisateur anonyme · Answer

Je suis persuadé que tu t'en sortiras seul en utilisant le pas à pas.

tictac08 · Answer

Effectivement,

Un trèèèèès grand merci à toi Banana32  Grâce à toi, cela fonctionne à la perfection.

Tu es un vrai expert là ! J'aurais jamais pensé que la variable server pourrait se finir ainsi et encore moin à mettre un point d'arrêt (qui, au passage, est super pratique)

Problème Résolu pour de bon !

Encore WMP - Aucune logique la dedans...

37 réponses

Votre réponse

Discussions similaires