با عرض سلام خدمت تمام دوستان عریر من در یکی از اپ هام از کتابخانه جی کدر geocoder ([جستجوی یک آدرس بر اساس نام یا موقعیت اعشاری در sdk گوگل) استفاده کردم که این کتابخانه رو از سایت b4a دانلود کردم ومشکلی نداشت تا اینکه چند وقت پیش که دیگه کار نمیکنه وبا جستجو کردن فهمیدم که مشکل در api گوگل خود کتابخانه است که سازندشم متاسفانه انگاری یادش رفته چه api بوده که ریستش کنه و در سایت این کد و جایگزین دادن ومن بعد از گرفتن api جدید و گذاشتن اون در کد متاسفانه جواب نگرفتم و job ساکسس نمیشه ودر لاگ error نمایان میشه
اینو هم بگم که از طریق کروم درخواست دادم و جواب گرفتم ولی تو بیسیک نه
Sub btnGetLatLong_Click
Wait For(PlaceToLatLon(txtAddress.Text.trim)) Complete (ll() As Double)
If ll(0) <> 9999 Then
Msgbox("Location: " & ll(0) & ", " & ll(1),"")
Else
Msgbox("","Failed to geocode.")
End If
End Sub
Sub PlaceToLatLon(Place As String) As ResumableSub
Dim res() As Double = Array As Double(9999, 9999)
Dim j As HttpJob
j.Initialize("", Me)
j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("key","my api", "address", Place))
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Dim jp As JSONParser
jp.Initialize(j.GetString)
Dim m As Map = jp.NextObject
If m.Get("status") = "OK" Then
Dim results As List = m.Get("results")
If results.Size > 0 Then
Dim first As Map = results.Get(0)
Dim geometry As Map = first.Get("geometry")
Dim location As Map = geometry.Get("location")
res(0) = location.Get("lat")
res(1) = location.Get("lng")
End If
End If
Else
Log("Error!")
End If
j.Release
Return res
End Sub
سوال
Ahmadusb 5
با عرض سلام خدمت تمام دوستان عریر من در یکی از اپ هام از کتابخانه جی کدر geocoder ([جستجوی یک آدرس بر اساس نام یا موقعیت اعشاری در sdk گوگل) استفاده کردم که این کتابخانه رو از سایت b4a دانلود کردم ومشکلی نداشت تا اینکه چند وقت پیش که دیگه کار نمیکنه وبا جستجو کردن فهمیدم که مشکل در api گوگل خود کتابخانه است که سازندشم متاسفانه انگاری یادش رفته چه api بوده که ریستش کنه و در سایت این کد و جایگزین دادن ومن بعد از گرفتن api جدید و گذاشتن اون در کد متاسفانه جواب نگرفتم و job ساکسس نمیشه ودر لاگ error نمایان میشه
اینو هم بگم که از طریق کروم درخواست دادم و جواب گرفتم ولی تو بیسیک نه
Sub btnGetLatLong_Click Wait For(PlaceToLatLon(txtAddress.Text.trim)) Complete (ll() As Double) If ll(0) <> 9999 Then Msgbox("Location: " & ll(0) & ", " & ll(1),"") Else Msgbox("","Failed to geocode.") End If End Sub Sub PlaceToLatLon(Place As String) As ResumableSub Dim res() As Double = Array As Double(9999, 9999) Dim j As HttpJob j.Initialize("", Me) j.Download2("https://maps.googleapis.com/maps/api/geocode/json", Array As String("key","my api", "address", Place)) Wait For (j) JobDone(j As HttpJob) If j.Success Then Dim jp As JSONParser jp.Initialize(j.GetString) Dim m As Map = jp.NextObject If m.Get("status") = "OK" Then Dim results As List = m.Get("results") If results.Size > 0 Then Dim first As Map = results.Get(0) Dim geometry As Map = first.Get("geometry") Dim location As Map = geometry.Get("location") res(0) = location.Get("lat") res(1) = location.Get("lng") End If End If Else Log("Error!") End If j.Release Return res End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.