<![CDATA[Comunidad Gambas-es - Controles/Librerías/Componentes]]> https://gambas-es.org/ Tue, 14 Apr 2026 02:32:19 +0000 MyBB <![CDATA[Scrolling un ScrollArea]]> https://gambas-es.org/thread-2000.html Mon, 08 Dec 2025 17:29:33 +0000 Shordi]]> https://gambas-es.org/thread-2000.html ¿Alguien tiene algo hecho en éste sentido? No subo ejemplo porque es muy complejo el tema tal como lo tengo diseñado ahora. Os adjunto la imagen del aspecto del programa. Imaginad que pincháis uno de los cuadros y lo desplazáis a la derecha... pues eso.

[Imagen: 3FjnLNrl.png]

Saludos.]]> ¿Alguien tiene algo hecho en éste sentido? No subo ejemplo porque es muy complejo el tema tal como lo tengo diseñado ahora. Os adjunto la imagen del aspecto del programa. Imaginad que pincháis uno de los cuadros y lo desplazáis a la derecha... pues eso.

[Imagen: 3FjnLNrl.png]

Saludos.]]> <![CDATA[Ultima fila en columnview]]> https://gambas-es.org/thread-1996.html Sat, 08 Nov 2025 20:13:39 +0000 Alberto59]]> https://gambas-es.org/thread-1996.html
Por favor como hacer el foco en última fila en columnview,en gambas3.

Gracias.]]>
Por favor como hacer el foco en última fila en columnview,en gambas3.

Gracias.]]> <![CDATA[CMimeTypes: un sustituto para DesktopMime]]> https://gambas-es.org/thread-1990.html Tue, 14 Oct 2025 19:57:59 +0000 Harpo]]> https://gambas-es.org/thread-1990.html Les traigo un sustituto para DeskTopMime. En el último código que subí al foro, GCompress, había una clase interna para gestionar mimetypes. Y puliendo esta última le he dado una vuelta: CMimeTypes.

¿Porqué un sustituto de DesktopMime?. 
Básicamente, porque, en mi humilde opinión, no está bien resuelto el tema. Utilizando el componente estándar no me devolvía los iconos por defecto del sistema, y si el fichero a buscar tiene una extensión poco común devolvía un icono estándar.

El mótivo de esto es en cómo hace el proceso de carga de los iconos, y busca el icono asociado a la extensión del fichero, la función GetIcon():
  1. Si tiene el icono en el tamaño solicitado en caché lo devuelve.
  2. Busca en Stock (iconos Gambas) si tiene el mimetype y si existe lo devuelve. De ahí que no devuelva iconos del sistema por defecto.
  3. Busca en el tema hicolor si existe el icono. Este tema es el "padre" de prácticamente todos los temas de iconos, es muy completo pero  casi nunca tiene el mismo icono que los otros temas.
  4. Busca en "/usr/share/pixmaps"
  5. Vuelve a buscar en Stock, pero lo hace por el icono genérico asociado al mimetype.
  6. Por último, si nada de lo anterior ha dado resultado, devuelve un icono genérico.

Cómo funciona CMimeType:
La clase carga la base de datos de mimetypes del sistema, como DesktopMime. Además añade la información del mimetype genérico asociado, como DesktopMime, pero esta última no lo hace correctamente y se pierde esa información. Por último carga la subclase asociada al mimetype. Y además utiliza una clase auxiliar, CTheme, que analiza los temas de iconos del sistema.

Y busca el icono asociado a la extensión de fichero:
  1. Si tiene el icono en el tamaño solicitado en caché lo devuelve.
  2. Busca el icono del mimetype en el directorio de iconos por defecto por tamaño y tipo.
  3. Busca el icono genérico asociado al mimetype.
  4. Busca el icono genérico asociado a la subclase del mimetype.
  5. Los temas de iconos tienen "herencia", temas de iconos padre. La clase repite el proceso por todo el arbol de herencia del tema por defecto.
  6. Por último, si nada de lo anterior ha dado resultado, devuelve un icono genérico. Aquí tengo pendiente añadir la búsqueda en Stock por si sonara la flauta.

Un ejemplo de la información interna que manejan ambas clases para el mismo mimetype:

[Imagen: J0vEms1l.png]
  • Pattern es la extensión de fichero: json.
  • Type es el mimetype asociado a json.
  • GenericIcon, el icono genérico asociado al mimetype, como comentaba antes DesktopMime no lo hace correctamente.
  • SubClass, la subclase del mimetype.

Ventajas de DesktopMime: 
  • Es rápido, tanto en la búsqueda del mimetype asociado al fichero como en la búsqueda del icono, aunque el icono que devuelve en muchos casos es el icono de Stock. Si la extensión de fichero es poco habitual, es más lento.
  • Cumple su función, permite salir del paso con solvencia.

Ventajas de CMimeType:
  • Aunque es mucho más lento hay que ponerlo en contexto: uno son 0,028 msec y el otro 0,059 msec (de media). El proceso de carga completo en mi ordenador, con 22 temas de iconos, tarda 75 msec. Un parpadeo dura 300 msec. Y yo solo he instalado uno de los temas, los demás venían por defecto.   Angel
  • La tasa de acierto, recuperar el icono del sistema asociado al mimetype, es mucho más alta. Que es lo que yo buscaba.
  • Permite cambiar el tema por defecto que se utiliza en las búsquedas. Y de paso visualizar los temas de iconos.

Hay un par de formularios para probar. Como dato curioso, están embebidos dentro de un control Wizard, he descubierto que es muy cómodo para cosas rápidas y de prueba, así me ahorro el añadir el control gb.form.mdi y usar un WorkSpace. Con los botones de arriba se cambia de formulario y se cierra la aplicación.

