Video box vb

Soyez le premier à donner votre avis sur cette source.

Vue 15 758 fois - Téléchargée 1 347 fois

Description

Il s'agit d'un "Video Center" simple (Media Center, mais uniquement dédié à la video), à configurer très facilement.

Je crois bien avoir essayé tous les "Media Center" existants, mais aucun ne faisait exactement et simplement ce que je voulais (matériel pas compatible car trop vieux, installation et paramétrage trop lourds, pas de gestion de réseau, télécommande non reconnue, navigation trop complexe, etc...). Alors, j'ai décidé de programmer MON Video Center : ce programme est basé sur MPLAYER, qui est à mes yeux le meilleur player video actuel (non, ce n'est ni Classic Media Player, ni MS Media Player, ni même VLC...) car il lit tout (xvid, divx, rv9, rmvb, mov, mpeg, mkv, x264,...) en utilisant ses propres codecs tout en ne prenant pas trop de puissance cpu !!!
Et voici les fonctionnalités que je voulais pour mon Video Center :
-pas cher (ne pas racheter de matériel),
-compatible avec mon installation : un "vieux" pc recyclé en "divbox" raccordé à la télé, en réseau, mais sans souris ni clavier ni moniteur,
-hyper simple (tant à l'installation qu'en utilisation) et utilisable par tous, y compris les sous-doués en informatique -une petite pensée pour ma femme... ;=)...-,
-pilotable par ma télécommande USB X10 (Q-sonic 29.90? chez Pearl, et je crois que toutes les ATI ou Marmitek marchent aussi...), avec choix de MES touches (sans Girder ou autre programme externe).
-réseau local (indispensable pour explorer d'autres PC!) pour lecture de fichiers distants,
-un player video installable par simple copie (pour déport facile sur un PC distant) !
-centralisation et classement de tous les fichiers video éparpillés un peu partout sur le réseau local,
-exploitation de ma base video DvdProfiler (mes vidéos sont nommées xxxx-NomDeLaVideo.avi, xxxx étant le numéro de la base DvdProfiler) pour remonter et afficher les infos+jaquettes des vidéos (Attention : pas de virgule dans les noms de fichiers sinon ça risque de planter...),
-accès très rapide à n'importe quelle vidéo (on tape le numéro à la télécommande) indépendamment de la localisation du fichier sur le réseau local (on peut donc stocker les vidéos n'importe où sur le réseau local, là où il y a de la place...),
-Enregistrement de la position d'une vidéo pour reprise ultérieure de la lecture,
-OSD,
-Extinction réelle du PC par la télécommande...

Et vous savez quoi ? Et bien, tout y est !
C'est programmé pour une résolution de 800x600 : le PC "divbox" est en 800x600 (ce qui est suffisant car pas de télé HD ni de vidéos HD et "vieux" PC insuffisant pour HD), mais rien ne vous empêche de redessiner tous les contrôles et les feuilles en augmentant la résolution (m'enfin... ça ne changera pas la résolution de votre vidéo...).

Conclusion :


Vous voulez tester ?... Alors, Va falloir d'abord installer des petites choses : Mplayer (indispensable!) et le driver X10 de la télécommande avant de lancer VideoBoxVB... DvdProfiler est optionnel car le programme fonctionne même sans l'export xml qui ne sert qu'à récupérer des infos/jaquettes sur les vidéos (compatible DvdProfiler v2.4 et v3.x).

1.- Vous pouvez télécharger et installer tous les éléments individuellement : Mplayer (http://www1.mplayerhq.hu/MPlayer/releases/win32/MPlayer-mingw32-1.0rc1.zip) à décompresser, les codecs de Mplayer (http://www.mplayerhq.hu/MPlayer/releases/codecs/windows-all-20061022.zip) à décompresser dans le répertoire codecs de Mplayer et le driver de la télécommande (http://software.x10.com/pub/applications/drivers/x10drivers.exe) à installer.
ou 1.bis- J'ai aussi préparé un gros pack (http://poilodent.paris.free.fr/VideoBox.zip) "tout fait" à télécharger avec tout dedans (avec qq petites vidéos a titre d'exemples, mais sans les sources qui sont à télécharger sur vbfrance) et à décompresser sur la racine du c: (les fichiers .ini sont ok pour c:\). Il vous faudra quand même copier manuellement x10net.dll dans windows/system32 et l'enregistrer par "regsvr32.exe x10net.dll" ou lancer x10drivers.exe (sinon, pas de télécommande)...

