PureBasic

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.

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

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)

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

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.

PureBasic

Streaming audio.

Streaming audio.

Re: Streaming audio.

Re: Streaming audio.

Re: Streaming audio.