[Imagen: OYPdyXwl.png]

Este es el formulario para buscar mimetypes, basta pulsar sobre un fichero y a la derecha salen los iconos que devuelven CMimeType y DesktopMime. El que devuelve este último es un icono de Stock, no del sistema. También se ve que el control FileChooser, que usa DesktopMime, no encuentra varios ficheros y devuelve el icono estándar.

Arriba a la derecha se puede seleccionar el tema de iconos y el tamaño. El botón Home vuelve a poner el tema por defecto en el ComboBox. Se visualiza el mimetype asociado al fichero, el icono y la descripción asociada al mimetype.

[Imagen: QxWegrAl.png]

Este es para explorar los temas de iconos que tenemos en el sistema y qué información guarda la clase CTheme:
  • El directorio donde están los iconos.
  • El nombre interno del tema.
  • La descripción del tema.
  • Si es el tema por defecto del sistema.
  • Si está marcado como oculto.
  • Si es "Dark mode"
  • La estructura interna de los directorios. Se usa para facilitar la búsqueda, según el tema la estructura puede ser "mimetypes/16" o "16/mimetypes". En la búsqueda se sustituye esta cadena por tamaño y directorio.
  • El formato del directorio de tamaños. Algunos son "16x16" y otros, como la imagen, solo "16".
  • El directorio por defecto donde el tema almacena los mimetypes.
  • La extensión por defecto de los ficheros en ese tema, suele ser svg o png.
  • Y por último la herencia, que ya he comentado antes. Estos son los temas de los que hereda el tema seleccionado. Si la clase no encuentra el icono en el tema por defecto lo búscara en toda su cadena de herencia.

Y nada más, como siempre son bienvenidos los comentarios y las sugerencias.
Un saludo, Harpo.

.gz
CMimetypes-1.0.tar.gz (Tamaño: 27.18 KB Descargas: 2)
]]> Les traigo un sustituto para DeskTopMime. En el último código que subí al foro, GCompress, había una clase interna para gestionar mimetypes. Y puliendo esta última le he dado una vuelta: CMimeTypes.

¿Porqué un sustituto de DesktopMime?. 
Básicamente, porque, en mi humilde opinión, no está bien resuelto el tema. Utilizando el componente estándar no me devolvía los iconos por defecto del sistema, y si el fichero a buscar tiene una extensión poco común devolvía un icono estándar.

El mótivo de esto es en cómo hace el proceso de carga de los iconos, y busca el icono asociado a la extensión del fichero, la función GetIcon():
  1. Si tiene el icono en el tamaño solicitado en caché lo devuelve.
  2. Busca en Stock (iconos Gambas) si tiene el mimetype y si existe lo devuelve. De ahí que no devuelva iconos del sistema por defecto.
  3. Busca en el tema hicolor si existe el icono. Este tema es el "padre" de prácticamente todos los temas de iconos, es muy completo pero  casi nunca tiene el mismo icono que los otros temas.
  4. Busca en "/usr/share/pixmaps"
  5. Vuelve a buscar en Stock, pero lo hace por el icono genérico asociado al mimetype.
  6. Por último, si nada de lo anterior ha dado resultado, devuelve un icono genérico.

Cómo funciona CMimeType:
La clase carga la base de datos de mimetypes del sistema, como DesktopMime. Además añade la información del mimetype genérico asociado, como DesktopMime, pero esta última no lo hace correctamente y se pierde esa información. Por último carga la subclase asociada al mimetype. Y además utiliza una clase auxiliar, CTheme, que analiza los temas de iconos del sistema.

Y busca el icono asociado a la extensión de fichero:
  1. Si tiene el icono en el tamaño solicitado en caché lo devuelve.
  2. Busca el icono del mimetype en el directorio de iconos por defecto por tamaño y tipo.
  3. Busca el icono genérico asociado al mimetype.
  4. Busca el icono genérico asociado a la subclase del mimetype.
  5. Los temas de iconos tienen "herencia", temas de iconos padre. La clase repite el proceso por todo el arbol de herencia del tema por defecto.
  6. Por último, si nada de lo anterior ha dado resultado, devuelve un icono genérico. Aquí tengo pendiente añadir la búsqueda en Stock por si sonara la flauta.

Un ejemplo de la información interna que manejan ambas clases para el mismo mimetype:

[Imagen: J0vEms1l.png]
  • Pattern es la extensión de fichero: json.
  • Type es el mimetype asociado a json.
  • GenericIcon, el icono genérico asociado al mimetype, como comentaba antes DesktopMime no lo hace correctamente.
  • SubClass, la subclase del mimetype.

Ventajas de DesktopMime: 
  • Es rápido, tanto en la búsqueda del mimetype asociado al fichero como en la búsqueda del icono, aunque el icono que devuelve en muchos casos es el icono de Stock. Si la extensión de fichero es poco habitual, es más lento.
  • Cumple su función, permite salir del paso con solvencia.

Ventajas de CMimeType:
  • Aunque es mucho más lento hay que ponerlo en contexto: uno son 0,028 msec y el otro 0,059 msec (de media). El proceso de carga completo en mi ordenador, con 22 temas de iconos, tarda 75 msec. Un parpadeo dura 300 msec. Y yo solo he instalado uno de los temas, los demás venían por defecto.   Angel
  • La tasa de acierto, recuperar el icono del sistema asociado al mimetype, es mucho más alta. Que es lo que yo buscaba.
  • Permite cambiar el tema por defecto que se utiliza en las búsquedas. Y de paso visualizar los temas de iconos.

