Spanish API para mostrar estadísticas deportivas

emvpic

Member
Licensed User
Longtime User
Hola, estoy buscando como empezar a hacer una aplicación para mostrar estadísticas, resultados... de partidos de diferentes deportes.
No he encontrado nada claro para B4A, y estoy interesado en este lenguaje ya que me siento más cómodo que en otros.
Un pequeño ejemplo me podría ayudar mucho.
 

Duque

Active Member
Licensed User
Longtime User
Cual es el api ?
Su api le proporciona sdk java ?
Su api le proporciona protocolo http ?
....
 

emvpic

Member
Licensed User
Longtime User
el api es https://api.besoccer.com/
No puedo responder, lo desconozco.
Prácticamente empiezo desde cero en este tema de resultados deportivos.
Por eso necesito saber de un ejemplo para B4A para saber como usar esta API
 

josejad

Expert
Licensed User
Longtime User
Por eso necesito saber de un ejemplo para B4A para saber como usar esta AP
Hola:

Para esa específicamente no hay ejemplos, tendrías que empezar con alguno genérico

 

emvpic

Member
Licensed User
Longtime User
Donde puedo encontrar ejemplos para alguno genérico?
Tienes código para mostrar de la App??, se ve muy interesante, y para mi es muy útil saber como sacar esos datos
 

josejad

Expert
Licensed User
Longtime User
Ups, perdón, contesté e el móvil y creí que en ese ejemplo iba el código fuente.
Si no me equivoco, este de Peter Simpson hace llamadas a API para la población

 

Duque

Active Member
Licensed User
Longtime User
Según la documentación DOCUMENTACION
Puedes empezar así:

B4X:
Sub Button1_Click
Dim besoccerapps As String
Dim APIKEY As String 'Aquí el dato que te da tu cuenta besoccerapps
besoccerapps = $"https://apiclient.besoccerapps.com/scripts/api/api.php?key=${APIKEY}&tz=Europe/Madrid&format=json&req=league_status&id=1&year=2023"$  
Dim url As String = besoccerapps
Dim http As HttpJob
http.Initialize("http", Me)
http.PostString(url,"")
Wait For (http) JobDone(post As HttpJob)
Log(post.Success)
Log(post.GetString)
End Sub

Eso me retorna:
Need Api Key

Porque obviamente no tengo dicha cuenta ni la APIKEY, solo entre a verificar un poco para darte algo de LUZ
Estoy suponiendo que ya tienes una cuenta y que de alguna manera ya tienes la clave(APIKEY), con eso y leyendo un poco la documentación, seguramente logrará parametrizar la url y obtener los datos que necesitas.
 
Last edited:

emvpic

Member
Licensed User
Longtime User
Muchas gracias, ya puedo empezar a hacer pruebas.
Necesito saber como mostrar resultados de partidos en vivo, goles, faltas, corners, todos los datos que pueda recoger.
De momento no se como, pero ya voy a hacer pruebas.
 

emvpic

Member
Licensed User
Longtime User
Pongo un pequeño ejemplo de una petición de datos a la API de bessocerapps
Es una petición de los partidos que se juegan en este día y los partidos que se jugarán en España
Obtengo una cadena de datos, separo los datos que necesito y los muestro.


B4X:
Private Sub Button1_Click
 
    Dim besoccerapps As String
    Dim APIKEY As String 'Aquí el dato que te da tu cuenta besoccerapps
    APIKEY= ""
    'Devuelve los partidos que se juegan en el presente dia '
    besoccerapps = $"https://apiclient.besoccerapps.com/scripts/api/api.php?key=${APIKEY}&format=json&req=matchsday"$
    Dim url As String = besoccerapps
    Dim http As HttpJob
    http.Initialize("http", Me)
    http.PostString(url,"")
    Wait For (http) JobDone(post As HttpJob)
    Log(post.Success)
    Log(post.GetString)
    Dim matches As String
    Dim today As Short
    Dim spain As Short
    Dim m As Map
    Dim texto As String 'aqui se guardan los datos devueltos por la API'
    texto=post.GetString
    Dim json As JSONParser
    json.Initialize(texto)
    m = json.NextObject
    matches = m.Get("matches")
     m=m.Get("summary")
    today=m.Get("today") 'extraemos el valor de today
    spain=m.Get("spain") 'extraemos el valor de spain
    Log("today:  "& today & CRLF)' en el caso del presente dia devuelve 158'
    Log("Spain:  "& spain & CRLF)' y en España se juegan 9 partidos'
 
 
End Sub
 
Last edited:
Top