Comunidad Gambas-es

Shordi 24-09-2021, 21:38

No tengo muy claro si esto es un tutorial o una demo... pero bueno, aquí tenéis el vídeo sobre el programa CCP del proyecto intriga. Es el responsable de conectar con la VPN y configurar los menús y unidades compartidas del usuario.

Espero que os guste

Saludos

Videotutoriales Respuestas 2

Proyecto Intriga: CCP Conexión con la VPN y configuración de cliente

Shordi 24-09-2021, 21:33

Acabo de subir a gitlab el programa CCP, que es el encargado de conectar tu máquina con el servidor VPN y gestionar los accesos a las unidades compartidas y menús que tengas derecho.

Lo llamé CCP porque yo ya tenía un puñado de aplicaciones corriendo en la empresa y cada una utilizaba sus propias bases de datos de usuarios, permisos, etc. Con este programa (bueno, con uno muy parecido llamado igual) unifiqué y controlé todo de manera centralizada y eso me recordó al programa malvado de la peli de Tron: El Control Central de Procesos... y no me pude resistir.

Si os lo descargáis, en principio y salvo malvado error traidor, sólo tenéis que ejecutarlo y ponerle como usuario "usuario" y como clave "usuario22" y ya está.
Veréis que no va demasiado rápido, pero os recuerdo que el servidor es poco más que una Raspberry Pi, 1gb de ram y 1 de ancho de banda, creo recordar, lo que no ocurriría en un entorno real de trabajo.

Hay mucho que discutir y que plantear: El tema de qué nivel de control se establece en las máquinas, La confección de software que enlace y facilite todo esto que estamos viendo en el foro y los vídeos (sueño con un programa instalador/configurador para servidores y otro para clientes), y muchos detalles que ahora mismo no recuerdo, pero lo que hoy presento puede ser una base para la discusión real con los que estéis interesados.

Lo podéis encontrar en https://gitlab.com/shordi/ccp.

También he hecho un video-demo del asunto. Lo tenéis en

Espero que os guste.

Saludos

Se me olvidaba, si alguno quiere cotillear la BD vía phpmyadmin podéis hacerlo en http://3.15.30.125/phpmyadmin/index.php con el usuario "usuario" y la clave os la doy en un privado, que me da yuyu ponerla aquí en abierto.

Saludos

Aplicaciones/Fragmentos de Código Respuestas 4

Como cargar SVG por código en los controles

tincho 24-09-2021, 00:26

Hola amigos.
Les presento un método que uso bastante seguido en mis programas ya que ademas de la excelente calidad gráfica que se logra, evita el molesto problema de las imágenes "negativas"
Como cargar los archivos

Código:
  For Each oCont In [pTools]

    For Each o In oCont.Children

      If Object.Type(o) = "ToolButton" Then

        z = (o.h - 8)

        sPic = "./svg" &/ o.Tag & ".svg"

        If Exist(sPic) Then

          svg = dsk.Contrary(sPic, "#0066b3")

          pic = Image.FromString(svg).Stretch(z, z).Picture

          o.Picture = pic

        Endif

      Endif

    Next

  Next

Como cambiar el color antes de aplicarlos

Código:
'' Replace a color in an svg file with one that contrasts with the background of the desktop theme

Public Function Contrary(sFile As String, sColor As String) As String

  Dim svg As String

  If Application.DarkTheme Then

    svg = Replace(File.Load(sFile), sColor & ";", "#eeeeee;")

  Else

    svg = Replace(File.Load(sFile), sColor & ";", "#000000;")

  Endif

  Return svg

End

Saludos.

Aplicaciones/Fragmentos de Código Respuestas 2