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
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