AVI

nof@ker2

Hallo autoit.de
Ich habe heute zum 1sten mal versucht ein AVI - Video in meine GUI einzubauen und bin kläglich gescheitert
Code :

Spoiler anzeigen

[autoit]

#RequireAdmin
#include <GUIAvi.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$main = GUICreate ('',@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,$WS_EX_TOPMOST)
GUISetState (@SW_SHOW,$main)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlAVI_Create ($main,"",-1,0,0,@DesktopWidth,@DesktopHeight)

[/autoit] [autoit][/autoit] [autoit]

_GUICtrlAVI_Open ($main,@ScriptDir&"\intro.avi")
_GUICtrlAVI_Play ($main)

[/autoit] [autoit][/autoit] [autoit]

While 1
Switch GUIGetMsg ($main)
Case -3
Exit
EndSwitch
WEnd

[/autoit]

Mit der autoit.de Suche hab ich mal wieder nichts brauchbares gefunden.

**Sprenger120**

Häng mal die AVI an pls.

Prajoss

Hi,

Probier folgenden Befehl

[autoit]

GuiCtrlCreateAvi("name.avi", V, W, X, Y, Z, $ACS_AUTOPLAY)

[/autoit]

Gruß

Prajoss

Kev

[autoit][/autoit][autoit][/autoit][autoit]

#RequireAdmin
#include <GUIAvi.au3>
#include <WindowsConstants.au3>

[/autoit][autoit][/autoit][autoit]

$main = GUICreate("",@DesktopWidth,@DesktopHeight,0,0,$WS_POPUP,$WS_EX_TOPMOST)

[/autoit][autoit][/autoit][autoit]

GuiCtrlCreateAvi(@ScriptDir & "\intro.avi",-1,0,@DesktopWidth,@DesktopHeight, $ACS_AUTOPLAY)

[/autoit][autoit][/autoit][autoit]

GUISetState (@SW_SHOW)
While 1
Switch GUIGetMsg ($main)
Case -3
Exit
EndSwitch
WEnd

[/autoit]

nof@ker2

Kev & Prajoss : Funktioniert auch nicht , gibt en ERROR , datei nicht für die ausführung unter windows gedacht oder so
@Sprenger : AVI reineditiert .

Alizame

das geht mir auch immer so, deswegen mache ich sowas nicht(-mehr)

**Sprenger120**

Hier hab mal schnell was gemacht

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$oWMP = ObjCreate("WMPlayer.OCX")

[/autoit] [autoit][/autoit] [autoit]

GUICreate("", 625, 443, 192, 124)
GUICtrlCreateObj($oWMP, 10, 10, 500, 200)

[/autoit] [autoit][/autoit] [autoit]

