Bonjour à tous.
Existe-t-il un moyen de coder une application Purebasic qui lit le stream d'une webradio ?
Je n'y parviens pas.
Notre Webradio associative : http://www.lesfloralies.info
Le lien vers le flux : http://146.59.233.129:8000/floralies.ogg
j'ai essayé tout un tas de code, mais impossible.de réaliser qqchose et entendre enfin le son de notre webradio.
Merci à vous.
Streaming audio.
Re: Streaming audio.
Salut.
Tu peux utiliser le web :
https://www.purebasic.fr/french/viewtop ... =6&t=16243
Ou utiliser la lib FmodEx (recherche le terme dans le fofo)
Je l'ai ajouté à mon soft ^^
J'habite du coté de Carcassonne, on est pas loin
Tu peux utiliser le web :
https://www.purebasic.fr/french/viewtop ... =6&t=16243
Ou utiliser la lib FmodEx (recherche le terme dans le fofo)
Je l'ai ajouté à mon soft ^^
J'habite du coté de Carcassonne, on est pas loin
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Re: Streaming audio.
Voir aussi le topic FmodEx : Jouer un flux shoutcast
Initialisé par Falsam et modifié par plusieurs contributeurs
https://www.purebasic.fr/french/viewtop ... 77#p183877
Le code de falsam, modifié pour ton url et testé avec succès (Windows 10 x64, PB 5.73 LTS x64)
(Il faut avoir fmodex-min.pbi et la dll dans le même répertoire)
■ Demo : Lecture d'un flux shoutcast (code en page 4)
Initialisé par Falsam et modifié par plusieurs contributeurs
https://www.purebasic.fr/french/viewtop ... 77#p183877
Le code de falsam, modifié pour ton url et testé avec succès (Windows 10 x64, PB 5.73 LTS x64)
(Il faut avoir fmodex-min.pbi et la dll dans le même répertoire)
■ Demo : Lecture d'un flux shoutcast (code en page 4)
Code : Tout sélectionner
;Tutorial : Jouer un flux shoutcast
EnableExplicit
IncludeFile "fmodex-min.pbi"
Enumeration
#Mainform
#Pause
#Volume
EndEnumeration
Define.l Event, GEvent, TiEvent
Global WindowStyle.i=#PB_Window_SystemMenu|#PB_Window_ScreenCentered
Global fmodsystem.i, Url.s, Channel.i, Sound.i, Volume.f = 0.5, PauseStatus.b
Procedure Open_MainForm()
OpenWindow(#Mainform, 0, 0, 300, 100, "Play Shoutcast", WindowStyle)
TextGadget(#PB_Any, 10, 50, 30, 20, "Vol")
TrackBarGadget(#Volume, 45, 45, 200, 24, 0, 10)
SetGadgetState(#Volume, 5)
ButtonGadget(#Pause, 117, 70, 50, 22, "Pause")
EndProcedure
Procedure Start()
Open_MainForm()
;Déclarer l'objet FMOD System
FMOD_System_Create(@fmodsystem)
;Initialiser le system (32 canaux) un seul suffirait pour cet exemple
FMOD_System_Init(fmodsystem, 32, #FMOD_INIT_NORMAL, 0)
;CreateStream permet de commencer la lecture avant le chargement complet de l'url
Url ="http://146.59.233.129:8000/floralies.ogg"
FMOD_System_CreateStream(fmodsystem, Ascii(Url), #FMOD_CREATESTREAM, 0, @sound)
;On joue le son sur le canal 1
FMOD_System_PlaySound(fmodsystem, 1, sound, 0, @channel)
;Et on ajuste le volume (le son est compris entre 0.0 et 1.0)
FMOD_Channel_SetVolume(Channel, 0.5)
EndProcedure
start()
Repeat
Event = WaitWindowEvent(10)
GEvent = EventGadget()
Select Event
Case #PB_Event_Gadget
Select GEvent
Case #Volume
Volume = GetGadgetState(#Volume)/10
FMOD_Channel_SetVolume(Channel, Volume)
Case #Pause
;FMOD_Channel_GetPaused permet de savoir si le son sur le canal est en pause ou pas
FMOD_Channel_GetPaused(Channel, @PauseStatus)
If PauseStatus = #False
FMOD_Channel_SetPaused(Channel, #True) ;Pause
Else
FMOD_Channel_SetPaused(Channel, #False) ;Reprise de la lecture
EndIf
EndSelect
Case #PB_Event_CloseWindow
FMOD_Channel_Stop(Channel)
FMOD_System_Release(fmodsystem)
End
EndSelect
ForEver
Re: Streaming audio.
Grand merci à vous pour votre aide. Je pensais ne jamais y arriver. la solution avec le webview ne fonctionne pas. Je l'avais découvert avant de poster le message... Par contre avec FMOD et vos conseils je progresse vite dans la réalisation.
Merci d'avoir ajouter la radio ! Ton soft est vraiment bien. Le design est parfait.
Merci d'avoir ajouter la radio ! Ton soft est vraiment bien. Le design est parfait.