Shordi 16-06-2025, 23:28
Pues no voy a entrar en las razones por las que te Boss decidió poner publicidad en el foro... pero lo que sí digo es que estoy se ha vuelto muy antipático de ver. Al final si sigue así acabaremos por no entrar tampoco al foro. 
Esto lleva tiempo parado sin mensajes nuevos y me pregunto cuánto de eso se debe a esta espantosa publicidad.


Saludos
Shordi 30-05-2025, 13:22
Aquí tenéis el sistema de ayudas de Nexo, simplificado y adaptado a sqlite.

guizans 28-05-2025, 09:17
Hola a todos.

Le he preguntado a Mistral que me diera un código en Gambas para poder acceder al calendario de una instancia de NextCloud y me ha soltado esto:

Código:
' Gambas class file
Public Sub Main()
    Dim sUrl As String
    Dim sUser As String
    Dim sPassword As String
    Dim sCalendar As String
    Dim hClient As HttpClient
    Dim sResponse As String

    ' Configuración
    sUrl = "https://tunexcloud.com/remote.php/dav/calendars/"
    sUser = "tu_usuario"
    sPassword = "tu_contraseña"
    sCalendar = "nombre_del_calendario"
    ' Crear cliente HTTP
    hClient = New HttpClient
    ' Configurar autenticación básica
    hClient.Username = sUser
    hClient.Password = sPassword
    ' Realizar solicitud GET
    Try sResponse = hClient.Get(sUrl & sUser & "/" & sCalendar & "/?export")
        ' Procesar la respuesta (aquí deberías parsear el contenido del calendario)
        Print sResponse
    Catch
        Print "Error al acceder al calendario"
    End
End
 
Veo el código muchas cosas mal, y no tengo ni idea de como se usa. ¿Alguien en la sala que me oriente?

Muchas gracias.

He avanzado un poco mirando el ejemplo desde la ayuda de Gambas y no tiene nada que ver con lo mostrado por la IA:

https://gambaswiki.org/wiki/comp/gb.net.curl/httpclient

y me ha quedado algo así:

Código:
Dim hClient as HttpClient
Dim sResponse as String

hClient = new HttpClient as "hClient"
hclient.URL= "dirección del calendario"
hClient.User = "usuario"
hClient.Password = "contraseña"
hClient.Auth = Net.AuthBasic
hClient.Async = False
hClient.Timeout = 60
hClient.Get()

Print "Begin"
if hClient.Status < 0 Then
  Print "ERROR"
Else
  If Lof(hClient) then sResponse = Read #hClient, Lof(hClient)
     print sReponse
EndIf

Esto aparentemente funciona pero el servidor me dice esto:

Cita:This is the WebDAV interface. It can only be accessed by WebDAV clients such as the Nextcloud desktop sync client

¿Quiere decir que no puedo acceder a mi calendario?

Un saludo.
Páginas (571):    1 13 14 15 16 17 571   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 308
Último miembro: Alejandro C
Temas del foro: 1,761
Mensajes del foro: 9,153
Últimos temas
Problema con el repósito ...
Foro: Instalación
Último mensaje por: guizans, 14-04-2026, 21:38
Respuestas: 2 - Vistas: 199
UEFI y BIOS
Foro: Hardware & IoT
Último mensaje por: guizans, 13-04-2026, 21:22
Respuestas: 3 - Vistas: 2,388
Visual Studio Code con Ga...
Foro: General
Último mensaje por: guizans, 07-03-2026, 14:24
Respuestas: 2 - Vistas: 598
WebForm con mysql gridvie...
Foro: WebApp/WebForms
Último mensaje por: vjarvelo, 03-03-2026, 16:32
Respuestas: 2 - Vistas: 3,269
Sobre la proteccion del c...
Foro: General
Último mensaje por: Shordi, 19-02-2026, 11:07
Respuestas: 7 - Vistas: 1,143
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.