Une Webradio

[cage]

Bonjour a tous,

Voici une Webradio sans prétention faite pour une personne déficiente visuelle.
Je me suis inspiré des 2 posts suivants #1 et #2
Merci a firace du Forum Anglais et falsam du forum Français
Merci aussi aux autres membres qui n'hésitent pas a m'apporter leur aide quand j'en ai besoin.

Les sources et les exécutables sont téléchargeables ici
Pour l'icône, j'ai emprunté celle de IDRT pour ceux qui connaissent.
Je sais, c'est pas bien.

CAGE

[Ar-S]

Tout comme les codes des liens que tu as utilisé, les 2 soucis pour moi face à fmodex restent :
- l'absence de lecture des tag auteur/titre (du moins pour les radios compatibles)
- La réinitialisation du volume quand on change de radio.
et (mais ça c'est remédiable)
- l'inclusion des url dans l'exe qui force la recompilation si une radio change d'IP. Les utilisateurs ne vont pas retélécharger le soft à chaque changement d'url.

Si ça peut te servir, je te file ma procédure de mise à jour de mes stations de radio.
J'ai utilisé ta liste pour l'exemple :

Code : Tout sélectionner

;-------------------- CODE ------------------------

Declare UpdateList(urlliste$)

InitNetwork()

Structure Radio
  NOM.s
  URL.s
EndStructure

Global NewList R.RADIO()

; ****** URL A MODIFIER ***********
TonFichiersListeRadio$  = "urldevotrefichier_listeradioradio.txt"
; ********************************


UpdateList(TonFichiersListeRadio$)

ForEach R()
  Debug R()\NOM
  Debug R()\URL
Next




;-------------------- STRUCTURE ------------------------



Procedure UpdateList(urlliste$)
  Protected Count, R$, L, Separ,Contenu$, RTEMP$, RTEMP2$
  
  Debug "TEST RECEPTION LISTE RADIO" ;- TEST
  *Buffer = ReceiveHTTPMemory(urlliste$)
  If *Buffer
    Debug "RECEPTION OK" ;- TEST
    Taille = MemorySize(*Buffer)
    Contenu$ = PeekS(*Buffer, Taille, #PB_UTF8)
    FreeMemory(*Buffer)
    
    Count = CountString(Contenu$,Chr(10))
    Debug "COMPTE : " + Count
    
     If Count > 0
      ClearList(R())

      For i = 1 To Count
        R$ = StringField(Contenu$,i,Chr(10) )
        AddElement (R())
        
          R()\NOM.s = StringField(R$,1,",")
          R()\URL.s = StringField(R$,2,",")
        
      Next
      
      ; TRIE DE LA LISTE PAR ORDRE ALPHABETIQUE
      SortStructuredList ( R(), #PB_Sort_Ascending|#PB_Sort_NoCase, OffsetOf(RADIO\NOM), TypeOf(RADIO\NOM ) )
      
            
    EndIf
    
  Else
    Debug "RECEPTION ERROR" ;- TEST
      EndIf
  
EndProcedure

[cage]

Merci Ar-S

J'ai fais au plus simple, car au départ cette application était pour ma sœur.
Comme je fais la maintenance de son PC, avoir a recompiler l'application n'est pas un problème s'il faut que j'ajoute/retire/modifie une ou plusieurs radios.
Je vais regarder ton code de plus près et l'adapter a la webradio.

CAGE

[cage]

Bonsoir a tous,

@Ar-S, tu peux retirer le lien vers radiotest.txt. Merci.

J'ai modifié l'application Webradio de cette façon:
Au premier lancement, elle crée un fichier webradio.txt dans le dossier de l'application.
Ce fichier est constitué a partir des Datas contenus dans l'exe.
On peut ainsi en modifiant ce fichier ajouter, retirer ou modifier des radios.

Voir le premier post pour le téléchargement.

CAGE