Hay un par de formularios para probar. Como dato curioso, están embebidos dentro de un control Wizard, he descubierto que es muy cómodo para cosas rápidas y de prueba, así me ahorro el añadir el control gb.form.mdi y usar un WorkSpace. Con los botones de arriba se cambia de formulario y se cierra la aplicación.

[Imagen: OYPdyXwl.png]

Este es el formulario para buscar mimetypes, basta pulsar sobre un fichero y a la derecha salen los iconos que devuelven CMimeType y DesktopMime. El que devuelve este último es un icono de Stock, no del sistema. También se ve que el control FileChooser, que usa DesktopMime, no encuentra varios ficheros y devuelve el icono estándar.

Arriba a la derecha se puede seleccionar el tema de iconos y el tamaño. El botón Home vuelve a poner el tema por defecto en el ComboBox. Se visualiza el mimetype asociado al fichero, el icono y la descripción asociada al mimetype.

[Imagen: QxWegrAl.png]

Este es para explorar los temas de iconos que tenemos en el sistema y qué información guarda la clase CTheme:
  • El directorio donde están los iconos.
  • El nombre interno del tema.
  • La descripción del tema.
  • Si es el tema por defecto del sistema.
  • Si está marcado como oculto.
  • Si es "Dark mode"
  • La estructura interna de los directorios. Se usa para facilitar la búsqueda, según el tema la estructura puede ser "mimetypes/16" o "16/mimetypes". En la búsqueda se sustituye esta cadena por tamaño y directorio.
  • El formato del directorio de tamaños. Algunos son "16x16" y otros, como la imagen, solo "16".
  • El directorio por defecto donde el tema almacena los mimetypes.
  • La extensión por defecto de los ficheros en ese tema, suele ser svg o png.
  • Y por último la herencia, que ya he comentado antes. Estos son los temas de los que hereda el tema seleccionado. Si la clase no encuentra el icono en el tema por defecto lo búscara en toda su cadena de herencia.

Y nada más, como siempre son bienvenidos los comentarios y las sugerencias.
Un saludo, Harpo.

.gz
CMimetypes-1.0.tar.gz (Tamaño: 27.18 KB Descargas: 2)
]]> <![CDATA[Libarchive para Gambas]]> https://gambas-es.org/thread-1987.html Fri, 26 Sep 2025 18:06:41 +0000 Harpo]]> https://gambas-es.org/thread-1987.html Después de un tiempo alejado del teclado he retomado los proyectos personales que tenía abandonados. El primero ha sido la aplicación para gestionar cómics, y por fin tengo un compresor/descompresor de archivos: Libarchive .

Cómo ya sabrán es una librería para leer, escribir y comprimir distintos formatos de fichero, según la página web de la libreria:
  • tar (read and write, including GNU extensions)
  • pax (read and write, including GNU and star extensions)
  • cpio (read and write, including odc, newc, and afio variants)
  • ISO9660 (read and write, including Joliet and Rockridge extensions, with some limitations)
  • zip (read and write, with some limitations, uses zlib)
  • mtree (read and write, uses separate libraries for creating and verifying cryptographic hashes)
  • shar (write only)
  • ar (read and write, including BSD and GNU/SysV variants)
  • empty (read only; in particular, note that no other format will accept an empty file)
  • raw (read and write)
  • xar (read and write)
  • lha/lzh (read only)
  • rar (read only, original and RAR v5 format)
  • Microsoft CAB format (read only)
  • 7-Zip (read and write)
  • WARC (ISO 28500:2009, read and write)

La librería trata los ficheros como un stream, un conjunto de elementos empaquetados juntos. La definición de las funciones internas está dividida en dos partes: CArchive para las funciones propias del archivo y CEntry para los elementos dentro del archivo, entradas. Además hay un módulo, MArchive, para funciones auxiliares y definición de constantes internas de la librería. No todas las funciones internas de la librería están definidas, todavía queda pulir, limpiar, optimizar y completar. Queda trabajo.

Las clases en Gambas son:
  • GCompress: para gestionar los ficheros. Comprimir, descomprimir, leer, extraer ficheros, hacer backup de directorios.
  • GEntry: para gestionar los elementos dentro GCompress. Ficheros, directorios, enlaces simbólicos.
  • Clases de apoyo para manejar opciones de compresión y lectura, flags para descomprimir ficheros.

Para quién se decida a probar la librería, Libarchive tiene dos conceptos importantes, FORMAT y FILTER. El primero hace referencia al formato del fichero, el segundo a formatos de compresión. Y existen formatos de fichero que además son compresores, compresores que pueden que lo sean o no, se pueden mezclar formatos y compresores, se pueden usar varios compresores dentro de un formato. Además los formatos y compresores tienen distintas opciones de empaquetado, compresión y encriptación. Puede haber ficheros (entradas) con la cabecera encriptada pero no los datos, con los datos encriptados pero no la cabecera ... un lio enorme.

Dentro del proyecto hay una aplicación para jugar con la librería, es un desastre a nivel de código, con mucha basura, pero funcional. Básicamente una prueba de concepto. Y la última pestaña, "Rebuild - Extract file" no es funcional, permite hacerlo todo pero el botón "Rebuild" todavía no hace nada.   Rolleyes

[Imagen: stYBDiNl.png]

[Imagen: 8eTLM6ql.png]

Si alguien se decide a probarla y encuentra algún problema o tiene alguna sugerencia se agradecería el comentario.
Un saludo, Harpo

.gz
GCompress.tar.gz (Tamaño: 80.65 KB Descargas: 2)
]]> Después de un tiempo alejado del teclado he retomado los proyectos personales que tenía abandonados. El primero ha sido la aplicación para gestionar cómics, y por fin tengo un compresor/descompresor de archivos: Libarchive .

