TÉLÉ INTERNET

Commentaire de zavier666 le 31/10/2007 17:52:47

ben vas-y!! :)

Elle est cool ta source!!!!


-------------------------------------------------
Toujours + de VB et d'API => API @ la Loupe
http://apialaloupe.free.fr

Commentaire de mimiZanzan le 31/10/2007 18:29:01

Ton code est super, mais j'ai au chargement du projet un message d'erreur indiquant:
"Fichier introuvable: C:\Windows\System32\IEFRAME.dll"
Peux-tu m'expliquer ceci?
Sinon, le programme semble marcher pour la plupart des chaînes...
Merci d'avance.

Commentaire de tinux le 31/10/2007 18:40:41

Pourquoi ne pas travailler l'interface graphique ?

Commentaire de yoman64 le 01/11/2007 00:10:13

Pas grand chose de neuf...du déja vue.
Les stations sont codées en dur dans le code, c'est pas du tout pratique. Un fichier de config serait beaucoup mieu, ça permeterais d'ajouté des chaines ensuite.
De plus tes contrôles ne sont pas nommées, ça rends le code plus dur a suivre. L'interface est plutot ordinaire comme dit Tinux..

Sinon pour mimiZanzan, si tu as IE7 c'est a cause de ça, tu dois alors ajouté shdocvw.dll dans les références avant d'ajouté le webgadget.

Bonne Continuation
@+

Commentaire de mimiZanzan le 01/11/2007 02:49:27

Yoman64, merci pour ton conseil, mais le pb, c'est que je ne trouve pas la référence shdocvw.dll dans mon VBProject.
Par contre, j'ai vérifié que ce fichier existe bien dans le répertoire C:\Windows\System32 de mon PC....
Alors, que faire?

Commentaire de Sechaud le 01/11/2007 08:21:21

Merci beaucoup pour vos commentaires et vos appréciations.
_MIMIZANZAN le fichier IEFRAM.dll est en fait le WebBrowser.
Je pense qu'il prend ce nom sous IE7, mais mon programme essayé sur un ordi qui a IE6, fonctionne très bien.Essaye de remplacer cette dll par l'ancienne si tu as IE6.J'ai déjà lu des articles de personnes qui se plaignent de ce problème.J'ai même lu cette solution, mais vous l'appliquez à vos risques et périls.
____________________________
Si après l' installation d' "Internet Explorer 7" vous avez remarqué qu' à l' ouverture de vos projets VB6 utilisant le composant "WebBrowser" un message d' erreur "IEframe.dll" s' affichait, essayez ceci:

--Procédure de restauration de "Shdocvw.dll"--
1-Faire ce fichier que vous appellerez Installer.bat

@echo off
echo Restauration de Shdocvw.dll
pause
set rt=%SYSTEMROOT%\system32
ren %rt%\Shdocvw.dll Shdocvw.ie7
if exist %SYSTEMROOT%\ServicePackFiles\i386 (
copy .\Shdocvw.dll %SYSTEMROOT%\ServicePackFiles\i386\Shdocvw.dll /y
)
copy .\Shdocvw.dll %rt%\dllcache\Shdocvw.dll /y
copy .\Shdocvw.dll %rt%\Shdocvw.dll /y
echo Redemarrez le systeme !
pause

2- Dans "c:\windows\system32" copier "Shdocvw.backup" dans ce dossier, puis renommer le en "Shdocvw.dll"
(Si "Shdocvw.backup" n' est pas présent dans "system32", procurez vous une "DLL" antérieure à celle d'IE7).
2- Redémarrez en "mode sans echec".
3- Exécutez votre fichier Installer.bat

4- Redémarrez.
___________________

Chez moi, Shdocvw.dll ne fait pas partie des fichiers de dépendances.
_RENFIELD que je remercie vous donne aussi une solution.
*******************************
_XELECTROX tu peux utiliser tout ce que tu veux.
*******************************
Ceux qui veulent travailler l'interface graphique peuvent le faire.Personnellement je ne trouve pas cela capital car en fait, ce que l'on utilise le plus souvent, c'est le mode plein écran, pour regarder une chaîne, donc à quoi bon chercher une interface sophistiquée.
Par contre le problème de la gestion des chaînes est une question que je m'étais posée.
J'avais pensé ajouter deux petits boutons à chaque combo pour ajouter ou ôter une chaîne.
Se posait alors le problème de la sauvegarde,faire 4 fichiers distincts ou 1 seul, prévoir deux entrées, une pour le nom de la station et une autre pour l'URL.
J'y ai renoncé pour le moment mais j'y réfléchis.

Commentaire de mimiZanzan le 01/11/2007 18:47:48

Merci, j'ai utilisé la solution de RENFIELD qui est plus simple (et moins risquée!) que celle de SECHAUD...
Il faut aussi ajouter aux références du projet "Microsoft Internet Controls", et l'ajouter ensuite aux composants.
En fait la dll "shdocvw" s'ajoute à la "ieframe" dans la référence "Microsoft Internet Controls".
Je peux donc maintenant profiter du code.
Merci encore à vous 2.

Commentaire de econs le 02/11/2007 12:56:08 administrateur CS

Salut. Prochaine étape : rendre cette source un petit peu modulable. Toutes ces URLs en dur dans le code, c'est pas joli ...

Tu appelles systématiquement SystemParametersInfo pour désactiver l'écran de veille au démarrage de ton appli et le réactiver en quittant l'appli. Il serait plus propre de vérifier au démarrage s'il est actif, ce qui permettrait de la réactiver à la fermeture SI ET SEULEMENT SI il était actif avant de lancer ton appli.
Il faut remettre les préférences utilisateurs dans l'état dans lequel on les a trouvées.

