Une Webradio

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
cage
Messages : 506
Inscription : ven. 16/oct./2015 18:22
Localisation : France
Contact :

Une Webradio

Message par 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.
Image
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
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 6.00 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr
Avatar de l’utilisateur
Ar-S
Messages : 9472
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: Une Webradio

Message par 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
~~~~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
Avatar de l’utilisateur
cage
Messages : 506
Inscription : ven. 16/oct./2015 18:22
Localisation : France
Contact :

Re: Une Webradio

Message par 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
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 6.00 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr
Avatar de l’utilisateur
cage
Messages : 506
Inscription : ven. 16/oct./2015 18:22
Localisation : France
Contact :

Re: Une Webradio

Message par 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
■ Win10 64-bit (Intel Celeron CPU N2920 @ 1.86GHz, 4,0GB RAM, Intel HD Graphics) & PB 6.00 LTS
■ Vivre et laisser vivre.
■ PureBasic pour le fun
■ Gérard sur le forum Anglais
■ Mes sites: http://pbcage.free.fr - http://yh.toolbox.free.fr
Répondre