Cómo ya sabrán es una librería para leer, escribir y comprimir distintos formatos de fichero, según la página web de la libreria:
  • tar (read and write, including GNU extensions)
  • pax (read and write, including GNU and star extensions)
  • cpio (read and write, including odc, newc, and afio variants)
  • ISO9660 (read and write, including Joliet and Rockridge extensions, with some limitations)
  • zip (read and write, with some limitations, uses zlib)
  • mtree (read and write, uses separate libraries for creating and verifying cryptographic hashes)
  • shar (write only)
  • ar (read and write, including BSD and GNU/SysV variants)
  • empty (read only; in particular, note that no other format will accept an empty file)
  • raw (read and write)
  • xar (read and write)
  • lha/lzh (read only)
  • rar (read only, original and RAR v5 format)
  • Microsoft CAB format (read only)
  • 7-Zip (read and write)
  • WARC (ISO 28500:2009, read and write)

La librería trata los ficheros como un stream, un conjunto de elementos empaquetados juntos. La definición de las funciones internas está dividida en dos partes: CArchive para las funciones propias del archivo y CEntry para los elementos dentro del archivo, entradas. Además hay un módulo, MArchive, para funciones auxiliares y definición de constantes internas de la librería. No todas las funciones internas de la librería están definidas, todavía queda pulir, limpiar, optimizar y completar. Queda trabajo.

Las clases en Gambas son:
  • GCompress: para gestionar los ficheros. Comprimir, descomprimir, leer, extraer ficheros, hacer backup de directorios.
  • GEntry: para gestionar los elementos dentro GCompress. Ficheros, directorios, enlaces simbólicos.
  • Clases de apoyo para manejar opciones de compresión y lectura, flags para descomprimir ficheros.

Para quién se decida a probar la librería, Libarchive tiene dos conceptos importantes, FORMAT y FILTER. El primero hace referencia al formato del fichero, el segundo a formatos de compresión. Y existen formatos de fichero que además son compresores, compresores que pueden que lo sean o no, se pueden mezclar formatos y compresores, se pueden usar varios compresores dentro de un formato. Además los formatos y compresores tienen distintas opciones de empaquetado, compresión y encriptación. Puede haber ficheros (entradas) con la cabecera encriptada pero no los datos, con los datos encriptados pero no la cabecera ... un lio enorme.

Dentro del proyecto hay una aplicación para jugar con la librería, es un desastre a nivel de código, con mucha basura, pero funcional. Básicamente una prueba de concepto. Y la última pestaña, "Rebuild - Extract file" no es funcional, permite hacerlo todo pero el botón "Rebuild" todavía no hace nada.   Rolleyes

[Imagen: stYBDiNl.png]

[Imagen: 8eTLM6ql.png]

Si alguien se decide a probarla y encuentra algún problema o tiene alguna sugerencia se agradecería el comentario.
Un saludo, Harpo

.gz
GCompress.tar.gz (Tamaño: 80.65 KB Descargas: 2)
]]> <![CDATA[Error al generar paquete para Arch desde Linux Mint]]> https://gambas-es.org/thread-1983.html Thu, 18 Sep 2025 11:24:12 +0000 alberto-moyano]]> https://gambas-es.org/thread-1983.html
Gracias de antemano]]>
Gracias de antemano]]> <![CDATA[Nuevo componente gb.qt6.webkit]]> https://gambas-es.org/thread-1953.html Thu, 08 May 2025 18:46:46 +0000 alberto-moyano]]> https://gambas-es.org/thread-1953.html
Si bien gb.qt5.WebView es más moderno, más rápido (realmente muy poco), no tiene soporte para el método .eval (que permite evaluar expresiones JavaScript), que sí existe en gb.qt5.webkit, la wiki de gambas sugiere una técnica para poder hacer evaluaciones, pero es demasiado farragoso y es mucho el código que debería modificar.

Es solo para saber como prepararme ante el futuro incierto que sugiere la expresión deprecated.

Saludos]]>
Si bien gb.qt5.WebView es más moderno, más rápido (realmente muy poco), no tiene soporte para el método .eval (que permite evaluar expresiones JavaScript), que sí existe en gb.qt5.webkit, la wiki de gambas sugiere una técnica para poder hacer evaluaciones, pero es demasiado farragoso y es mucho el código que debería modificar.

Es solo para saber como prepararme ante el futuro incierto que sugiere la expresión deprecated.

Saludos]]> <![CDATA[Nuevo Control TableZoom]]> https://gambas-es.org/thread-1912.html Mon, 31 Mar 2025 17:10:52 +0000 Shordi]]> https://gambas-es.org/thread-1912.html
]]>
]]> <![CDATA[Refrescar un DirView y un ListView]]> https://gambas-es.org/thread-1903.html Tue, 25 Mar 2025 22:42:14 +0000 alberto-moyano]]> https://gambas-es.org/thread-1903.html
Estoy aplicando un refresh y un reload a los componentes, pero ni modo, de manera totalmente aleatoria cada tanto pasa lo comentado anteriormente, si cierro la aplicación al reabrirla se soluciona el problema.

Pregunta: ¿es una limitación del componente la velocidad de refresco?, digo, son muchisimos archivos todos muuuy pequeños, o es un error de como estoy aplicando el refresco, lo hago con este código (además de hacer un refresh y un reload despúes de compilar) al final de cada funcion de compilación.

Código:
' Evento que se ejecuta cuando se detecta un cambio en el directorio
Public Sub Watcher_Change()

  DirViewRuta.Root = File.Dir(TextBox1.Text)' reforzamos la indicación de la ruta
  DirViewRuta.Refresh
  DirView.Reload

End