$Play = GUICtrlCreateButton("Play", 24, 264, 97, 25, $WS_GROUP)
$Pause = GUICtrlCreateButton("Pause", 136, 264, 105, 25, $WS_GROUP)
$Stop = GUICtrlCreateButton("Stop", 264, 264, 121, 25, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

With $oWMP
.uiMode = "none"
.fullscreen = False
.url = @ScriptDir & "\AutoIt Tutorial Part 0 (Introduction).avi"
.controls.stop ;Auskommentieren wenn autostart erwünscht ist
EndWith

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Play
If $oWMP.controls.isAvailable("play") Then $oWMP.controls.play()
Case $Pause
If $oWMP.controls.isAvailable("pause") Then $oWMP.controls.pause()
Case $Stop
If $oWMP.controls.isAvailable("stop") Then $oWMP.controls.stop()
EndSwitch
WEnd

[/autoit]

nof@ker2

Danke Sprenger , funktioniert einwandfrei .

ProblemUser

Gibt es auch eine möglichkeit ohne den WMPlayer/oder DSEngine? Ich versteh nicht wießo AVI's nicht funktionieren!

**Sprenger120**

Nein leider nicht. Die Avi Controls unterstützen nur eine Spezielle Codierung. Diese meistens in Dll´s als Resouren anftauchen.

nof@ker2

@Sprenger : Ich habe nochmal 2 kurze Fragen :
1. Wie kann ich herausfinden ob das Video fertig ist oder nicht ?
2. Wie kann ich das Video in den Fullscreenmodus bekommen ? .fullscreen = true funktioniert nicht

**Sprenger120**

zu erstens: Das lässt sich mit der Abfrage

[autoit]

$oWMP.controls.currentPosition = $oWMP.currentMedia.duration And $oWMP.controls.currentPosition <> 0

[/autoit]

lösen
Zu 2: Vollbild geht so aber leider bekomm ich das jetze nicht hin das Das Video auf dif Gui größe angepasst wird

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Fullscreen = True
Global $Play,$Pause,$Stop

[/autoit] [autoit][/autoit] [autoit]

$oWMP = ObjCreate("WMPlayer.OCX")

[/autoit] [autoit][/autoit] [autoit]

Switch $Fullscreen
Case False
GUICreate("", 625, 443, -1, -1)
GUICtrlCreateObj($oWMP, 10, 10, 500, 200)
$Play = GUICtrlCreateButton("Play", 24, 264, 97, 25, $WS_GROUP)
$Pause = GUICtrlCreateButton("Pause", 136, 264, 105, 25, $WS_GROUP)
$Stop = GUICtrlCreateButton("Stop", 264, 264, 121, 25, $WS_GROUP)

[/autoit] [autoit][/autoit] [autoit]

Case True
GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0)
GUICtrlCreateObj($oWMP, 0, 0, @DesktopWidth, @DesktopHeight)
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

With $oWMP
.uiMode = "none"
.fullscreen = False
.url = @ScriptDir & "\AutoIt Tutorial Part 0 (Introduction).avi"
EndWith

[/autoit] [autoit][/autoit] [autoit]

If $Fullscreen = False Then $oWMP.controls.stop ;Auskommentieren wenn autostart erwünscht ist

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Play
If $oWMP.controls.isAvailable("play") Then $oWMP.controls.play()
Case $Pause
If $oWMP.controls.isAvailable("pause") Then $oWMP.controls.pause()
Case $Stop
If $oWMP.controls.isAvailable("stop") Then $oWMP.controls.stop()
EndSwitch
If $oWMP.controls.currentPosition = $oWMP.currentMedia.duration And $oWMP.controls.currentPosition <> 0 Then MsgBox(0, "", "Zuende")
WEnd

[/autoit]

Acanis

Muss für diese Lösung der Windows Media Player installiert sein? Klappt das auf allen Systemen? Genau so was habe ich gesucht, sehr nice!

LG

*edit*
Und kann man das auch als EndlosVideo einstellen? Dass das also nicht nur 1x gemacht wird, ohne Button? Plane, ein 1-sekundiges Video als Hintergrund zu setzen...

*edit2*
Achso, auf GUI-Größe ist das nicht machbar? *hmmmmm*

**Sprenger120**

Zitat von Acanis

Muss für diese Lösung der Windows Media Player installiert sein?

Zwangsweise ja

Zitat von Acanis

Und kann man das auch als EndlosVideo einstellen? Dass das also nicht nur 1x gemacht wird, ohne Button? Plane, ein 1-sekundiges Video als Hintergrund zu setzen...

Ja einfach das Adlib nach GuiSetState .. einfügen und die Funktion hier nach unten

[autoit]

AdlibRegister("EndlessVid")

[/autoit][autoit][/autoit][autoit][/autoit][autoit]

Func EndlessVid()
$oWMP.controls.currentPosition = $oWMP.currentMedia.duration And $oWMP.controls.currentPosition <> 0 then
If $oWMP.controls.isAvailable("play") Then $oWMP.controls.play()
endif
endfunc

[/autoit]

Acanis

Wenn du jetzt noch per Reg oder so feststellen lässt, ob WMP installiert ist, kannste daraus eig. schon ne dolle UDF machen :D...

LG

**Sprenger120**

Wenn das Objekt nicht existiert (wenn wmp nicht installiert ist) dann gibt AutoIt eine schöne Fehlermeldung aus und der Script beendet sich und Es gibt schon eine UDF (Link)