下記コーディングを行ったWebページをVisualStudio2017でデバッグ実行を行っているのですが
Function AccessTheWebAsync内の文字列変数strに 結果を得ることができません。
(str = の行にブレークポイント貼るも、その行までたどり着かない)
出力ウィンドウに
「例外がスローされました: 'System.ArgumentOutOfRangeException' (System.Net.Http.dll の中)」
と表れており、これが問題なのかな?とも思うわけですが、どういった対策を施すことで状況が進展するのかご教示を頂けませんでしょうか?
正直申し上げ Await/Asyncの使い方が正しくないのか、JSONデータの取得方法に問題があるのかさえ分からない状況です。よろしくお願いします。
VB.NET
1'ボタンクリックイベント 2 3 Dim access_token As String = jsonObj("access_token") 4 Dim content = AccessTheWebAsync(access_token) 5 6End Sub 7 8 9Async Function AccessTheWebAsync(ByVal access_token As String) As Threading.Tasks.Task 10 Dim url = "https://webapi.XXXXXXX.co.jp/portal/user/get_by_id?id=" & txtUserID.Text 11 Dim str As String 12 Using client = New Http.HttpClient() 13 14 client.DefaultRequestHeaders.Add("XXX-Api-Access-Token", access_token) 15 client.Timeout = TimeSpan.FromSeconds(-1.0) 16 17 Dim dt As System.IO.Stream = Await client.GetStreamAsync(url) '★ブラウザに戻る★ 18 Dim sr0 As New System.IO.StreamReader(dt, System.Text.Encoding.UTF8) 19 str = sr0.ReadToEnd() 20 dt.Close() 21 22 End Using 23End Function
回答1件
あなたの回答
tips
プレビュー