|
Página 2 de 2
|
| Autor |
Mensaje |
 Grandamakulo 
Analista Programador
Registrado: Enero 2016
Mensajes: 311
Edad: 55 Ubicación:  En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...
|
 Re: API AEMET
Jajaja, Tincho, algo parecido, aunque soy yo de más blancogás que de cañas o birras. En realidad, es para los amigos de la Asociación Daimieleña de Astronomía. Pero, venga, ¡unas cañas para todos!
Por cierto, que he probado:
Orden = "-X GET --header 'Accept: application/json' --header 'api_key: eyJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJjYWxlbmRhcmlvQGFzdHJvZGFpbWllbC5lcyIsImp0aSI6ImFjYjgyZWI1LTViNjgtNDdiZi05MjMzLTUxYjdmYTZjYmYzYSIsImlzcyI6IkFFTUVUIiwiaWF0IjoxNTIwOTY0ODQ1LCJ1c2VySWQiOiJhY2I4MmViNS01YjY4LTQ3YmYtOTIzMy01MWI3ZmE2Y2JmM2EiLCJyb2xlIjoiIn0.yTXK95LZ8Z0jxBx6ddM0lzZUYBBKPtzN56G6ENrPIgA' 'https://opendata.aemet.es/opendata/api/mapasygraficos/analisis' --insecure"
Debug Orden
Exec ["curl", Orden] To Salida
Debug Salida
Y nada de nada. Sigo en la brecha, a ver qué se me ocurre.
|
#11 Miercoles, 14 Marzo 2018, 22:29 |
|
 |
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación: 
|
Re: API AEMET
Tomando tu código y cambiando algunas cosas...
descarga la imagen del clima deseada.
Nota: en mi sistema tengo como visor de imagenes xviewer si usas otro cambia el código acorde a tu sistema. También puedes usar Desktop.Open pero como hice un programa de terminal no lo use.
Public Sub Main()
Dim strCommand As String
Dim strInfo As String
Dim strLink As String
Dim stx As New String[]
Dim int As Integer
Dim strVal As String
Dim strTag As String
Dim stxTag As New String[]
Dim stxVal As New String[]
Dim intKey As Integer
Dim intKeyState As Integer
Dim intKeyData As Integer
Dim strDownload As String
strCommand = "curl -X GET --header 'Accept: application/json' --header 'api_key: eyJhbGciOiJIUzI1NiJ9.eyJzdWIiOiJjYWxlbmRhcmlvQGFzdHJvZGFpbWllbC5lcyIsImp0aSI6ImFjYjgyZWI1LTViNjgtNDdiZi05MjMzLTUxYjdmYTZjYmYzYSIsImlzcyI6IkFFTUVUIiwiaWF0IjoxNTIwOTY0ODQ1LCJ1c2VySWQiOiJhY2I4MmViNS01YjY4LTQ3YmYtOTIzMy01MWI3ZmE2Y2JmM2EiLCJyb2xlIjoiIn0.yTXK95LZ8Z0jxBx6ddM0lzZUYBBKPtzN56G6ENrPIgA' 'https://opendata.aemet.es/opendata/api/mapasygraficos/analisis' --insecure"
strCommand &= " 2>&1"
Shell strCommand To strInfo
strInfo = Replace(strInfo, " : ", "\t")
strInfo = Replace(strInfo, "\"", "")
strInfo = Replace(strInfo, " ", "")
strInfo = Replace(strInfo, ",", "")
If Exist("/tmp/image.gif") = True Then
Try Kill "/tmp/image.gif"
Endif
stx = Split(strInfo, "\n")
For int = 0 To stx.Max
If InStr(stx[int], "\t") > 0 Then
strTag = Split(stx[int], "\t")[0]
strVal = Split(stx[int], "\t")[1]
stxTag.Add(strTag)
stxVal.Add(strVal)
Endif
Next
intKeyState = stxTag.Find("descripcion")
If intKeyState > -1 Then
If InStr(stxVal[intKey], "exito") > 0 Then
intKeyData = stxTag.Find("datos")
If intKeyData > -1 Then
strDownload = "wget " & stxVal[intKeyData] & " --output-document=" & "/tmp/image.gif"
Shell strDownload
Wait 1
Shell "xviewer /tmp/image.gif"
Endif
Endif
Endif
End
Saludos.
|
#12 Jueves, 15 Marzo 2018, 11:10 |
|
|
Grandamakulo
Analista Programador
Registrado: Enero 2016
Mensajes: 311
Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...
|
Re: API AEMET
¡Gracias, Tincho! 
Voy a probarlo y comento.
|
#13 Viernes, 16 Marzo 2018, 08:58 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Re: API AEMET
¡Gracias, Tincho!
Voy a probarlo y comento.
Muy bien.
Por cierto se puede consultar la temperatura de un lugar en particular o las lluvias o las estadisticas de heladas etc.??
Saludos.
|
#14 Viernes, 16 Marzo 2018, 14:52 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 50 Ubicación: dos hermanas, sevilla
|
Re: API AEMET
Tincho
Citar: Por cierto se puede consultar la temperatura de un lugar en particular o las lluvias o las estadisticas de heladas etc.??
Si, mirate esto:
https://opendata.aemet.es/dist/inde...-climatologicos
|
#15 Viernes, 16 Marzo 2018, 20:59 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Re: API AEMET
Ok, interesante. le veo muchas aplicaciones a esto.
Saludos.
|
#16 Viernes, 16 Marzo 2018, 22:57 |
|
|
jsbsan
Analista Programador
Registrado: Septiembre 2009
Mensajes: 4175
Edad: 50 Ubicación: dos hermanas, sevilla
|
Re: API AEMET
Bueno, aplicando un pequeño añadido al código de Tincho, se puede hacer que la imagen descargada se vea en un formulario.
Lo podeis ver en este enlace:
http://jsbsan.blogspot.com.es/2018/...raer-datos.html
|
#17 Domingo, 18 Marzo 2018, 20:17 |
|
|
tincho
Analista Programador
Registrado: Noviembre 2014
Mensajes: 2565
Edad: 48 Ubicación:
|
Re: API AEMET
Bueno, aplicando un pequeño añadido al código de Tincho, se puede hacer que la imagen descargada se vea en un formulario.
Muy bueno, así es mas cómodo ver el mapa.
Saludos.
|
#18 Lunes, 19 Marzo 2018, 17:48 |
|
|
Grandamakulo
Analista Programador
Registrado: Enero 2016
Mensajes: 311
Edad: 55 Ubicación: En un lugar de La Mancha de cuyo nombre me acuerdo perfectamente...
|
Re: API AEMET
Probados ambos códigos, funcionan perfectamente: ¡sois unos hachas!
Muchas gracias a ambos, tincho y jsban, por vuestra ayuda.
Queda aún pendiente, empleando myhttp en lugar de un Exec o un Shell, el formato de las cabeceras en:
myhttp.Get(Cabeceras, "/tmp/Pru.txt")
Pero eso es ya otra historia.
|
#19 Jueves, 22 Marzo 2018, 21:52 |
|
|
|
|
 Temas parecidos
 Temas parecidos
|
|
Página 2 de 2
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario
|
|
|
|
|
