[reseau] jouer un wav

gollum57320 Messages postés 54 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 5 mai 2010 - 5 mai 2010 à 19:51
gollum57320 Messages postés 54 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 5 mai 2010 - 5 mai 2010 à 21:17
bonjour a tous, désoler pour mon titre peu ordinaire.

Voila je suis entrain de concevoir un logiciel de chat utilisant la Tcplibrary et j'aimerai pour voir faire en sorte de pouvoir jouer un même morceau de musique a tous les utilisateurs (chaque client dispose du morceau de musique) pour cela j'utilise la fonction :

My.Computer.Audio.Play("monwave.wav, AudioPlayMode.Background)

Quand j'utilise ce code hors chat il fonctionne mais une fois dans le chat ca me fonctionne plus, pas de sont pourtant il passe par le code.

voici le code que j'utilise :

Private Sub Client_DataArrival(ByVal Available As Long) Handles Client2.DataArrival

Dim Tampon As String = Client2.GetLine()
Do While Tampon <> ""
commande = Tampon
setr = CInt(InStr(commande, ":"))
setr2 = CInt(InStr(commande, ">"))
commande2 = commande.Remove(0, setr2 + 1)
setr3 = CInt(InStr(commande2, ":"))
commande3 = commande2.Remove(setr3, commande2.Length - setr3)
Label1.Text = "!" + commande3 + "!"
If String.Compare("setplay:", commande3) = 0 Then
My.Computer.Audio.Play(commande.Remove(0, setr), AudioPlayMode.Background) ' la ca ne passe pas
Label2.Text = "play"
Label3.Text = commande.Remove(0, setr)
ElseIf String.Compare("setstop:", commande3) = 0 Then
My.Computer.Audio.Stop()
Label4.Text = "stop"
Else
Label1.Text = "none"
TextBox1.AppendText(Tampon)
My.Computer.Audio.Play("flash.wav", AudioPlayMode.Background) 'ici le son est jouer
Tampon = Client2.GetLine()
End If
Loop

End Sub

Merci d'avance

1 réponse

gollum57320 Messages postés 54 Date d'inscription lundi 29 mai 2006 Statut Membre Dernière intervention 5 mai 2010
5 mai 2010 à 21:17
Enfaite c'est bon j'ai juste oublier de mettre la commande :
Tampon = Client2.GetLine()
a la fin de la condition if pour eviter de mettre le chat dans une boucle "bug"
Rejoignez-nous