Gracias de antemano por cualquier sugerencia]]>
Estoy aplicando un refresh y un reload a los componentes, pero ni modo, de manera totalmente aleatoria cada tanto pasa lo comentado anteriormente, si cierro la aplicación al reabrirla se soluciona el problema.

Pregunta: ¿es una limitación del componente la velocidad de refresco?, digo, son muchisimos archivos todos muuuy pequeños, o es un error de como estoy aplicando el refresco, lo hago con este código (además de hacer un refresh y un reload despúes de compilar) al final de cada funcion de compilación.

Código:
' Evento que se ejecuta cuando se detecta un cambio en el directorio
Public Sub Watcher_Change()

  DirViewRuta.Root = File.Dir(TextBox1.Text)' reforzamos la indicación de la ruta
  DirViewRuta.Refresh
  DirView.Reload

End


Gracias de antemano por cualquier sugerencia]]> <![CDATA[Nuevo control: «Doble Lista»]]> https://gambas-es.org/thread-1898.html Wed, 19 Mar 2025 20:13:48 +0000 Grandamakulo]]> https://gambas-es.org/thread-1898.html Bueno, compañeros, gracias a las inestimables enseñanzas del Magister Draconis Venator, @Shordi, me he atrevido a montar mi primer control. Por supuesto, soy yo. No podía hacer uno sencillito, no: empezar por lo fácil es de pobres.
En fin, se trata de un gestor de doble lista, sobre el que se puede crear y eliminar elementos, pasar elementos de una lista a otra, ordenar cada lista según varios criterios y obtener un «Text» utilizable como , por ejemplo, editor en un Tableview. ¿Que para qué vale? Pues... seleccionar instrumentos para adecuar una plantilla de orquesta, banda o cámara; para seleccionar una lista de personajes para un capítulo de una novela de todos los existentes; para gestionar las plantas que se llevan del semillero al huerto; objetos del espacio profundo a observar una noche por un astrónomo... Ahí queda eso.

[Imagen: EoZayVwl.png]
[Imagen: 3LZFYCZl.png]

Aún le quedan flecos como:
¿Cómo narices se levanta un evento «Cambiar» similar al «Change» desde el formulario cada vez que se pulsa un grupo de botones?
¿Y cómo se crea un evento «Enter» similar al de Texbox?
¿Cómo releñes se puede usar una propiedad de la clase en el formulario?
Estas tres preguntas, creo, se contestan probablemente planteando de otra manera el código del control, esto es, llevando a la clase la gestión de algunos elementos del formulario.
En fin, se admiten comentarios, consejos y críticas destructivas.
.gz
DobleLista_02.tar.gz (Tamaño: 31.89 KB Descargas: 1)
]]> Bueno, compañeros, gracias a las inestimables enseñanzas del Magister Draconis Venator, @Shordi, me he atrevido a montar mi primer control. Por supuesto, soy yo. No podía hacer uno sencillito, no: empezar por lo fácil es de pobres.
En fin, se trata de un gestor de doble lista, sobre el que se puede crear y eliminar elementos, pasar elementos de una lista a otra, ordenar cada lista según varios criterios y obtener un «Text» utilizable como , por ejemplo, editor en un Tableview. ¿Que para qué vale? Pues... seleccionar instrumentos para adecuar una plantilla de orquesta, banda o cámara; para seleccionar una lista de personajes para un capítulo de una novela de todos los existentes; para gestionar las plantas que se llevan del semillero al huerto; objetos del espacio profundo a observar una noche por un astrónomo... Ahí queda eso.

[Imagen: EoZayVwl.png]
[Imagen: 3LZFYCZl.png]

Aún le quedan flecos como:
¿Cómo narices se levanta un evento «Cambiar» similar al «Change» desde el formulario cada vez que se pulsa un grupo de botones?
¿Y cómo se crea un evento «Enter» similar al de Texbox?
¿Cómo releñes se puede usar una propiedad de la clase en el formulario?
Estas tres preguntas, creo, se contestan probablemente planteando de otra manera el código del control, esto es, llevando a la clase la gestión de algunos elementos del formulario.
En fin, se admiten comentarios, consejos y críticas destructivas.
.gz
DobleLista_02.tar.gz (Tamaño: 31.89 KB Descargas: 1)
]]> <![CDATA[ejemplos de uso del componente gb.net]]> https://gambas-es.org/thread-1891.html Fri, 14 Mar 2025 01:31:06 +0000 alberto-moyano]]> https://gambas-es.org/thread-1891.html
Lo primero que hice, fue preguntarle al propio DeepSeek si esto era posible y que limitaciones tengo. En la versión gratuita el limite está en la cantidad de tokens de los que se dispone, la cantidad que ofrece me alcanzan, ya que es lo que uso hoy y no tengo problemas.

