PureBasic

Bon j'ai fait des recherches sur le forum et dans la doc ...et je comprends toujours pas pourquoi je n'arrive pas a jouer un film en plein ecran...
Le seul film que j'ai sur mon dur c'est du wmv je sais pas si c'est a cause de ça ! de plus toujours avec le même code j'ai parfois l'image qui est toute tordu genre losange ... et je m'explique pas pourquoi ...
voici la video en question http://chichiweb.free.fr/fichiers/autruche.wmv
Et Voilà le code

Code : Tout sélectionner

InitKeyboard()
InitSprite()
#Screenwidth = 800
#Screenheight = 600
MovieName$ = OpenFileRequester("Choisir votre film", "", "Movie/Audio files|*.wmv;*.avi;*.mpg;*.asf;*.mp3;*.wav;*.wmf|All Files|*.*", 0)

OpenScreen( #Screenwidth, #Screenheight, 32, "Movie player"  )
If InitMovie() = 0
  MessageRequester("Error", "Can't initialize movie playback !", 0)
  End
EndIf


If MovieName$
  If LoadMovie(0, MovieName$)
    ResizeMovie(0, 0, #Screenwidth, #Screenheight)    
    PlayMovie(0, ScreenID())

    Repeat
      Delay(1)
      ExamineKeyboard()
    Until KeyboardPushed(#PB_Key_Escape)

  EndIf
EndIf
End

je mets dans truc et astuces un codes qui permet de le faire

Oui je l'ai vu !
Mais apparement le problème vient surtout des différents formats de fichier ! Si il joue parfaitement les fichiers MPG, les autres c'est assez moyen...je parle pas des Divx qui avec la quantité de différent codec c'est un peu normal que ça se joue mal, mais par exemple les fichier wmv pose problème. Décalage de l'image avec des bandes noirs en haut et a droite. déformation même de l'image ... faut queje fasse une copie d'ecran a l'occasion pour vous montrer !!!

) Bref plein de petit problème de ce genre alors que les mêmes films se joue parfaitement bien avec mediaplayer ! Est ce que je suis le seul a avoir contacté ça ?

jamais eu de problème, même avec des divx.
le système de lecture est le même que win média player (avec utilisation des mêmes codecs), après, c'est une histoire d'interface. (si Fred peut confirmer)

c'est un peu ce que je supposais (le système de lecture est le même que win média player ) mais j'ai des problèmes de sacades sur certain film alors qu'en les lisants sur le même pc avec windows media player c'est super fluide. (cela avec le code que j'ai donné si dessus)
Je vais essayer de faire des tests sur plusieurs pc différent histoire de voir !

essai en ne passant pas par un openscreen() mais pas une fenêtre mise en plein écran, je pense que ton problème vient de la.

@Le Soldat Inconnu
Merci de t'être interessé a mon post.
J'utilise déjà un openscreen si tu regardes le codes que j'ai donné au debut de ce sujet !
J'ai refait des tests aujourd'hui et ça ne change pas... des que je joue un film en wmv l'image se deforme et si j'en joue un autre l'image se deforme un peu plus ... j'ai essayé de faire une copie d'ecran mais ça ne donne rien...
L'image se deforme sous forme de losange le bas de l'image se decale sur la droite alors que le haut reste haut meme endroit ...
Bref tres tres curieux...

Essai de lire tes vidéos avec mon code et dis moi si ça fait pareil.

@Thyphoon

Même problème chez moi, la vidéo s'affiche sous forme de losange en mode OpenScreen()
Par contre, en faisant une fenêtre sans bordure de la taille de mon écran, aucun problème.

A mon avis, la fonction OpenScreen() n'a pas été prévue pour ce genre d'utilisation.

Merci Chris ça me rassure ! c'est donc un pb avec l'Openscreen je vais tester en faisant une fenêtre sans bordure comme toi !
Est ce que Fred est au courant de ce Bug ? (Est ce bien un bug ?)
je vous tient au courant

Si tu veux, voilà le code que j'ai utilisé pour tester.

Code : Tout sélectionner

#Window = 0
#Desktop = 0

If ExamineDesktops()
  Width = DesktopWidth(#Desktop)
  Height = DesktopHeight(#Desktop)
EndIf

Volume = 50
Balance = 0

If InitMovie() = 0 
  MessageRequester("Error", "Can't initialize movie playback !", 0) 
  End 
EndIf
 
MovieName$ = OpenFileRequester("Choisir votre film", "", "Movie/Audio files|*.wmv;*.avi;*.mpg;*.asf;*.mp3;*.wav;*.wmf|All Files|*.*", 0) 

If MovieName$ And LoadMovie(0, MovieName$) 
  
  hMain = OpenWindow(#Window, 0, 0,Width, Height, #PB_Window_BorderLess, "")
  
  ResizeMovie(0, 0, Width, Height)    
  PlayMovie(0, hMain)
  
  Repeat
    MovieAudio(Volume, Balance)
    
    Select WindowEvent()
      Case #WM_KEYDOWN
        Select EventwParam()
          Case #VK_ESCAPE
            quit = #True
            
          Case #VK_UP 
            Volume +1
            If Volume >100 : Volume = 100 : EndIf
            
          Case #VK_DOWN
            Volume -1
            If Volume <0 : Volume = 0 : EndIf
            
          Case #VK_LEFT
            Balance -1
            If Balance < -100 : Balance = -100 : EndIf
            
          Case #VK_RIGHT
            Balance +1
            If Balance > 100 : Balance = 100 : EndIf

        EndSelect
    EndSelect
  Until quit
  End
Else
  MessageRequester("Erreur","Impossible de lire le film")
  End
EndIf

@Chris
Merci beaucoup je testerais ça des lundi car je pourrais pas avant ! Mais je vous tient au courant !

@Chris Ok C'est testé ! et c'est parfait !

Donc il y a bien un bug lorqu'on joue un film sur un Screen !
A votre avis faut il rajouter un post dans les rubriques Bugs du forum ou pas ?

Merci a tous pour votre aide !

PureBasic

Video plein ecran

Video plein ecran