Movie im Open screen abspielen

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Movie im Open screen abspielen

Beitrag von MASH »

Hallo kann mir jemand sagen wie ich einen movie im open screen modus abspiele?
Danke Mark S.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Wie auf nem Fenster. Nur übergibst du statt dem WindowID() ScreenID().
Bild
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Beitrag von MASH »

Er wird aber nicht abgespielt

Code: Alles auswählen

If OpenScreen(ScreenWidth.l,ScreenHeight.l,ScreenDepth.l,"Movie Player") <> #FALSE
PlayMovie(0,ScreenID())
Danke Mark S.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

Hast du versucht ob es auf dem Fenster korrekt abgespielt wird? Weil
eigentlich müsste das Beispiel funktionieren, da ein Screen auch nur
ein Fenster ist, was kein Boarder hat und sich über den ganzen Screen
erstreckt.
Bild
Benutzeravatar
MASH
Beiträge: 130
Registriert: 22.05.2005 17:43

Beitrag von MASH »

auf dem fenster geht es ja richtig also daran liegt es nicht und wenn ich kurz mit alt tab umswitche dan geht es auch
Danke Mark S.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

In der Hilfe steht es ja auch nochmal:
Es ist ebenso möglich, ein Movie auf einem Voll-Bildschirm ("Fullscreen") abzuspielen. Verwenden Sie hierzu einfach das Ergebnis von ScreenID() als 'WindowID'.
Der Fehler muss also woanders im Code liegen.
Bild
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

also bei mir tut sich hier auch nix.

Code: Alles auswählen

If InitSprite() And InitMovie() And InitKeyboard()
  
  File.s = OpenFileRequester("", "", "*.*", 0)
  If File And LoadMovie(0, File) And OpenScreen(640, 480, 16, "test")
    ResizeMovie(0, 0, 640, 480)
    PlayMovie(0, ScreenID())
    
    Repeat
      Delay(1)
      ExamineKeyboard()
    Until KeyboardPushed(#PB_Key_Escape)
  EndIf
  
EndIf
im fenster gehts aber problemlos. :?

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Benutzeravatar
MVXA
Beiträge: 3823
Registriert: 11.09.2004 00:45
Wohnort: Bremen, Deutschland
Kontaktdaten:

Beitrag von MVXA »

mal 3.93 raus krammen...

///Edit:
Versuch mit 3.93 blieb erfolglos. Ich bin dafür jetzt mal Fred anzufunken.
Bild
Benutzeravatar
nco2k
Beiträge: 892
Registriert: 08.09.2004 23:13

Beitrag von nco2k »

gesagt, getan. :)

c ya,
nco2k
~|__/
..o.o.. <--- This is Einkaufswagen. Copy Einkaufswagen into your signature to help him on his way to world domination.
Antworten