Este es el código de una que me sugirio (tuve que agregar los componentes gb.webview y gb.net

Código:
' En el evento Click del botón "Enviar"
Public Sub btnSENDai_Click()

  ' Obtén el texto del TextArea
  Dim sPrompt As String = txtPROMPT.Text

  ' URL de la API de DeepSeek
  Dim sUrl As String = "https://api.deepseek.com/v1/chat/completions"

  ' Tu clave de API de DeepSeek
  Dim sApiKey As String = txtAPIKEY.Text

  ' Crea el JSON para la solicitud
  Dim sJson As String = "{ \"model\": \"deepseek-chat\", \"messages\": [{\"role\": \"user\", \"content\": \"" & sPrompt & "\"}] }"

  ' Configura la solicitud HTTP
  Dim hClient As NetClient

  hClient = New NetClient As "NetClient"

  ' Configura los encabezados
  hClient.RequestHeaders["Content-Type"] = "application/json"
  hClient.RequestHeaders["Authorization"] = "Bearer " & sApiKey

  ' Envía la solicitud POST
  hClient.Post(sUrl, sJson)

End

' En el evento Complete del NetClient
Public Sub hClient_Complete()

  ' Obtén la respuesta
  Dim sResponse As String = hClient.ResponseText

  ' Parsea la respuesta JSON (puedes usar una librería JSON para esto)
  Dim sMessage As String = ParseJsonResponse(sResponse)

  ' Muestra la respuesta en el componente WebKit
  WebViewAI.Text = sMessage

End

' Función para parsear la respuesta JSON (ejemplo básico)
Public Function ParseJsonResponse(sJson As String) As String

  ' Aquí debes implementar la lógica para extraer el mensaje de la respuesta JSON
  ' Este es un ejemplo básico:
  Dim sMessage As String
  Dim iStart As Integer = InStr(sJson, "\"content\":\"") + 11
  Dim iEnd As Integer = InStr(iStart, sJson, "\"")

  If iStart > 0 And iEnd > 0 Then
    sMessage = Mid(sJson, iStart, iEnd - iStart)
  Else
    sMessage = "Error: No se pudo parsear la respuesta JSON."
  Endif

  Return sMessage

End

Por supuesto, como es de esperar (ya anunciado por Shordi en algún hilo, por ahí) no funciona, pero la idea del proceso a desarrollar es clara.

Mi pregunta es si alguien del foro tiene experiencia (y tiempo) para explicar como funciona gb.net.

Saludos y gracias de antemano.

[1] en el proceso de edición de libros, utilizo DeepSeek para automatizar tareas, tales como hacer la traducción de diferentes metadatos que inyecto dentro de los libros a 3 idiomas (inglés, francés y portugues), otro uso muy repetido es que me busqué info faltante en las referencias bibliograficas y que me las pase directamente formateadas en biblatex.]]>
Lo primero que hice, fue preguntarle al propio DeepSeek si esto era posible y que limitaciones tengo. En la versión gratuita el limite está en la cantidad de tokens de los que se dispone, la cantidad que ofrece me alcanzan, ya que es lo que uso hoy y no tengo problemas.

Este es el código de una que me sugirio (tuve que agregar los componentes gb.webview y gb.net

Código:
' En el evento Click del botón "Enviar"
Public Sub btnSENDai_Click()

  ' Obtén el texto del TextArea
  Dim sPrompt As String = txtPROMPT.Text

  ' URL de la API de DeepSeek
  Dim sUrl As String = "https://api.deepseek.com/v1/chat/completions"

  ' Tu clave de API de DeepSeek
  Dim sApiKey As String = txtAPIKEY.Text

  ' Crea el JSON para la solicitud
  Dim sJson As String = "{ \"model\": \"deepseek-chat\", \"messages\": [{\"role\": \"user\", \"content\": \"" & sPrompt & "\"}] }"

  ' Configura la solicitud HTTP
  Dim hClient As NetClient

  hClient = New NetClient As "NetClient"

  ' Configura los encabezados
  hClient.RequestHeaders["Content-Type"] = "application/json"
  hClient.RequestHeaders["Authorization"] = "Bearer " & sApiKey

  ' Envía la solicitud POST
  hClient.Post(sUrl, sJson)

End

' En el evento Complete del NetClient
Public Sub hClient_Complete()

  ' Obtén la respuesta
  Dim sResponse As String = hClient.ResponseText

  ' Parsea la respuesta JSON (puedes usar una librería JSON para esto)
  Dim sMessage As String = ParseJsonResponse(sResponse)

  ' Muestra la respuesta en el componente WebKit
  WebViewAI.Text = sMessage

End

' Función para parsear la respuesta JSON (ejemplo básico)
Public Function ParseJsonResponse(sJson As String) As String

  ' Aquí debes implementar la lógica para extraer el mensaje de la respuesta JSON
  ' Este es un ejemplo básico:
  Dim sMessage As String
  Dim iStart As Integer = InStr(sJson, "\"content\":\"") + 11
  Dim iEnd As Integer = InStr(iStart, sJson, "\"")

  If iStart > 0 And iEnd > 0 Then
    sMessage = Mid(sJson, iStart, iEnd - iStart)
  Else
    sMessage = "Error: No se pudo parsear la respuesta JSON."
  Endif

  Return sMessage

End

Por supuesto, como es de esperar (ya anunciado por Shordi en algún hilo, por ahí) no funciona, pero la idea del proceso a desarrollar es clara.

Mi pregunta es si alguien del foro tiene experiencia (y tiempo) para explicar como funciona gb.net.

Saludos y gracias de antemano.

[1] en el proceso de edición de libros, utilizo DeepSeek para automatizar tareas, tales como hacer la traducción de diferentes metadatos que inyecto dentro de los libros a 3 idiomas (inglés, francés y portugues), otro uso muy repetido es que me busqué info faltante en las referencias bibliograficas y que me las pase directamente formateadas en biblatex.]]> <![CDATA[CUnarr - descomprimir con libreria externa]]> https://gambas-es.org/thread-1777.html Tue, 03 Sep 2024 18:51:40 +0000 Harpo]]> https://gambas-es.org/thread-1777.html
Cómo les comenté en otro mensaje, estoy buscando una solución para gestionar ficheros comprimidos en los formatos Zip, Rar, Tar y 7z, necesito poder descomprimirlos, comprimirlos y listar su contenido. Después de probar 4 soluciones distintas les traigo la cuarta y última, de momento. Big Grin

