mciSendString

Question

Bonjour,
J'ai t&#233;l&#233;charg&#233; et essay&#233; plusieurs codes sur ce site mais la fonction mciSendString ne fonctionne pas... Faut-il Windows XP pour lire un mp3 ? Je les lis habituellement avec l'ocx mciwndx sans probl&#232;me.
Je suis sous windows Me et j'ai vb5 et vb6... 
Le programme ne me signale pas d'erreur, mais je n'entend aucun son. Pourtant, les lignes :
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Public Function playMP3(Fichier As String)
mciSendString "OPEN " & Fichier & ".mp3" & " Alias " & Fichier, 0, 0, 0
mciSendString "Play " & Fichier, 0, 0, 0
End Function
ne me semblent pas &#234;tre difficiles &#224; utiliser !!!
Merci de votre aide.

olixelle · Answer

Salut,

j'ai eu le mm pb sur un code que j'ai fait r&#233;cement. Le bug venait du fait que le chemin du fichier contenait des espaces donc la commande n'avait pas le bon format.
Entoures le nom du mp3 par des guillemets:

mciSendString "OPEN """ & Fichier & ".mp3""" & " Alias " & Fichier, 0, 0, 0

Rollerman

cs_revline7 · Answer

Merci, mais je n'entends toujours rien.
Pourtant le fichier semble &#234;tre utilis&#233;, puisque je ne peux pas le d&#233;placer...
J'ai essay&#233; un titre sans espace &#233;galement...

olixelle · Answer

si ca marche toujours pas, recupere le long que te retourne
mcisendstring & r&#233;cupere le msg d'erreur avec mcigetstringerror ou
un truc comme ca... ca te donnera ptet des indices :)

Rollerman

hackademius · Answer

-> Erreur aussi ici : mciSendString "Play " & Fichier, 0, 0, 0   


mciSendString "Play Fichier",0,0,0


Ton "Fichier" fait parti du string a envoyer ce n'est pas une variable d'apres ce que j'ai compris.

hackademius · Answer

et essai ca :

mciSendString "play Fichier wait",0,0,0


normalement ca doit attendre la fin pour fermer.


ou sinon 


mciSendString "play Fichier from 1 to 5000",0,0,0


ca va jouer du debut jusqu'a 5 secondes.


Cordialement.

MciSendString

5 réponses

Discussions similaires