Cum folosesc httputils ca sa obtin un fisier JSON de la Google ?

laviniut

Active Member
Licensed User
Longtime User
Vad ca nu prea avem activitate pe forum noi romanii. Asa ca, hai sa va intreb, stie cineva oare cum folosesc httputils ca sa obtin un fisier JSON de la Google ? mai exact as vrea sa obtine informatii pentru o aplicatie de navigatie si trebuie sa obtin pentru o anumita destinatie, directia de urmat, distanta pana la destinatie, timpul, etc, date oferite de Google (https://developers.google.com/maps/documentation/directions/).

mai exact, cu ajutorul lui DonManfred, am primit exemplu de extragere a informatiilor din fisierul JSON dar intrebarea mea este cum sa fac cererea pentru a obtine fisierul (cu httputils2service). adresele de la care pot obtine fisierul json sunt de genul: http://maps.googleapis.com/maps/api...sring 21, 52076 Aachen, Germanyl&sensor=false sau http://maps.googleapis.com/maps/api/distancematrix/json?origins=Am Steinberg 99, 52353 Düren, Germany&destinations=Hochhausring+21,+52076+Aachen&mode=bicycling&language=fr-FR&sensor=false

ma poate ajuta cineva ?
 

hookshy

Well-Known Member
Licensed User
Longtime User
Asta este codul pe care il folosesc pentru extrage cursul valutar , aceeasi procedura o folosesc si in cazul documentelor json
pentru care ai nevoice de xml parser


B4X:
Sub myjob

Dim job_bnr As HttpJob
    job_bnr.Initialize("job_bnr", Me)   
    jobs="http://www.bnr.ro/nbrfxrates.xml"
    job_bnr.Download(jobs)   
   
End Sub
Sub JobDone (Job As HttpJob)
    Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
    If Job.Success = True Then
       
       
        Select Job.JobName
   
            Case "job_bnr"
                If Job.GetString.Contains("rror") Then
                    ToastMessageShow("Ceva nu a mers bine!"),True)
                Else
   
                    parse_bnr(Job.GetString)
               
                End If
                   
       
        End Select
    Else
   
        Log("Error: " & Job.ErrorMessage)
        ToastMessageShow("Err !" & Job.ErrorMessage, True)
    End If
    Job.Release
End Sub
 
Top