Commentaire de zikonet le 06/11/2007 17:34:40

merci mon ame tu as bien fait

Commentaire de jpb14 le 09/11/2007 12:31:22

Dans la Form1 ..j'ai oublié de le préciser
Et je met une bonne note, parce que ce source est une bonne illustration de webbrowser + mediaplayer et même si c'est améliorable (tant mieux ... ça fait partie du jeu), cela fontionne assez bien

Commentaire de jpb14 le 10/11/2007 15:21:43

Pour les 2 lignes de début, il est préférable de mettre cela, sinon plantage lors de la réduction en barre de tâche:

MediaPlayer1.Width = IIf(Form1.Width > 1500, Form1.Width - 1500, 0)
MediaPlayer1.Height = IIf(Form1.Height > 1200, Form1.Height - 1200, 0)
Bon courage pour la suite

Commentaire de jpb14 le 12/11/2007 15:01:29

Autre proposition ..... Avec un groupe de combos (0 à 3)
pour le choix des chaines ..

Private Sub CboChoixChaine_Click(Index As Integer)
'On va choisir une chaîne Info
'On réinitialise les afficheurs
   Dim ind As Integer
   MediaPlayer1.Close
   MediaPlayer1.Visible = True
   For ind = 0 To 3
    If ind <> Index Then CboChoixChaine(ind).Text = "Choisissez"
   Next ind
   Dim R As Integer
    'Extraction du n° de la chaîne = à la ligne du Buffer
   R = Val(Left(CboChoixChaine(Index).Text, 2))
   MediaPlayer1.URL = Trim(Mid(Tbl(R - 1), 27, 130))
   Label1.Caption = CboChoixChaine(Index).Text
   'Afficher le drapeau
   Image1.Picture = ImageList1.ListImages(Val(Mid(Tbl(R - 1), 2, 2))).Picture
   Image1.ToolTipText = ImageList1.ListImages(Val(Mid(Tbl(R - 1), 2, 2))).Tag
End Sub
-----------------------------------------------
Private Function Charger()
    Dim Fichier As String
       'On charge le fichier Chaînes.ini
    Dim EnrLigne As String
    NbLigne = 0
    Fichier = App.Path & "\" & "Chaînes.ini"
    Open Fichier For Input As #1  ' ouvrir le fichier
    Dim TbTypes As String
    TbTypes = "IMRD"
    'Remplissage des Combos
    While Not EOF(1)
        ' ReDim Preserve Tbl(0 To NbLigne)
        Line Input #1, EnrLigne
        Tbl(NbLigne) = EnrLigne
        NbLigne = NbLigne + 1
        CboChoixChaine(InStr(TbTypes, Left(EnrLigne, 1)) - 1).AddItem NbLigne & " _ " _
                                            & Mid(EnrLigne, 4, 22)
    Wend
    Close #1
    CboChoixChaine(0).ListIndex = 0 'On démarre par BFM TV
End Function

Commentaire de pulpul74 le 16/11/2007 11:08:47

Cette source est vraiment sympa, très pratique, bien commenté, bravo!!

Commentaire de Sechaud le 25/11/2007 16:01:47

Ceux qui comme moi, ont ajouté des chaînes, quand ils vont dépasser les 99 chaînes, ils vont avoir à corriger un petit bug.
En effet dans:
Private Sub Combo4_Click()
.............................
...............................
      'Extraction de la ligne du Buffer = (n° Chaîne - 1)
      R = Val(Left(Combo4.Text, 2)) - 1
R ne pouvait qu'avoir 2 chiffres.
Il faut donc corriger en mettant
R = Val(Left(Combo4.Text, 3)) - 1
Pour aller jusqu'à 999.
......................................
Excusez-moi pour cette erreur.

Commentaire de Sechaud le 10/01/2008 10:06:58

ABDERRAZEKB,  on ne peut ajouter que ce qui existe et fonctionne par Internet.
Si tu veux ajouter des chaînes, va dans la page de gestion et recherche pour voir si tes chaînes sont accessibles.
Choisis un site, en bas dans la Combo, pour trouver d'autres chaînes.
Vérifie que les chaînes de ton choix existent et fonctionnent, puis fais un clic droit sur le mediaplayer du site.
Ensuite en choisissant Propriétés, relève l'adresse du flux pour créer d'autres chaînes à TéléInternet.

Commentaire de HariSeldon69210 le 31/08/2008 16:20:47

bonjour ele doit etre tres bien ta source mais jai un problem pe tu maider
voila jai cette erreur qui apparai o lancement de l'apli
Erreur system &H8004005 (-2147467259). Erreur non spécifier

Merci. bonne continuation

Commentaire de HariSeldon69210 le 31/08/2008 20:07:36

merci beaucoup il doit me manquer realplayer je laissai demain et je te dit

Commentaire de Sechaud le 02/09/2008 13:22:37

TINUX, merci pour ton commentaire mais si tu regardes mon source, c'est exactement ce que je fais.

Commentaire de dem64 le 10/09/2008 17:18:08

Salut Sechaud, j'ai essayé d'ouvrir aujord'hui la version 4.1 de ton programme TÉLÉ INTERNET,
il me donne le message suivant : "impossible de charger le fichier 'RMOC3260.DLL'" et pourtant je l'ai mis tour à tour dans le même repertoire que ton programme, dans System32 et enfin dans System. Toujours le même message. Que dois-je faire ?
Merci en attendant ta réponse.