Hallo,
ich versuche mit _SoundPlay() *-mp3-Dateien abzuspielen, jedoch ohne erfolg.. keine der tausenden von mp3 dateien funktioniert. jedoch *.wav-dateien ohne problem.. was mach ich falsch???
der Fehlercode ist 10 und das ist die Fehlermeldung die ich über DllStructGetData() ermittelt habe
Fehler im Gerätetreiber. Der Treiber wurde geschlossen. Ein Fehler kann nicht gemeldet werden.hier mein script:
Spoiler anzeigen
#include <GUIConstantsEX.au3>
#include <Sound.au3>
$music_folder = @ScriptDir ;"D:\Eigene Musik"
Dim $sound
FileChangeDir($music_folder)
$files = FileFindFirstFile("*.mp3")
If $files = -1 Then
MsgBox(0, "ERROR", "Fehler beim Einlesen der Musikdateien!")
Exit
EndIf
$Main = GUICreate("Sort My Music", 562, 500)
$music = GUICtrlCreateList("", 23, 20, 517, 470)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
While 1
$file = FileFindNextFile($files)
If @error Then ExitLoop
GUICtrlSetData($music, $file)
WEnd
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $music
_SoundClose($sound)
SoundSetWaveVolume(100)
$sound = _SoundOpen($music_folder & "\" & GUICtrlRead($music))
If @error = 2 Then
MsgBox(0, "Error", "Datei ist beschädigt")
ElseIf @extended <> 0 Then
$extended = @extended
$stText = DllStructCreate("char[128]")
$errorstring = DllCall("winmm.dll", "short", "mciGetErrorStringA", "str", $extended, "ptr", DllStructGetPtr($stText), "int", 128)
MsgBox(0, "Error", "Öffnen fehlgeschlagen." & @CRLF & "Fehlernummer: " & $extended & @CRLF & "Fehlerbeschreibung: " & DllStructGetData($stText, 1))
$file = FileOpen("test.txt", 1)
FileWrite($file, DllStructGetData($stText, 1))
FileClose($file)
EndIf
_SoundPlay($sound, 0)
EndSwitch
WEnd
Meine andere Frage wäre wie ich zB. Interpret, Songtitel, Genre, usw herauslesen könnte. vielen dank schon mal für eure mühe
gruß Inferior
