私は間違っているとは思っていません。 GEOコードで住所を送信する機能があり、それが送信され、期待どおりに返ってきましたが、Directions APIによってプログラムがフリーズします。私はそれが外出するのを見ることができ、私はFiddlerで正しいリターンを見るので私は正しく提出されていますが、私のプログラムはロックアップし、.Queryを過ぎて続かないでしょう。GoogleMapsAPIを使用して経路を検索するとプログラムがフリーズする
ここではそれがRESP = GoogleMapsApi.GoogleMaps.Directions.Query(REQ)に立ち往生snipit
Public Sub _GetDirections(ByVal inAddr As String)
Dim req As New DirectionsRequest
Dim resp As New DirectionsResponse
req.Origin = "new york"
req.Destination = "florida"
req.TravelMode = TravelMode.Driving
req.DepartureTime = DateTime.Now
req.ApiKey = APIKEY
resp = GoogleMapsApi.GoogleMaps.Directions.Query(req)
Dim Route As Route = resp.Routes.First()
Dim Leg As Leg = Route.Legs.First()
For Each s As [Step] In Leg.Steps
Console.WriteLine(StripHTML(s.HtmlInstructions))
Dim localIcon = s.TransitDetails?.Lines?.Vehicle?.LocalIcon
If localIcon <> vbNull Then
Console.WriteLine("Local sign: " + localIcon)
End If
Next
End Sub
は、次のブレークポイントに移動したことがないが、シオマネキだからこの
4106
{
"geocoded_waypoints" : [
{
"geocoder_status" : "OK",
"place_id" : "ChIJOwg_06VPwokRYv534QaPC8g",
"types" : [ "locality", "political" ]
},
{
"geocoder_status" : "OK",
"place_id" : "ChIJvypWkWV2wYgR0E7HW9MTLvc",
"types" : [ "administrative_area_level_1", "political" ]
}
],
"routes" : [
{
"bounds" : {
"northeast" : {
"lat" : 40.7291471,
"lng" : -74.0062258
},
"southwest" : {
"lat" : 27.6490247,
"lng" : -81.6862869
}
},
"copyrights" : "Map data ©2017 Google, INEGI",
"legs" : [
{
"distance" : {
"text" : "1,153 mi",
"value" : 1855338
},
"duration" : {
"text" : "17 hours 7 mins",
"value" : 61628
},
"duration_in_traffic" : {
"text" : "17 hours 17 mins",
"value" : 62248
},
を見ていますなぜ結果が実際にプログラムに戻っていないのか分かりません...私はおそらく何か愚かなことをしていると確信しています。
大丈夫ですので、Windowsフォームアプリケーションで使用しようとするとフリーズするだけです。私は新しいモジュールアプリケーションを作成し、それはうまく動作し、私はそれに何も他の新しいWindowsフォームアプリケーションを作成し、それはフリーズします。 –