Comunidad Gambas-es

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.

General Respuestas 4

Reorganizando el Nexo

Shordi 25-05-2025, 10:42

He realizado que la caótica forma en la que subo los vídeos relativos al proyecto Nexo, es un inconveniente casi insalvable para aquél que esté interesado... (Si es que alguna vez alguien lo llega a estar). En busca de la claridad que le falta, he renumerado todos los videos relativos al tema en una especie de... curso no, desde luego, digamos "lista de cosas que tienes que saber si algún día administrador quieres ser".

Ahora que ¡Por fin! el proyecto comienza a tomar forma, creo que empieza a valer la pena acercarse a él. En fin, ya lo conocéis y, seguro, que estáis aburridos del tema, no os cuento más. Aquí tenéis el enlace de la lista completa de vídeos que, de momento lo componen:
https://www.youtube.com/playlist?list=PL...vX5iaJZ1ar

Decir también que he añadido subtítulos en inglés a todos los vídeos... eso sí, traducidos automáticamente por Youtube a partir de la transcripción automática que ha hecho el propio Youtube... o sea que pobres anglófonos que se acerquen a ellos Big Grin

.

Saludos

Videotutoriales Sin respuestas

¿ Qué os parece desarrollar para Android ?

Shell 23-05-2025, 11:36

Buenas!.

¿ Qué os parece desarrollar aplicaciones para móviles ?.
Pequeños juegos por ejemplo.

¿ Alguien se ha dedicado o lo ha conocido ?.

¿ Qué opinión os merece Play Store ?. Rolleyes