Para los interesados en las distintas pruebas:
  1. Probé el componente gb.Compress, no me sirve ya que solo trabaja con ficheros, no con directorios, y además no soporta todos los formatos.
  2. La segunda probé utilidades de consola y el comando Shell de Gambas. Concretamente Zip/Unzip, Rar/Unrar y bsdtar. Aunque funcionan bien todas es complicado, cada una tiene su sintaxis y sus formatos de salida. Iba a ser complejo de desarrollar y mantener.
  3. La tercera fue probar 7z, en teoría soporta todos los formatos y cubre toda la operativa, en la realidad da problemas con el formato Rar. Es un formato propietario y con ese tipo de ficheros da errores al descomprimir y listar. Y no comprime en Rar. Al final usé 7z con Rar/Unrar con buenos resultados aunque volvía al problema de distintas sintaxis y formatos de salida.
  4. La última ha sido con una librería externa: libunarr. Y sobre esta he desarrollado una clase Gambas para descomprimir y extraer información de ficheros comprimidos en los formatos que necesito.
Sobre la librería comentar que:
  • Es una librería diseñada para trabajar con cómics y es utilizada por varias aplicaciones de esa naturaleza.
  • No comprime, solo descomprime y lee ficheros comprimidos. Tampoco soporta protección por password ni CRC ni Rar5.
  • Necesita tener instaladas libbz2, liblzma y zlib.
Un apunte, la aplicación que he subido lleva embebida la librería, dentro de un directorio "library". Y en la clase que la utiliza:
Código:
Library "./library/libunarr"
Aunque no suele estar instalada yo la tenía en mi ordenador, supongo que instalada junto a alguna de las aplicaciones que uso para gestionar o leer comics. En las primeras pruebas funcionaba correctamente y en un momento dejó de hacerlo, fallaba con el formato 7z. Al final opté por incluirla dentro del programa hasta saber exactamente que ha pasado.

Lo que he subido es una primerísima versión. Descomprime y lee todos los formatos mencionados, la he probado también con ficheros tipo ePub, xlsx, ods y odt.
A tener en cuenta que es mi primera experiencia con Extern, me he debido leer todos los mensajes sobre el tema de todos los foros de Gambas más la Wiki italiana. El maestro Vuott ha sido mi guía. Big Grin

Lo que falta:
  • Comprobar que el sistema tiene instaladas las librerías necesarias. En esto ando perdido de momento.
  • Un control de errores que no hay, y definir códigos de retorno para ampliar la información que devuelve la clase. Por ejemplo cuando intento descomprimir un fichero en Rar5, la librería da un mensaje de "formato no soportado", que se captura en la consola de depuración del IDE. He mirado el código del IDE para ver como lo implementa pero no lo encuentro, si alguien sabe cómo se agradece la ayuda.
  • Opción al descomprimir de mantener o sobreescribir los ficheros de salida. O actualizar los más antiguos.
  • Filtrar al descomprimir por extensión de ficheros o nombre.
Y no les aburro más, si alguien se decide a probarla se aceptan sugerencias.
Un saludo, Harpo.

[Imagen: R0ZnazL.gif]
.gz
TestUnarr-0.0.1.tar.gz (Tamaño: 748.38 KB Descargas: 4)
]]>
Cómo les comenté en otro mensaje, estoy buscando una solución para gestionar ficheros comprimidos en los formatos Zip, Rar, Tar y 7z, necesito poder descomprimirlos, comprimirlos y listar su contenido. Después de probar 4 soluciones distintas les traigo la cuarta y última, de momento. Big Grin

Para los interesados en las distintas pruebas:
  1. Probé el componente gb.Compress, no me sirve ya que solo trabaja con ficheros, no con directorios, y además no soporta todos los formatos.
  2. La segunda probé utilidades de consola y el comando Shell de Gambas. Concretamente Zip/Unzip, Rar/Unrar y bsdtar. Aunque funcionan bien todas es complicado, cada una tiene su sintaxis y sus formatos de salida. Iba a ser complejo de desarrollar y mantener.
  3. La tercera fue probar 7z, en teoría soporta todos los formatos y cubre toda la operativa, en la realidad da problemas con el formato Rar. Es un formato propietario y con ese tipo de ficheros da errores al descomprimir y listar. Y no comprime en Rar. Al final usé 7z con Rar/Unrar con buenos resultados aunque volvía al problema de distintas sintaxis y formatos de salida.
  4. La última ha sido con una librería externa: libunarr. Y sobre esta he desarrollado una clase Gambas para descomprimir y extraer información de ficheros comprimidos en los formatos que necesito.
Sobre la librería comentar que:
  • Es una librería diseñada para trabajar con cómics y es utilizada por varias aplicaciones de esa naturaleza.
  • No comprime, solo descomprime y lee ficheros comprimidos. Tampoco soporta protección por password ni CRC ni Rar5.
  • Necesita tener instaladas libbz2, liblzma y zlib.
Un apunte, la aplicación que he subido lleva embebida la librería, dentro de un directorio "library". Y en la clase que la utiliza:
Código:
Library "./library/libunarr"
Aunque no suele estar instalada yo la tenía en mi ordenador, supongo que instalada junto a alguna de las aplicaciones que uso para gestionar o leer comics. En las primeras pruebas funcionaba correctamente y en un momento dejó de hacerlo, fallaba con el formato 7z. Al final opté por incluirla dentro del programa hasta saber exactamente que ha pasado.

Lo que he subido es una primerísima versión. Descomprime y lee todos los formatos mencionados, la he probado también con ficheros tipo ePub, xlsx, ods y odt.
A tener en cuenta que es mi primera experiencia con Extern, me he debido leer todos los mensajes sobre el tema de todos los foros de Gambas más la Wiki italiana. El maestro Vuott ha sido mi guía. Big Grin

