Hallo zusammen,
ich bastle im Moment an einer kleinen GUI womit man ein Video aufrufen kann und das gleichzeitig eine Intervallvorgabe hat wann das Video wiederholt wird.
Soweit so gut klappt auch alles, video wird abgespielt, Intervall funktioniert usw.
Ob es natürlich der sauberste Weg ist kann ich als Autoit anfänger nicht sagen
Mein Problem ist nun aber sobald meine Funktion bzw der sleep aktiv ist funktioniert der "Verlassen" Button nicht.
[autoit]Dim $vlc = @ProgramFilesDir & "\vlc\vlc.exe"
[/autoit][autoit][/autoit][autoit]#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$form_video = GUICreate("Video Player", 474, 164, -1, -1)
$lbl_video = GUICtrlCreateLabel("Video:", 16, 19, 40, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$input_video = GUICtrlCreateInput("", 56, 16, 297, 21)
$btn_src_video = GUICtrlCreateButton("Öffne Video", 360, 15, 97, 25, $WS_GROUP)
$lbl_spielzeit = GUICtrlCreateLabel("Pause zwischen dem abspielen: (in Minuten)", 16, 59, 213, 17)
$input_zeit = GUICtrlCreateInput("30", 234, 56, 41, 21)
$btn_play = GUICtrlCreateButton("Video starten", 16, 104, 201, 41, $WS_GROUP)
$btn_exit = GUICtrlCreateButton("Programm schliessen", 256, 104, 201, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btn_exit
Exit
Case $btn_src_video
$getvideo = FileOpenDialog("Video Auswählen", "S:\SALES\Admin Center\EMPFANG\MONITOR1", "ALL (*.*)")
If @error Then
MsgBox(16,"Fehler","Keine Datei ausgewählt")
EndIf
GUICtrlSetData($input_video, $getvideo)
Case $btn_play
Global $video = GUICtrlRead($input_video)
Global $intervall = (GUICtrlRead($input_zeit)*60)*1000
_video()
[/autoit][autoit][/autoit][autoit]EndSwitch
WEnd
Func _video()
$videoplay = RunWait('"' & $vlc & '"' & " " & '"' & $video & '"')
ProcessWaitClose($videoplay)
sleep($intervall)
_video()
EndFunc
Vielen Dank schonmal
Gruß Waro