[R] Problème Sound.au3

[Narmeke]

Bonjours tous le monde !
J'ai un petit souci avec Sound.au3 , lors de l'appelle d'une fonction, j'obtiens une erreur.
Je suis sous Vista, et j'aimerais que quelq'un m'UP son Sound.au3 pour tester si j'ai la même erreur !

Merci d'avance !

[Tlem]

Si vous ne donnez pas la teneur de l'erreur, comment voulez-vous que l'on puise vous aider ...

[Narmeke]

Oui, c'est vrai

Alors mon message d'errreur est le suivant :

Code : Tout sélectionner

Line 443 (File "C:\Program Files\AutoIt3\Include\Sound.au3"):

If $aSndID[1] <> 0 Then
If ^ ERROR

Error: Array variable has incorrect number of subscipts or subscipt dimension range exeeded.
 

Extrait de Sound.au3

Code : Tout sélectionner

    If StringInStr($aSndID[0], '!') Then Return SetError(3, 0, 0) ; invalid file/alias

    ;tell mci to use time in milliseconds
    __mciSendString("set " & $aSndID[0] & " time format miliseconds")
    ;receive position of sound
    $iSndPosMs = Number(__mciSendString("status " & $aSndID[0] & " position", 255))
    [color=#FF0000]If $aSndID[1] <> 0 Then[/color] [color=#40FF00]; <=== Ligne 442 (c'est ici que se situe mon erreur)[/color]
        $iSndPosMs -= $aSndID[2]
    EndIf
    
    ;modify data and assign to variables
    _TicksToTime($iSndPosMs, $iSndPosHour, $iSndPosMin, $iSndPosSecs)
 

[Tlem]

L'erreur que vous obtenez signale simplement que (dans votre cas) $aSndID n'est pas un tableau.

Il faut donc remonter plus avant dans le code et voir quand ce tableau est sensé être créé ou initialisé et pourquoi il ne l'est pas.

[Narmeke]

La fonction complète :

Code : Tout sélectionner

Func _SoundPos($aSndID, $iMode = 1)
    ;Declare variables
    Local $iSndPosMs, $iSndPosMin, $iSndPosHour, $iSndPosSecs, $sSndPosFormat, $vTemp
    ;validate $iMode
    If $iMode <> 1 And $iMode <> 2 Then Return SetError(1, 0, 0)
    If Not IsArray($aSndID) Then
        If Not FileExists($aSndID) Then Return SetError(3, 0, 0) ; invalid file/alias
        $vTemp = FileGetShortName($aSndID)
        Dim $aSndID[1] = [$vTemp]
    EndIf
    If StringInStr($aSndID[0], '!') Then Return SetError(3, 0, 0) ; invalid file/alias

    ;tell mci to use time in milliseconds
    __mciSendString("set " & $aSndID[0] & " time format miliseconds")
    ;receive position of sound
    $iSndPosMs = Number(__mciSendString("status " & $aSndID[0] & " position", 255))
    If $aSndID[1] <> 0 Then
        $iSndPosMs -= $aSndID[2]
    EndIf
    
    ;modify data and assign to variables
    _TicksToTime($iSndPosMs, $iSndPosHour, $iSndPosMin, $iSndPosSecs)

    ;assign formatted data to $sSndPosFormat
    $sSndPosFormat = StringFormat("%02i:%02i:%02i", $iSndPosHour, $iSndPosMin, $iSndPosSecs)
    ;return correct variable
    If $iMode = 1 Then Return $sSndPosFormat
    If $iMode = 2 Then Return $iSndPosMs
EndFunc   ;==>_SoundPos
 

Pas Facile ^^

[Tlem]

Sans la possibilité de tester en situation réelle, je ne peut vous donner que quelques directions de recherche.

La fonction _SoundPos($aSndID, $iMode = 1) est initialisée avec deux paramètres, dont un ($iMode) est optionnel.
$aSndID quant à lui peut contenir le nom d'un fichier, ou un tableau.
La condition entre la ligne 6 de la fonction, teste si $aSndID est un tableau. Si il ne l'est pas, alors on vérifie que le fichier existe. Si le fichier n'existe pas alors on renvoi une erreur, sinon on stocke dans la variable $aSndID[0] le nom court (8+3) du chemin+fichier.

Je vous conseil donc de rajouter ligne 12 (juste avant la ligne ;tell mci to use time in milliseconds) une ligne de debug afin de contrôler que la variable $aSndID[0] contient bien le nom court d'un fichier avant de continuer le code.

[Narmeke]

Code : Tout sélectionner

Func _SoundPos($aSndID, $iMode = 1)
    ;validate $iMode
    If $iMode <> 1 And $iMode <> 2 Then Return SetError(1, 0, 0)
    If Not __SoundChkSndID($aSndID) Then Return SetError(3, 0, 0) ; invalid Sound ID or file name

    ;tell mci to use time in milliseconds
    __SoundMciSendString("set " & $aSndID[0] & " time format miliseconds")
    ;receive position of sound
    Local $iSndPosMs = Number(__SoundMciSendString("status " & $aSndID[0] & " position", 255))
    If $aSndID[1] <> 0 Then
        $iSndPosMs -= $aSndID[2]
    EndIf

    If $iMode = 2 Then Return $iSndPosMs

    ;$iMode = 1 (hh:mm:ss)

    ;modify data and assign to variables
    Local $iSndPosMin, $iSndPosHour, $iSndPosSecs
    __SoundTicksToTime($iSndPosMs, $iSndPosHour, $iSndPosMin, $iSndPosSecs)

    ;assign formatted data to $sSndPosFormat
    Local $sSndPosHMS = StringFormat("%02i:%02i:%02i", $iSndPosHour, $iSndPosMin, $iSndPosSecs)

    ;return correct variable
    Return $sSndPosHMS
EndFunc   ;==>_SoundPos
 

Et voilà le travail ^^
Cela fonctionne parfaitement a présent.
Merci Tlem