PureBoard

Verfasst: **15.06.2006 19:12**

Hi
Hab in der netten Purebasichilfe einen Code gefunden und will ihn ein wenig verändern.
Hier erstmal der Code

If InitMovie() = 0
  MessageRequester("Error","Ladefehler",0) 
  End
EndIf

MovieName$ = OpenFileRequester("Bitte Film auswählen","","Movie/Audio files|*.avi;*.mpg;*.asf;*.wav|All Files|*.*", 0)
If MovieName$
  If LoadMovie(0, MovieName$)
  
    OpenWindow(0, 100, 150, MovieWidth(), MovieHeight(),#PB_Window_BorderLess,"player")
    PlayMovie(0, WindowID())
      
    Repeat
    Until quit = 1
  Else
    MessageRequester("Error", "Ladefehler", 0)
  EndIf
EndIf

Is schon ein bischen verändert aber egal.
Mein Problem:
Was kann ich tun damit der Benutzer nicht selbst einen Film auswählen kann,sondern schon ein Film vorgegeben ist,der dann gleich beim starten des Player's abläuft.

Noch was:
Wieso kann ich den Player nicht mehr beenden?
Irgendwie funzt das nicht mehr,nachdem ich die Ränder weggemacht habe.

Verfasst: **15.06.2006 19:20**

Tach!
Der "OpenFileRequester()" gibt ja die gewünschte Datei zurück. Du musst ihn einfach nur durch den Dateinamen ersetzten.

Code: Alles auswählen

MovieName$ = "DEINEDATEI"

Du kannst deshalb den Player nicht mehr beenden:

Code: Alles auswählen

Repeat
Until quit = 1

Das ist eine Endlosschleife, da "quit" nie den Wert "1" erreichen kann.
so würde es funktionieren:

Code: Alles auswählen

 
Repeat
  EventID = WaitWindowEvent()
  If EventID = #pb_event_closewindow
    Quit = 1
  Endif
Until Quit = 1

Du müsstest allerdings die "Ränder" besser wieder dranmachen, da du sonst kein Schließen-Button hast!

Verfasst: **16.06.2006 16:40**

Danke für die Hilfe, aber irgendwie will das immer noch nich klappen.
Kannst du vieleicht mal den fertigen Code schreiben?
Danke.

Verfasst: **16.06.2006 16:47**

Ei natürlich!

So müsste es gehen:

Code: Alles auswählen

If InitMovie() = 0
  MessageRequester("Error", "Ladefehler", 16) ; "16" gibt einen Fehler-Requester
  End
EndIf

;MovieName$ = OpenFileRequester("Bitte Film auswählen","","Movie/Audio files|*.avi;*.mpg;*.asf;*.wav|All Files|*.*", 0)
; oder
MovieName$ = "C:\BLABLABLA" ; Deine Datei (voller Dateiname)

If MovieName$
  If LoadMovie(0, MovieName$)
 
    OpenWindow(0, 100, 150, MovieWidth(0), MovieHeight(0),#PB_Window_SystemMenu,"Player")
    PlayMovie(0, WindowID(0))
     
    Repeat
      EventID = WindowEvent()
      Delay(0) ; Um nicht die CPU zu überlasten
    Until EventID = #PB_Event_CloseWindow ; Bis man das Fenster schließt
    End
  Else
    MessageRequester("Error", "Ladefehler", 16)
  EndIf
EndIf

Verfasst: **16.06.2006 16:50**

Ich probiers gleich aus, danke.

PureBoard

Movieplayerproblem

Movieplayerproblem