mini Videoplayer

TheShadowAE

Also ich habe einen Videoplayer erstellt und wunderbar die Enttäuschung ist groß: kein anzeichen von Video/Videofeld.
Mal wieder super Langsam kriege ich das Gefühl ich hab ziemlich viele Probleme.

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>
#include <GUIAvi.au3>

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

#Region ### START Koda GUI section ### Form=D:\Progen\AutoIt\Meine\Forms\Video.kxf
$Form1 = GUICreate("Kleiner Videoplayer", 633, 447, 193, 125)
$Avi1 = _GUICtrlAVI_Create($Form1, "", -1, 32, 32, 561, 329)
$Slider1 = GUICtrlCreateSlider(32, 376, 561, 25)
$Button1 = GUICtrlCreateButton("Start", 32, 408, 89, 25, 0)
$Button2 = GUICtrlCreateButton("Pause", 144, 408, 89, 25, 0)
$Button3 = GUICtrlCreateButton("Weiter", 256, 408, 81, 25, 0)
$Button4 = GUICtrlCreateButton("Stop", 360, 408, 81, 25, 0)
$Button5 = GUICtrlCreateButton("Datei", 464, 408, 81, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

if $cmdline[0]>0 Then
_GUICtrlAVI_Open($Avi1,$cmdline[1])
_GUICtrlAVI_Play($Avi1)
_GUICtrlAVI_Show($Avi1,@SW_SHOW)
EndIf

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

#cs
_GUICtrlAVI_Seek($hWnd, $iFrame)

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

#ce

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
_GUICtrlAVI_Close($Avi1)
_GUICtrlAVI_Destroy($Avi1)
Exit
Case $Button5
_GUICtrlAVI_Close($Avi1)
$file=FileOpenDialog("Video auswählen","","Videos(*.avi)",11)
_GUICtrlAVI_Open($Avi1,$file)
_GUICtrlAVI_Play($Avi1)
_GUICtrlAVI_Show($Avi1,@SW_SHOW)
Case $Button1
_GUICtrlAVI_Play($Avi1)
_GUICtrlAVI_Show($Avi1,@SW_SHOW)
Case $Button4
_GUICtrlAVI_Stop($Avi1)
case $Button2,$Avi1
if _GUICtrlAVI_IsPlaying($Avi1) Then

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

EndIf
Case $Button3,$Avi1

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

EndSwitch
WEnd

[/autoit]

m-obi

Vielleicht postest du erstmal bei Hilfe & Unterstützung, damit du erstmal deine ganzen Probleme gelöst bekommst und dann die fertigen, funktionierenden Skripte auch unter Skripte postest.

Achja wenn du auskommentieren willst geht das ganz einfach, wenn du in der jeweiligen Zeile einfach auf die Minus-Taste drückst. Ist schneller als immer #cs und #ce zu schreiben.

PrideRage

Mit _GUICtrlAvi_Create wird das nix, das is für diese kleinen Windows animationen soweit ich weiss.
Du musst ein Windows Media Player Object erstellen (Wenn ich mich noch recht erinnere ist es wmplayer.ocx)
Also so:

[autoit]

$oWmp = ObjCreate("wmplayer.ocx")

[/autoit]

Und hier ein paar weitere Befehle:

[autoit]

With $oWMP
.URL = ("")
.fullScreen = True
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith

[/autoit]

Es gibt bestimmt mehr, aber das sollte reichen.
Hoffentlich sind sie selbsterklärend
MfG. PrideRage

TheShadowAE

Ja damit habe ich schon was gemacht, aber ich bin nicht drauf gekommen Danke.

@m-obi Ja ich dachte das ist eigentlich fertig, nur es nicht aber ja werde ich machen. Und das mit dem - weiß ich ich habe dadrin die Befehle bewahrt die ich noch benutzen wollte.

TheShadowAE

Hm das funktioniert ganz gut, bis auf die Anzeige. Das Video besteht aus schwarz, Musik vom Video wird gespielt

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=D:\Progen\AutoIt\Meine\Forms\Video.kxf
$Form1 = GUICreate("Kleiner Videoplayer", 633, 447, 193, 125)
$wmp = ObjCreate("wmplayer.ocx")
$obj=GUICtrlCreateObj($wmp,32, 32, 561, 329)
$Slider1 = GUICtrlCreateSlider(32, 376, 561, 25)
GUICtrlSetLimit($Slider1,100,0)
$Button1 = GUICtrlCreateButton("Start/Weiter", 32, 408, 89, 25, 0)
$Button2 = GUICtrlCreateButton("Pause", 144, 408, 89, 25, 0)
$Button4 = GUICtrlCreateButton("Stop", 260, 408, 81, 25, 0)
$Button5 = GUICtrlCreateButton("Datei", 494, 408, 81, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

With $wmp
.URL = ("")
.fullScreen = False
.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith

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

if $CmdLine[0]>0 Then
$wmp.URL=($cmdline[1])
$wmp.controls.play()
EndIf

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
$file=FileOpenDialog("Video auswählen","","Videos(*.mp4)",11)
$wmp.URL=($file)
$wmp.controls.play()
Case $Button1
$wmp.controls.play()
Case $Button4
$wmp.controls.stop()
case $Button2
$wmp.controls.pause()
Case $Slider1

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

EndSwitch
WEnd

[/autoit]

PrideRage

Machs so

[autoit]

With $WMP
.URL = ("")
.fullScreen = True
;.windowlessVideo = True
.stretchToFit = True
.enableContextMenu = True
.enabled = True
.uiMode = "full"; none / mini full
.settings.autostart = True
.settings.mute = True
.settings.volume = 100; 0 - 100
.settings.Balance = 0; -100 to 100
EndWith

[/autoit]

.windowlessVideo war was Problem.

TheShadowAE

Oh da habe ich nicht richtig geguckt.
Kann man denn auch die Größe von diesem Miniplayer verändern?

PrideRage

Das weiss ich nicht sry.

**chip**

Zitat von TheShadowAE

Oh da habe ich nicht richtig geguckt.
Kann man denn auch die Größe von diesem Miniplayer verändern?

Kann mich dunkel erinnern das das mit den Parametern geht:

[autoit]

.Height = 100
.Width = 100

[/autoit]

Bin mir aber da nichtmehr so sicher, einfach probieren.

TheShadowAE

Ne klappt leider nicht..

**Sprenger120**

Ich habe hier noch ein Paar sachen die du noch mit einbauen kannst

[autoit]

.controls.currentPositionString ;Aktuelle Position ermitteln, wir in der Form zurückgegeben HH:MM:SS
.controls.currentPosition ;Position setzen, bitte mit prozente machen also für die mitte 50
If $oWMP.controls.isAvailable("fastReverse") Then $oWMP.controls.fastReverse() ;zurückspulen,funzt aber nicht immer
If $oWMP.controls.isAvailable("fastForward") Then $oWMP.controls.fastForward(); vorspulen, funzt aber nicht immer

[/autoit]

oder du nimmst Direct Show (UDF ist im Anhang)

TheShadowAE

Thx, aber das klappt irgendwie nicht, nichtmal isAvailable. Ich weiß nicht warum
Aber DirectX funktioniert