TÉLÉ INTERNET
pape0
Messages postés
132
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014
-
31 oct. 2007 à 17:42
HariSeldon69210 Messages postés 44 Date d'inscription jeudi 19 juin 2008 Statut Membre Dernière intervention 13 septembre 2008 - 10 sept. 2008 à 19:05
HariSeldon69210 Messages postés 44 Date d'inscription jeudi 19 juin 2008 Statut Membre Dernière intervention 13 septembre 2008 - 10 sept. 2008 à 19:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/44560-tele-internet
https://codes-sources.commentcamarche.net/source/44560-tele-internet
10 sept. 2008 à 19:05
10 sept. 2008 à 18:46
Cette dll est une dll de RéalPlayer. Si tu n'installes
pas RéalPlayer ainsi que VLC sur ton ordi, mon programme ne peut absolument pas marcher, même si tu mets la dll signalée manquante, seule.
Je connais ce problème, à chaque fois c'est que RéalPlayer n'est pas installé.
Voila.
10 sept. 2008 à 17:18
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.
2 sept. 2008 à 14:04
2 sept. 2008 à 13:22
2 sept. 2008 à 12:12
Tu peut ensuite chercher dans les dll de VLC les différentes commandes.
++
31 août 2008 à 20:07
31 août 2008 à 19:48
Je n'ai jamais eu cette erreur et son libellé est étrange!
Mon programme tourne parfaitement sur XP et sur la plupart des PC avec VISTA sur lesquels je l'ai installé.
On m'a signalé un cas de non fonctionnement en raison du WebBrowser,regarde les commentaires plus haut.
Mais attention, comme j'utilise Réalplayer et VLC MédiaPlayer, il faut absolument que ces deux logiciels soient installés sur ton ordi sinon, evidemment, cela ne marche pas et il signale des fichiers introuvables..
J'espère que tu vas arriver à le faire fonctionner.
31 août 2008 à 16:20
voila jai cette erreur qui apparai o lancement de l'apli
Erreur system &H8004005 (-2147467259). Erreur non spécifier
Merci. bonne continuation
10 janv. 2008 à 10:40
J'ai trouvé TUNISIE TV qui fonctionne avec RealPlayer.Il faut donc que tu aies téléchargé ma dernière version de TéléInternet, la V 3.0, qui elle, gère RéalPlayer et il faut que RéalPlayer soit installé sur ton ordi.
J'en ai relevé le flux:
http://www.tv-du-monde.com/74288426ag9713.rm
Par contre, regarde sur http://www.tv-du-monde.com/
TV 7 ne semble pas fonctionner en direct.
10 janv. 2008 à 10:06
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.
10 janv. 2008 à 08:45
25 nov. 2007 à 16:01
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.
16 nov. 2007 à 13:53
16 nov. 2007 à 11:08
12 nov. 2007 à 21:06
du source.On voit que tu es fort à l'aise dans la programmation.C'est très instructif ton code.
12 nov. 2007 à 15:01
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
10 nov. 2007 à 17:03
10 nov. 2007 à 15:21
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
9 nov. 2007 à 15:52
Je retiens bien sûr ta proposition de Resize.Ainsi on peut éventuellement diminuer la taille du programme pour le voir en travaillant sur autre chose.De plus, on simplifie les positionnements dans le Load.Ton code est devenu:
Private Sub Form_Resize()
MediaPlayer1.Width = Form1.Width - 1500
MediaPlayer1.Height = Form1.Height - 1200
Shape1.Width = MediaPlayer1.Width
Frame1.Top = MediaPlayer1.Height + MediaPlayer1.Top
Frame2.Top = Frame1.Top
Frame3.Top = Frame1.Top
Frame4.Top = Frame1.Top
Label1.Top = Frame1.Top - Label1.Height - 100
Label1.Left = (Form1.Width - Label1.Width) / 2
Label2.Top = Frame1.Top - Label2.Height - 350
Label2.Left = (Form1.Width - Label2.Width) / 2
Sortie.Top = Frame1.Top + 120
Gestion.Top = Frame1.Top + 120
Image1.Top = Label1.Top + 40
Image1.Left = Label1.Left + 40
End Sub
Et j'ai donc supprimé les lignes inutiles du Load
Je mettrais une mise à jour sans tarder, avec même un peu plus de chaînes.
Merci encore.
9 nov. 2007 à 12:31
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
9 nov. 2007 à 12:26
Que penses-tu de cette amélioration ?
Private Sub Form_Resize()
MediaPlayer1.Width = Form1.Width - 100
MediaPlayer1.Height = Form1.Height - 1000
Frame1.Top = MediaPlayer1.Height + MediaPlayer1.Top
Frame2.Top = Frame1.Top
Frame3.Top = Frame1.Top
Frame4.Top = Frame1.Top
Label1.Top = Frame1.Top - Label1.Height - 100
Label1.Left = (MediaPlayer1.Width - Label1.Width) / 2
End Sub
6 nov. 2007 à 17:34
2 nov. 2007 à 18:37
Pour le protecteur d'écran, j'ai pensé que presque tout le monde utilise un protecteur d'écran et donc, j'ai fait simple.
D'ailleurs, la méthode que j'utilise, ne modifie pas le Registre dans
[HKEY_CURRENT_USER\Control Panel\Desktop].
Que "ScreenSaveActive"="0" (Pas de protecteur)ou "ScreenSaveActive"="1" (Protecteur activé) le 0 ou le 1
ne sont pas modifié par mon programme.Donc, pourquoi aller contrôler le Registre alors qu'on s'en passe!
2 nov. 2007 à 12:56
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.
1 nov. 2007 à 20:09
1 nov. 2007 à 18:47
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.
1 nov. 2007 à 13:31
1 nov. 2007 à 08:21
_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.
1 nov. 2007 à 07:17
1 nov. 2007 à 02:49
Par contre, j'ai vérifié que ce fichier existe bien dans le répertoire C:\Windows\System32 de mon PC....
Alors, que faire?
1 nov. 2007 à 02:00
Bonne source.
Reste à améliorer la présentation et à permetre
la saisie d'autres chaînes.
A plus.
1 nov. 2007 à 00:10
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
@+
31 oct. 2007 à 21:04
Très sympa comme source...
A+
Exploreur
31 oct. 2007 à 18:40
31 oct. 2007 à 18:37
http://xgradio.olympe-network.com/
(Radio / Télé en VB.NET)
31 oct. 2007 à 18:29
"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.
31 oct. 2007 à 18:03
Je ne ferai pas ce programme en .net car pour les programmes simples comme celui-ci, je ne vois pas ce que cela va apporter en plus.J'avoue que je pratique peu le .net car je trouve que l'on manipule beaucoup trop de fichiers.Si quelqu'un veut la transposer en .net je suis entièrement d'accord.
31 oct. 2007 à 17:52
Elle est cool ta source!!!!
-------------------------------------------------
Toujours + de VB et d'API => API @ la Loupe
http://apialaloupe.free.fr
31 oct. 2007 à 17:42
La je serais preneur !