Seite 1 von 1
Movie fenster beenden
Verfasst: 31.12.2009 00:58
von big earl
Also ich habe vor ca einer Woche mit PB angefangen und hab schon die erste Frage (^- ^ )
hier mein Source:
Code: Alles auswählen
InitMovie()
;-Window
Enumeration
#WINDOW_0
#WINDOW_1
EndEnumeration
;-Video
Enumeration
#VIDEO_0
EndEnumeration
;-Buttons
Enumeration
#BUTTON_0
#BUTTON_1
EndEnumeration
Procedure StartVideo()
LoadMovie(#VIDEO_0,"C:\video.mp4")
PlayMovie(#VIDEO_0,#WINDOW_0)
EndProcedure
Procedure StopVideo()
StopMovie(#VIDEO_0)
CloseWindow(#WINDOW_0)
EndProcedure
If OpenWindow(#WINDOW_0,100,100,230,40,"Video tääst",#PB_Window_SystemMenu)
ButtonGadget(#BUTTON_0,10,10,100,20,"Start video")
ButtonGadget(#BUTTON_1,120,10,100,20,"Stop video")
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case #BUTTON_0
StartVideo()
Case #BUTTON_1
StopVideo()
EndSelect
EndSelect
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
nun haben sicherlich bereits einige gemerkt, dass sich das video Fenster nicht schliesen wird
also meine Frage, wie kann ich das Video beenden, ohne das aktive Fenster zu schliesen ?
Re: Movie fenster beenden
Verfasst: 31.12.2009 01:08
von Shadow-Gamer
bei
Code: Alles auswählen
Procedure StopVideo()
StopMovie(#VIDEO_0)
CloseWindow(#WINDOW_0)
EndProcedure
das CloseWindow entfernen, wenn du das meinst
Re: Movie fenster beenden
Verfasst: 31.12.2009 01:12
von ts-soft
Code: Alles auswählen
InitMovie()
;-Window
Enumeration
#WINDOW_0
#WINDOW_1
EndEnumeration
;-Video
Enumeration
#VIDEO_0
EndEnumeration
;-Buttons
Enumeration
#BUTTON_0
#BUTTON_1
EndEnumeration
Procedure StartVideo()
LoadMovie(#VIDEO_0,"C:\video.mp4")
OpenWindow(#WINDOW_1, #PB_Ignore, #PB_Ignore, MovieWidth(#VIDEO_0), MovieHeight(#VIDEO_0), "")
PlayMovie(#VIDEO_0, WindowID(#WINDOW_1))
EndProcedure
Procedure StopVideo()
StopMovie(#VIDEO_0)
CloseWindow(#WINDOW_1)
EndProcedure
If OpenWindow(#WINDOW_0,100,100,230,40,"Video tääst",#PB_Window_SystemMenu)
ButtonGadget(#BUTTON_0,10,10,100,20,"Start video")
ButtonGadget(#BUTTON_1,120,10,100,20,"Stop video")
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
Select EventWindow()
Case #WINDOW_0
Break
Case #WINDOW_1
CloseWindow(#WINDOW_1)
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case #BUTTON_0
StartVideo()
Case #BUTTON_1
StopVideo()
EndSelect
EndSelect
ForEver
EndIf
1. also Playmovie wurde nicht die windowid übergeben, siehe obigen korrigierten code.
2. fenster für video würde nicht geöffnet.
3. Zweimal WaitWindowEvent im Mainloop, das geht nicht.
Gruß
Thomas
Re: Movie fenster beenden
Verfasst: 31.12.2009 01:23
von big earl
@Shadow-Gamer
ich meinte eigentlich, das video Fenster beenden (^- ^ )
big thx an ts-soft läuft alles super, kann endlich weiterarbeiten (^ .^)
Re: Movie fenster beenden
Verfasst: 31.12.2009 01:40
von ts-soft
big earl hat geschrieben:big thx an ts-soft läuft alles super, kann endlich weiterarbeiten (^ .^)
Wenn die mitgelieferten Infos und der Source so klar sind, hilft man doch gerne
