Comunidad Gambas-es

Actualicé Mageia de 7 a 8 y ahora Gambas no corre

AlfredoSC 22-08-2021, 17:06

Fue realmente sencillo actualizar Mageia7 a 8 siguiendo las recomendaciones de los propios desarrolladores en su página en español.

Una vez concluida la instalación vía Internet de Mageia8, procedí a probar todas mis aplicaciones que uso regularmente: Chrome, Geany, VS Code, Lampp, Quadrapassel, Solitario, etc y se ejecuta bien.

Pero al arrancar Gambas sale una mensaje de error:

[Imagen: f0qAtHj.png]

Como este mensaje no dice nada útil (según yo), traté de ejecutar Gambas3 desde consola:

Warning: Ignoring XDG_SESSION_TYPE=wayland on Gnome. Use QT_QPA_PLATFORM=wayland to run on Wayland anyway.
CDocumentation.Reset.1136: #12: Not an object
CDocumentation.Reset.1136 CDocumentation._new.374 Project.Main.358

Ahora si dice algo....mmm...como se soluciona esto?....Por favor alguien que me eche una mano.....Quiero probar alguna manera antes de aplicar "purge" o "remove", porque de hacerlo así no aprendería nada....

Gracias...

Instalación Respuestas 9

, pero no del todo. Clave directa para XML similar a Key de TreeView

Grandamakulo 22-08-2021, 12:01

Hola a todos:
¿Existe alguna manera de acceder directamente a un elemento de un XML de manera similar a cómo se hace con «.Key» de un TreeView?
Ahora mismo estoy accediendo a los subelementos de un elemento así:

Código:
Public Sub trvProyecto_Select()

  Dim txtPaso As String

  Dim Elemento As XmlElement

  Dim Elementos As XmlElement[]

  Dim Subel As XmlElement

  Dim Subels As XmlElement[]

  Dim Valores As New String[]

  Dim i As Byte

'Estos en realidad se leen de CDATA del XML

  Dim Campos As String[] = ["contenido", "notas", "sinopsis"]

'Estos deberían ser constantes de la aplicación

  Dim intContenido As Integer = 0

  Dim intNotas As Integer = 1

  Dim intSinopsis As Integer = 2

  Valores.Resize(Campos.Count)  

  txtPaso = trvProyecto.Item.Key

  lblActual.Caption = trvProyecto.Item.Text

  Elemento = xmlObjeto.Root

  Elementos = Elemento.GetChildrenByNamespace("id")

  For Each Elemento In Elementos

    If Elemento.Value = txtPaso Then

      For i = 0 To Campos.Max

        Subels = Elemento.Parent.GetChildrenByNamespace(Campos[i],, 2)

        If Subels.Count Then 

          Subel = Subels[0]

          Valores[i] = Subel.Value

        Endif 

      Next

    Endif

  Next

'Y aquí ya se hacen «cositas» con los datos leídos.

  txtPral.RichText = Valores[intContenido]

End

¿Habría alguna manera menos aparatosa?
Muchas gracias compañeros.[/i][/i]

Controles/Librerías/Componentes Respuestas 5

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