Bonjour à tous,
Cela fait plusieurs jours que je cherche en vain sur le Net pour résoudre mon problème :
J'ai fait un petit programme auquel je veux ajouter une animation sonore avec des bruits (Cloche, claquement etc...). Pour ce faire, j'utilise la fonction
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
la commande
r = mciSendString("OPEN """ & Chemin_Son_Wave & """ TYPE WAVEAUDIO ALIAS " & Nom_Son_wave & "" & Chr$(0), 0&, 0, 0)
et la commande
r = mciSendString("PLAY " & Nom_Son_wave & " FROM 0", 0&, 0, 0)
J'ai donc un Répertoire contenant tous les sons wave (15 à 30 ko par son)
Or je veux mettre tous ces sons dans un fichier de ressources
et là j'avoue mon impossibilité d'arriver à lire ses fichiers sons directement dans le ficher de ressources avec mciSendString.
Jai bien trouvé ceci :
Dim BDATA() As Byte
'Nom du repertoire ds laquel on va copier le son
Nomfichier$ = "C:\son.wav"
nbr = FreeFile
Open Nomfichier$ For Binary As #nbr
'Caractéristiques et nom du son inclu dans le programme
BDATA = LoadResData("CLOCHE", "WAVE")
Put #nbr, , BDATA
Close #nbr
Mais même si je parviens à faire fonctionner les bruits, les fichiers wave sont à nouveau écrits sur le DD.
Merci pour votre aide !