PureBasic

Quand je l'ai mise en ligne la première fois, il y a à peu près un an, j'ai demandé à ce que que vous la testiez

tu ne nous laisse pas le temps ....

Vous arrivez à lire les fichiers .wmv avec la lib. (plusieurs fois)

J'y arrivais avant mais depuis que j'ai installé la SP2, j'arrive à en lire un une seule fois, après avoir démarré le PC.
Ensuite, plus moyen d'en ouvrir un autre.

Le programme se bloque après avoir commencé à charger le fichier

Pour les AVI, pas de problème avec mon XP SP2

de toute facon le format wmv est pas terrible !
je m'en sert jamais !!

Dobro a écrit :de toute facon le format wmv est pas terrible !
je m'en sert jamais !!

C'est pas la question! Je m'en tape que tu t'en serves ou pas!

Je demande si vous pouvez les ouvrir ou non

je viens d'essayer avec un wmv le temps de la video renvoyé est juste chez moi !
et en plus je ne rencontre aucun problemme pour le charger !!
j'ai pris en exemple la video de la carte qui passe a travers le verre pour testé !

C'est pas la question! Je m'en tape que tu t'en serves ou pas!

et moi , je m'en tappe que tu t'en tappe !

Bon, ben si tout le monde s'en fout, elle va rester comme ça.
De toute façon, je m'en sers pas, moi

J'ai testé avec un petit fichier WMV sans aucun problème de lecture, l'affichage de la durée est correct.

Je n'arrive pas à utiliser cette fonction, il ne connait pas ces constantes. J'ai essayé 0 et 1 mais sans effet.
Je me demande si cela ne pourrait pas venir de la ! On a regarder chez mon pote et BS player et même Windows media player sort le bon temps !
Quand penser vous cher purebasiquien ?

essaye avec ma fonction pour voir

; Calcul du Bitrate Divx !! par Dobro
taille=700 ; la taille du CD sur lequel doit tenir le divx !!
; par defaut il calcul avec une bande son de 128 !!

Declare.s frame_deci_to_base60( nbr_frame)

Enumeration
     #Video
EndEnumeration


InitMovie ()

; *******************************************************************
;Le son sera encodé en MP3 à 128 kbps et fera donc 936Ko/mn
;Bitrate = [Dispo (Mo) / Durée (mn)] x 139
;Exemple pour un cd de 700 Mo
;notre film fait 1 h 37 mn 36 s (soit 98 mn)
;le son occupera donc => (98 X 936) / 1024 = 89,558 Mo (soit 90 Mo)
;reste 690 - 90 = 600 Mo dispos
;Bitrate => (600 / 98 ) X 139 = 851
; *******************************************************************


NomFichier$ = OpenFileRequester ( "charger une video" , "Video|*.avi;*.Mpg" , "*.avi;*.mpg" , 0 )
LoadMovie ( #Video , NomFichier$ )

Longueur = MovieLength ()
longueur_seconde=Longueur/25
longueur_minute=longueur_seconde/60
temp$=frame_deci_to_base60( Longueur)
minute_film=longueur_minute
taille_son=(minute_film*936)/1024
reste=taille-taille_son
If minute_film>0
    bitrate=(reste/minute_film)*139
Else
     MessageRequester ( "erreur " , "le film a un probleme !" , #PB_MessageRequester_Ok )
     End
EndIf
Resultat = MessageRequester ( "Resultat" , "la video fait : " +temp$+ Chr (10)+ " le bitrate pour un CD de :" + Str (taille)+ "Mo" + Chr (10)+ "sera de : " + Str (bitrate), #PB_MessageRequester_Ok )
End

Procedure.s frame_deci_to_base60( nbr_frame) ; transforme le nombre de frame d'un film en hh:mm:ss
    longueur_seconde=nbr_frame/25
    longueur_minute=longueur_seconde/60
    hh$= Str (longueur_seconde/3600)
    temp=(longueur_seconde-3600)* Val (hh$)
    mm$= Str ((temp/60))
    ss$= Str (temp- Val (mm$)*60)
    heure$=hh$+ ":" +mm$+ ":" +ss$
     ProcedureReturn heure$
EndProcedure

cependant ya de forte chance que ça marche pas !

personnellement j'ai rencontré le problème ya pas longtemps.
c'est d'ailleurs marrant que vous en parlez...

mais j'ai découvert ce probleme d'une autre maniere.
un soir je me suis mis à programmer comme çà, sur un coup de tete,
un miniplayer divx, pour les lire sur ma télé 72cm comme j'aime bien.
Le but du programme, son originalité, c'est d'etre controlable du fond du canap avec ma manette sans fils à 10 boutons. c'est une très bonne télécommande quand on y pense. mon idée est donc de faire un player simple, comme ceux qu'on trouve dans une bonne platine divx.
Quand j'ai commencé à programmer le truc j'ai utilisé naturellement les fonctions PB et là j'avais le meme probleme que vous. Mais pas sur tous les films. Pourtant mes players eux ne se trompent pas. Alors j'ai essayé ta lib et là pareil. Du coup je me demande si ta lib video est construite autour de celle de PB ?

Non, il n'y a aucune commande provenant de PB.
Elle est faite uniquement avec les commandes MCI de Windows.

ok donc çà pourrait venir des codecs...
c'est que sur quelques films. pas grave.

Chez moi, elle fonctionne bien avec les .avi, et les .mpg.

Par contre, avec les .wmv, plus moyen de l'utiliser depuis que j'ai installé la SP2.

La première fois que j'ouvre une vidéo en .wmv, elle fonctionne bien.
Si je la ferme et que je veux ouvrir une autre vidéo (ou la même) en .wmv, elle se charge, mais ça plante dès que je veux la lire. (La fenêtre de lecture s'affiche, mais la vidéo ne démarre pas, et le programme est gelé).
Possible que Microsoft ait modifié ses codecs wmv.

J'ai rien trouvé de spécial dans les SDK concernant ce format. Peut-être sur le MSDN!

Et ces WMV en question fonctionnent sur Media Player ?