Comunidad Gambas-es

Un nuevo control spPlayer: Reproductor de música con Espectrómetro incorporado

Shordi 20-08-2021, 20:33

Aquí os dejo un nuevo control que he desarrollado. Es un reproductor de mp3, wav y ogg con un espectrómetro incorporado, al estilo de Audacious. El control se basa en la clase SpectrumPlayer del proyecto AudioSpectrum que podéis encontrar aquí: https://github.com/prokopyl/AudioSpectrum Lo que yo he aportado a ésto ha sido la conversión de las clases estáticas y módulos de AudioSpectrum en un control de gambas.
No podía utilizar el mismo nombre y lo he abreviado a SpPlayer.

Como propiedades expuestas al IDE tenéis el FileName, el color de Fondo, el número de barras y el fondo animado (el fondo cambia de color según la intensidad de la música)

En el proyecto gbAmp, que tenéis aquí: https://gitlab.com/shordi/gbamp tenéis un ejemplo completo de uso del control.

[Imagen: V3HRLit.png]

Os dejo aquí el fuente de un pequeño proyecto en forma de componente que lo incluye y del que podéis crear el paquete de instalación e instalarlo en vuestras máquinas. A partir de entonces dispondrés del control como un componente más de Gambas.

Espero que os sea útil.

Saludos.

Archivos adjuntos

spPlayer-0.0.2.tar.gz (Tamaño: 10.93 KB Descargas: 4)

Controles/Librerías/Componentes Respuestas 5

Extendiendo la clase JSON - Encode2

tincho 20-08-2021, 13:48

Hola amigos.
Aquí les propongo una función que formatea un texto Json de una forma mas legible para humanos.
Gracias al aporte de Laurent Carlier
https://gitlab.com/lordheavy/alpha/-/blo...class#L100
Para usar esto les recomiendo que creen una clase en vuestro proyecto llamada JSON (en mayúsculas) y luego pongan esto dentro y luego llamen al método normalmente desde todas partes con JSON.Encode2

Código:
' Gambas class file

' This program is free software; you can redistribute it and/or modify

' it under the terms of the GNU General Public License as published by

' the Free Software Foundation; either version 2 of the License, or

' (at your option) any later version.

Export

'' Encode in JSON format in a human readable way. Based on a Laurent tool

Static Public Function Encode2(vData As Variant) As String

  Dim sInput As String

  Dim sOutput As String

  Dim iStream As Stream

  Dim $sReadChar As String

  Dim $iTab As Integer

  Dim $bQuote, $bBracket As Boolean

  sInput = JSON.Encode(vData)

  iStream = Open String sInput For Read

  While (Not Eof(iStream))

    $sReadChar = Read #iStream, 1

    If ($sReadChar = "{" And Not $bQuote) Then

      $iTab += 1

      $sReadChar &= "\n" & Space$($iTab * 2)

    Else If ($sReadChar = "}" And Not $bQuote) Then

      $iTab -= 1

      $sReadChar = "\n" & Space$($iTab * 2) & $sReadChar

    Else If ($sReadChar = "\"") Then

      $bQuote = Not $bQuote

    Else If ($sReadChar = "[") Then

      $bBracket = True

    Else If ($sReadChar = "]") Then

      $bBracket = False

    Else If ($sReadChar = ":" And Not $bQuote) Then

      $sReadChar &= " "

    Else If ($sReadChar = "," And Not $bQuote) Then

      If (Not $bBracket) Then

        $sReadChar &= "\n" & Space$($iTab * 2)

      Else

        $sReadChar &= " "

      Endif

    Endif

    sOutput &= $sReadChar

  Wend

  Close iStream

  ' replace null with ""

  sOutput = Replace(sOutput, " null", " \"\"")

  Return sOutput

End