Funplayer (streaming audio + téléchargement, affichage et actualisation venant du net)
Soyez le premier à donner votre avis sur cette source.
Vue 4 964 fois - Téléchargée 681 fois
Description
voila c'est un petit programme qui voit permez d'ecouter funradio sans aller sur le site et de voir les WebCam
le mieux c'est de l'essayer :)
voila j'ai utiliser certain script deja existant sur ce site pour monter mon propre programme donc je remercie tout les ceux ki m'ont aider sur le forum et ceux ki reconnaitrons un bout de leur code
je sais que ce n'est pas grand chose mais c'est mon premier programme donc je le met ici
ca pourra peut etre aider quelqu'un
si je peux améliorer le programme dites le moi (j'ai deja kelke idées mais vous en avez surement aussi)
le mieux c'est de l'essayer :)
Source / Exemple :
'frmMain
Private Sub cmdQuitter_Click()
Unload frmMain
Unload frmWebCam
End Sub
Private Sub cmdShowWebCam_Click()
frmWebCam.Show
End Sub
'frmWebCam
Option Explicit
Private b_Bytes() As Byte
Private Sub Form_Load()
Dim sURL1 As String
Dim CamURL As String
Dim sFichier1 As String
Dim iFichier1Nb As Integer
CamURL = "http://www.funradio.fr/upload/camerafun/"
sURL1 = CamURL & "camera11.jpg"
sFichier1 = App.Path & "\cam1.jpg"
With Inet
.AccessType = icUseDefault
.Protocol = icHTTP
b_Bytes = .OpenURL(sURL1, icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
iFichier1Nb = FreeFile
Open sFichier1 For Binary Access Write As iFichier1Nb
Put #iFichier1Nb, , b_Bytes()
Close iFichier1Nb
imgCam1.Picture = LoadPicture(sFichier1)
Dim sURL2 As String
Dim sFichier2 As String
Dim iFichier2Nb As Integer
sURL2 = CamURL & "camera13.jpg"
sFichier2 = App.Path & "\cam2.jpg"
With Inet
.AccessType = icUseDefault
.Protocol = icHTTP
b_Bytes = .OpenURL(sURL2, icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
iFichier2Nb = FreeFile
Open sFichier2 For Binary Access Write As iFichier2Nb
Put #iFichier2Nb, , b_Bytes()
Close iFichier2Nb
imgCam2.Picture = LoadPicture(sFichier2)
End Sub
Private Sub Timer1_Timer()
Dim sURL1 As String
Dim CamURL As String
Dim sFichier1 As String
Dim iFichier1Nb As Integer
CamURL = "http://www.funradio.fr/upload/camerafun/"
sURL1 = CamURL & "camera11.jpg"
sFichier1 = App.Path & "\cam1.jpg"
With Inet
.AccessType = icUseDefault
.Protocol = icHTTP
b_Bytes = .OpenURL(sURL1, icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
iFichier1Nb = FreeFile
Open sFichier1 For Binary Access Write As iFichier1Nb
Put #iFichier1Nb, , b_Bytes()
Close iFichier1Nb
imgCam1.Picture = LoadPicture(sFichier1)
Dim sURL2 As String
Dim sFichier2 As String
Dim iFichier2Nb As Integer
sURL2 = CamURL & "camera13.jpg"
sFichier2 = App.Path & "\cam2.jpg"
With Inet
.AccessType = icUseDefault
.Protocol = icHTTP
b_Bytes = .OpenURL(sURL2, icByteArray)
Do Until .StillExecuting = False
DoEvents
Loop
End With
iFichier2Nb = FreeFile
Open sFichier2 For Binary Access Write As iFichier2Nb
Put #iFichier2Nb, , b_Bytes()
Close iFichier2Nb
imgCam2.Picture = LoadPicture(sFichier2)
End Sub
Conclusion :
voila j'ai utiliser certain script deja existant sur ce site pour monter mon propre programme donc je remercie tout les ceux ki m'ont aider sur le forum et ceux ki reconnaitrons un bout de leur code
je sais que ce n'est pas grand chose mais c'est mon premier programme donc je le met ici
ca pourra peut etre aider quelqu'un
si je peux améliorer le programme dites le moi (j'ai deja kelke idées mais vous en avez surement aussi)
Codes Sources
A voir également
- Funplayer
- Visual Basic / VB.NET : Streaming audio et video - CodeS SourceS - Guide
- Php streaming audio - Guide
- Streaming audio ... ✓ - Forum - C# / .NET
- Flash : Boucle sur audio streaming sans rajout d'images, avec code très simple! - CodeS Sour - Guide
- Javascript : Affichage d'un fichier texte dans une frame (avec actualisation) - CodeS SourceS - Guide
euh pour la version de sky et nrj je la met pas sur le site ca sert à rien
elles seronts sur mon site http://www.titou-be.net
Franchement j'avais essayé de faire pareil sur cette super radio ... j'avais finalement fait en PHP :)
Bravo man !
Et vive FUN !
merci cosmic
au faite j'ai decidé de faire les deux (sky ET nrj :)
Je vois bien les webcams mais pas de son comme tu le dit plus haut.
Et voici une petite modife a ton prog, rien de bien méchant
c'est pour fermé ton prog
Private Sub cmdQuitter_Click()
Unload frmMain 'et non pas Unload form1
Unload frmWebCam 'et non pas Unload form2
End Sub
@c'est good...
mé t'oré pas otre choz ke funradio ? :)
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.