Comunidad Gambas-es

¿Como manejar el alto de un gridview segun sus items?

kokodrilo 24-08-2020, 16:44

https://www.youtube.com/watch?v=nPmay4ML_Zk

como ven en el vídeo el gridview varia sus filas según las coicidencias lo que quiero hacer que el alto del gridview se ajuste según la suma de alto de cada fila, una vez vuott me dijo como era pero me olvide o no era esta situación, no recuerdo.

alguna ayuda con esto?

General Respuestas 2

Analizador de espectro

tincho 24-08-2020, 01:07

Hola a todos.
Estoy queriendo poner un recuadro al estilo audacious (ver imagen adjunta) y creo que el código es este:
https://github.com/audacious-media-playe...pectrum.cc
[Imagen: KwUT7Bb.png]

Busque en la granja los reproductores que hay pero ninguno lo tiene. Supongo que en gambas no hay algo de esto ¿o si?
¿Alguna idea?
Saludos.

Controles/Librerías/Componentes Respuestas 8

TagLib como acceder mas información.

tincho 23-08-2020, 19:33

Vuott: Estoy usando tu ejemplo de Extern con la librería TagLib y funciona bien y rápido para extraer metadatos de los archivos de música.
https://www.gambas-it.org/wiki/index.php...i_Libtag_c
Me interesa acceder a algunos datos mas pero luego de intentar un tiempo desistí.
Estos usando la información del sitio
https://taglib.org/
pero no logro implementar nada.
Deseo saber el codec del archivo, el artista del album, y el tipo de id3 y la versión.
En todos los intentos que hice, el código da error y dice que esa función no esta en libtag_c......
El código modificado es este:

Código:
Export

Library "libtag_c:0.0.0"

Public Struct TagLib_File

  dummy As Integer

End Struct

Public Struct TagLib_Tag

  dummy As Integer

End Struct

Public Struct TagLib_AudioProperties

  dummy As Integer

End Struct

' void taglib_set_strings_unicode(BOOL unicode)

' By default all strings coming into or out of TagLib's C API are in UTF8.

' However, it may be desirable For TagLib To operate On Latin1(ISO - 8859 - 1) strings In which Case this should be set To FALSE.

Private Extern taglib_set_strings_unicode(unicode As Boolean)

' TagLib_File *taglib_file_new_type(const char *filename)

' Creates a TagLib file based on \a filename.

Private Extern taglib_file_new(filename As String) As TagLib_File

' TagLib_Tag *taglib_file_tag(const TagLib_File *file)

' Returns a pointer to the tag associated with this file.

Private Extern taglib_file_tag(_file As TagLib_File) As TagLib_Tag

' char *taglib_tag_title(const TagLib_Tag *tag)

' Returns a string with this tag's title.

Private Extern taglib_tag_title(tag As TagLib_Tag) As String

' char *taglib_tag_artist(const TagLib_Tag *tag)

' Returns a string with this tag's artist.

Private Extern taglib_tag_artist(tag As TagLib_Tag) As String

' char *taglib_tag_album(const TagLib_Tag *tag)

' Returns a string with this tag's album name.

Private Extern taglib_tag_album(tag As TagLib_Tag) As String

' unsigned int taglib_tag_year(const TagLib_Tag *tag)

' Returns the tag's year or 0 if year is not set.

Private Extern taglib_tag_year(tag As TagLib_Tag) As Integer

' char *taglib_tag_comment(const TagLib_Tag *tag)

' Returns a string with this tag's comment.

Private Extern taglib_tag_comment(tag As TagLib_Tag) As String

' unsigned int taglib_tag_track(const TagLib_Tag *tag)

' Returns the tag's track number or 0 if track number is not set.

Private Extern taglib_tag_track(tag As TagLib_Tag) As Integer

'Private Extern taglib_tag_encoder(tag As TagLib_Tag) As String

'Private Extern taglib_tag_volume_number(tag As TagLib_Tag) As Integer

' char *taglib_tag_genre(const TagLib_Tag *tag)

' Returns a string with this tag's genre.

Private Extern taglib_tag_genre(tag As TagLib_Tag) As String

' const TagLib_AudioProperties *taglib_file_audioproperties(const TagLib_File *file)

' Returns a pointer to the the audio properties associated with this file.

Private Extern taglib_file_audioproperties(_file As TagLib_File) As TagLib_AudioProperties

' int taglib_audioproperties_length(const TagLib_AudioProperties *audioProperties)

' Returns the length of the file in seconds.

Private Extern taglib_audioproperties_length(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_bitrate(const TagLib_AudioProperties *audioProperties)

' Returns the bitrate of the file in kb/s.

Private Extern taglib_audioproperties_bitrate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_samplerate(const TagLib_AudioProperties *audioProperties)

' Returns the sample rate of the file in Hz.

Private Extern taglib_audioproperties_samplerate(audioProperties As TagLib_AudioProperties) As Integer

' int taglib_audioproperties_channels(const TagLib_AudioProperties *audioProperties)

' Returns the number of channels in the audio stream.

Private Extern taglib_audioproperties_channels(audioProperties As TagLib_AudioProperties) As Integer

' void taglib_tag_free_strings(void)

' Frees all of the strings that have been created by the tag.

Private Extern taglib_tag_free_strings()

' void taglib_file_free(TagLib_File *file)

' Frees and closes the file.

Private Extern taglib_file_free(_file As TagLib_File)

Public Function Info(fileaudio As String) As Collection

  Dim fl As TagLib_File

  Dim autag As TagLib_Tag

  Dim auprop As TagLib_AudioProperties

  Dim secondi, minuti As Integer

  Dim inf As New Collection

  'taglib_set_strings_unicode(False)

  taglib_set_strings_unicode(True)

  fl = taglib_file_new(fileaudio)

  If IsNull(fl) Then Error.Raise("Impossibile caricare il file audio: " & fileaudio)

  autag = taglib_file_tag(fl)

  If IsNull(autag) Then Error.Raise("Impossibile ottenere i tag dal file audio: " & fileaudio)

  inf.Add(taglib_tag_album(autag), "Album")

  inf.Add(taglib_tag_artist(autag), "Artist")

  inf.Add(taglib_tag_track(autag), "Track")

  inf.Add(taglib_tag_title(autag), "Title")

  inf.Add(taglib_tag_year(autag), "Year")

  inf.Add(taglib_tag_genre(autag), "Genre")

  inf.Add(taglib_tag_comment(autag), "Comment")

  ' Mostra le proprietà del file audio:

  auprop = taglib_file_audioproperties(fl)

  If IsNull(auprop) Then

    inf.Add(True, "AudioError")

  Else

    inf.Add(taglib_audioproperties_length(auprop), "Length")

    inf.Add(taglib_audioproperties_bitrate(auprop), "Bitrate")

    inf.Add(taglib_audioproperties_samplerate(auprop), "Frequency")

    inf.Add(taglib_audioproperties_channels(auprop), "Channels")

  Endif

  ' Va in chiusura:

  taglib_tag_free_strings()

  taglib_file_free(fl)

  Return inf

End

Saludos.