【Visual Basic】Web APIからの情報の取得方法（HTTP通信）

2014-02-03 (月) 23:05　ウェブプログラミング　

Visual BasicでのWeb APIからの情報の取得方法についてです。

次のようにします。（なお、この例ではNHK番組表APIのＮｏｗＯｎＡｉｒＡＰＩ（Ｖｅｒ．１）を使っています。お使いになるAPIの方法を当てはめてください。）

日本の全エンジニアに捧ぐ！現在公開されているAPI一覧【2013年版】 | Find Job ! Startup

Importsの部分


Imports System.IO
Imports System.Net
Imports System.Text

中身の部分


Public Sub Run()

    '取得したAPIのKey（※注１）
    Dim APIKey As String = "xxxxxxxxxx"

    '各APIに応じた設定（※注２）
    Dim strArea As String = "130"
    Dim strService As String = "g1"
    Dim strDate As String = "2014-02-03"


    'APIの呼び出し（※注３）
    Dim TargetURL As String
    TargetURL = "http://api.nhk.or.jp/v1/pg/list/" & strArea & "/" & strService & "/" & strDate & ".json?key=" & APIKey

    Console.WriteLine("サーバーと通信中。")


    '-------ここからはAPI通信のお約束部分-------
    '指定されたURLへのHTTP通信を生成して呼び出す
    Dim WReq As HttpWebRequest = HttpWebRequest.Create(TargetURL)

    'サーバーからのレスポンスを受け取る
    Dim WRes As HttpWebResponse = WReq.GetResponse()

    'レスポンス・ボディの取得と表示
    'レスポンスのストリームを取得する
    Dim GRS As Stream = WRes.GetResponseStream()

    'レスポンスを読み取る器を用意して
    Dim STR As StreamReader = New StreamReader(GRS)

    '最後までレスポンスを読み込む
    Dim ResHTML As String = STR.ReadToEnd()

    'リソース解放
    GRS.Close()
    STR.Close()
    WRes.Close()
    '-------お約束部分ここまで------------------

    '結果をコンソールに表示する（※注４）
    Console.WriteLine(ResHTML)

End Sub