Lo que falta:
  • Comprobar que el sistema tiene instaladas las librerías necesarias. En esto ando perdido de momento.
  • Un control de errores que no hay, y definir códigos de retorno para ampliar la información que devuelve la clase. Por ejemplo cuando intento descomprimir un fichero en Rar5, la librería da un mensaje de "formato no soportado", que se captura en la consola de depuración del IDE. He mirado el código del IDE para ver como lo implementa pero no lo encuentro, si alguien sabe cómo se agradece la ayuda.
  • Opción al descomprimir de mantener o sobreescribir los ficheros de salida. O actualizar los más antiguos.
  • Filtrar al descomprimir por extensión de ficheros o nombre.
Y no les aburro más, si alguien se decide a probarla se aceptan sugerencias.
Un saludo, Harpo.

[Imagen: R0ZnazL.gif]
.gz
TestUnarr-0.0.1.tar.gz (Tamaño: 748.38 KB Descargas: 4)
]]> <![CDATA[CDbf - Lector ficheros DBF - DBT]]> https://gambas-es.org/thread-1730.html Tue, 09 Jul 2024 16:20:57 +0000 Harpo]]> https://gambas-es.org/thread-1730.html Para quien quiera usarla, a tener en cuenta:
  • Aunque la he utilizado en un proyecto real de integración de datos, y la he testado con distintos DBF, es una versión muy básica, sin optimizar y prácticamente solo la he utilizado con ficheros que venían de un único cliente. Así que es muy posible que dependiendo de la versión y el origen del DBF pueda fallar.
  • Solo funciona como lector, no tiene capacidad de actualizar o escribir ese formato de ficheros.
  • Devuelve todos los registros del fichero sin tener en cuenta si el registro está marcado para borrado o no.
Dentro del fuente hay un par de ficheros de prueba y un TXT con las especificaciones de la estructura de este tipo de ficheros.
Para más información:
Xbase File Format Description
DBF AND DBT/FPT FILE STRUCTURE
Formato de archivo DBF

Para probarlo basta con ejecutar en el IDE, seleccionar el DBF para mostrar la estructura y con el botón "Cargar" se rellena el GridView con los datos.

[Imagen: LHEckzy.png]
[Imagen: jwmUiHL.png]

Un saludo, Harpo.
.gz
DbfFiles-0.0.1.tar.gz (Tamaño: 26.4 KB Descargas: 8)
]]> Para quien quiera usarla, a tener en cuenta:
  • Aunque la he utilizado en un proyecto real de integración de datos, y la he testado con distintos DBF, es una versión muy básica, sin optimizar y prácticamente solo la he utilizado con ficheros que venían de un único cliente. Así que es muy posible que dependiendo de la versión y el origen del DBF pueda fallar.
  • Solo funciona como lector, no tiene capacidad de actualizar o escribir ese formato de ficheros.
  • Devuelve todos los registros del fichero sin tener en cuenta si el registro está marcado para borrado o no.
Dentro del fuente hay un par de ficheros de prueba y un TXT con las especificaciones de la estructura de este tipo de ficheros.
Para más información:
Xbase File Format Description
DBF AND DBT/FPT FILE STRUCTURE
Formato de archivo DBF

Para probarlo basta con ejecutar en el IDE, seleccionar el DBF para mostrar la estructura y con el botón "Cargar" se rellena el GridView con los datos.

[Imagen: LHEckzy.png]
[Imagen: jwmUiHL.png]

Un saludo, Harpo.
.gz
DbfFiles-0.0.1.tar.gz (Tamaño: 26.4 KB Descargas: 8)
]]> <![CDATA[ResultTree, un control que muestra una result en forma de árbol.]]> https://gambas-es.org/thread-1728.html Mon, 08 Jul 2024 10:49:31 +0000 Shordi]]> https://gambas-es.org/thread-1728.html Ayer, en el vídeo explico por qué, se me planteó ese problema otra vez y decidí hacer uno más simple, de hecho Muy simple, que hiciese eso y que fuese fácil de entender y de incluir en los programas de ejemplo que estoy haciendo para youtube. El resultado es ResutTree.



El código lo he adjuntado al vídeo, por si a alguien le interesa.

Saludos]]> Ayer, en el vídeo explico por qué, se me planteó ese problema otra vez y decidí hacer uno más simple, de hecho Muy simple, que hiciese eso y que fuese fácil de entender y de incluir en los programas de ejemplo que estoy haciendo para youtube. El resultado es ResutTree.



El código lo he adjuntado al vídeo, por si a alguien le interesa.

Saludos]]> <![CDATA[¿Por qué no se disparan los eventos KeyPress o KeyRelease en Qt?]]> https://gambas-es.org/thread-1727.html Fri, 05 Jul 2024 19:27:40 +0000 Grandamakulo]]> https://gambas-es.org/thread-1727.html Mil gracias de antemano.


SOLUCIONADO al actualizar Linux Mint, por lo que obviamente no era cosa de Gambas3 Smile]]> Mil gracias de antemano.


SOLUCIONADO al actualizar Linux Mint, por lo que obviamente no era cosa de Gambas3 Smile]]> <![CDATA[Change password control]]> https://gambas-es.org/thread-1721.html Tue, 02 Jul 2024 13:43:07 +0000 tincho]]> https://gambas-es.org/thread-1721.html El control debería trabajar con un hash, es decir con una cadena de texto que no es la password pero que solo puede generarse indicando la password.
para ello viene perfecto el componente gb.crypt
Código:
Crypt.SHA512(sPasswd, sSecret)
]]> El control debería trabajar con un hash, es decir con una cadena de texto que no es la password pero que solo puede generarse indicando la password.
para ello viene perfecto el componente gb.crypt
Código:
Crypt.SHA512(sPasswd, sSecret)
]]>