2.- Télécharger les fichiers sources ici (ils ne sont pas inclus dans le pack pour vous inciter à les récupérer sur vbfrance),

3.- Editer le fichier Path.Films.ini pour modifier/ajouter/supprimer les chemins de recherche des fichiers videos (plusieurs lignes possibles).

4.- Si vous voulez récupérer les infos et jaquettes dans VideoBoxVB (utilisation de DvdProfiler -http://www.intervocative.com/ ou http://www.invelos.com/-) : lancez DvdProfiler et faîtes un export en xml de votre base de vidéos "possédées". Il vous faudra ensuite renseigner manuellement les fichiers Path.DvdProfiler.Images.ini (où sont stockées les images des jaquettes) et Path.ExportDvdProfiler.xml.ini (où se situe et comment se nomme le fichier exporté en Xml)

5.- Lancer vb et charger les sources,

6.- Rafraichissez au premier lancement du programme pour mettre à jour avec vos propres videos... Lancer le traitement DvdProfiler si vous l'avez paramétré...

7.- Et bon film !...

Vous pouvez regarder les 2 fichiers AideTelco-x.jpg pour vous aider à vous y retrouver dans les commandes...

Voilà : c'est ma première contribution à vbFrance... alors merci d'être indulgent dans vos commentaires (d'ailleurs, si c'est juste pour critiquer sans proposer de solutions d'améliorations, vous pourrez vous les garder, vos remarques désagréables!)... Par exemple, je sais que l'interface est moche, mais j'ai cherché la simplicité avant tout (et puis, vous n'avez qu'à l'améliorer si vous n'en êtes pas satisfait...)

Les évolutions futures ?...
Bôf... Il y a très peu de chances que je publie des évolutions de ce programme (je considère qu'il fonctionne!!!), et il faut bien vous laisser un peu de boulot... Donc si le coeur vous en dit, vous pouvez vous y mettre :
-amélioration de l'esthétique (contrôles + sympa, image de fond, form transparente,...),
-ajout d'un sélecteur de listes de vidéos (films, videos perso, collection privée, etc...) avec protection éventuelle par mot de passe,
-module de photos avec diaporama (pas très dur : la routine de redimensionnement est déjà présente...),
-module de jeux à jouer avec la télécommande (trouver un tetris sur vbfrance est assez facile...),
-module de MP3 : je trouve idiot d'allumer sa télé pour écouter de la musique en moins bonne qualité que sur une chaine hifi, mais c'est vous qui voyez...
-réseau local : extinction PC distant (pas dur : juste un exécutable -routine d'extinction déjà présente- à poser sur les pc distants et à déclencher par le réseau local) et wake on lan (pas dur : il y a déjà des sources sur vbfrance),
-...
Pour la petite histoire, j'avais déjà commencé à développer un peu tous ces modules... Mais comme ça commençait à faire vraiment "usine à gaz", j'ai arrêté pour publier une version simple (celle-ci...).

Avant de terminer, je tiens aussi à remercier TOUS les contributeurs de Vb France (codes sources dont je me suis largement inspiré, ou que j'ai adaptés, améliorés ou carrément repompés) sans qui je n'aurais pas pu faire ce programme... Ils sont trop nombreux (je ne m'en rappelle plus tellement j'ai regardé de sources, désolé)... Aussi, si vous reconnaissez des bouts de codes (télécommande, exploration récursive, xml, recadrage, extinction PC...) ou des idées que vous avez pu développer et partager ici, soyez-en remerciés !!!

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
3
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
28 août 2007

Et ben... Code vu 1295 fois et 1 seul commentaire...
Finalement, ça n'intéresse quasiment personne !

Bon!... Mais même si le prog ne vous intéresse pas, essayez quand même Mplayer, c'est vraiment le top du lecteur vidéo !!!
Messages postés
3
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
28 août 2007

Merci pour l'amélioration !

Pour ce qui est de la remarque pour ceux qui n'ont pas de télécommande :
"Esc" pour quitter et revenir au lanceur, "barre d'espace" pour play/pause...
Pour ce qui est de l'enregistrement de la position, il faut recoder qq chose en se basant sur ce qu'il y a dans la procédure de gestion des touches de la telco (mais comme j'ai une télécommande, j'ai été un peu fainéant...).

Merci aussi pour la note... Mais je n'ai pas trop de mérite : le plus dur a été de trouver le meilleur player video et de voir comment l'adapter à mes besoins.
Messages postés
21
Date d'inscription
mardi 17 juillet 2001
Statut
Membre
Dernière intervention
19 août 2007

Salut,

'Votre code est excellent (vraiment !!!)...
'
'Je me sui permis ces quelques modifications...
'(si cela peut aider...)
'
'J'ai inséré ce qui suit, afin de masquer la fenête MsDos de MPlayer...
'Je sais que ce n'est pas grand chose, mais cela permet de cacher
'le disgracieux affichage de la fenêtre Dos...
'-
'Créer une nouvelle feuille Name="Mask"
'-
'BackColor = &h0& ' Noir
'BorderStyle = 0 ' None
'WindowState = 2 'Maximized
'-
'Insérer un timer Name="Timer1", Interval=5000
'-
'Coller ceci dans la feulle "mask"

'-
Option Explicit

Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function ToFront(Frm As Form, Optional Value As Boolean)
SetWindowPos Frm.hWnd, (-2 Or Value), 0, 0, 0, 0, 1 + Abs(Value * 2)
End Function

Private Sub Form_Load()
ToFront Me, True
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub
'--------------------------

'Dans "Lanceur.Frm"

Private Sub ListeFilms_DblClick ()
...
...

Else
'si le fichier existe, on passe à la visualisation

If Exist(Path_Mplayer_exe$ & "\mplayer.exe") Then
Mode$ = "Visu"
divx$ = Trim$(A$)
position = 0
Debug.Print Path_Mplayer_exe$ & "\mplayer.exe -slave -quiet -edlout " & Chr$(34) & App.Path & "\edlout.txt" & Chr$(34) & " -ontop -fs -quiet -ss " & Trim$(Str$(position)) & " -nokeepaspect -priority abovenormal " & Chr$(34) & divx$ & Chr$(34)
'ExecCmd Path_Mplayer_exe$ & "\mplayer.exe -quiet -edlout " & Chr$(34) & App.Path & "\edlout.txt" & Chr$(34) & " -ontop -fs -quiet -ss " & Trim$(Str$(position)) & " -nokeepaspect -priority abovenormal " & Chr$(34) & divx$ & Chr$(34)

'Ajouter...
Mask.Show
MyAppID = Shell(Path_Mplayer_exe$ & "\mplayer.exe -slave -quiet -edlout " & Chr$(34) & App.Path & "\edlout.txt" & Chr$(34) & " -ontop -fs -quiet -ss " & Trim$(Str$(position)) & " -nokeepaspect -priority abovenormal " & Chr$(34) & divx$ & Chr$(34), 1)

End If

'...
'...
End Sub


'Petite remarque : C'est dommage qu'il ne soit pas possible de stoper
'la vidéo avec la souris... (pour ceux qui ne possédent pas le télécommande)
'mais je suis sur que cela doit pouvoir se faire dans "Telco.Frm"...à suivre.
'
'Au sujet de la télécommande, je confirme que la ATI Wonder fonctionne parfaitement...
'
'Merci pour votre excellent travail
'
'-----------------------------
'Bonne programmation à tous...
'-----------------------------

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_optimist)