V

B.netで、

PUTを行う方法。

意外と書いてあるサイトが少なかったので、

備忘録として残します。

POSTの時とやり方は、同じです。

PUTの方法

こんな感じで、出来ます。

ステータスコードの取得などは、

webRequestでは取得できません。

その為、HttpWebRequestにキャストしてます。

※大分間違っていた為、修正！

'POST送信する値を設定
Dim postData As String = ＠送りたいデータ
'バイト型配列に変換
Dim postDataBytes As Byte() = _
    System.Text.Encoding.ASCII.GetBytes(postData)

'HttpWebRequestの作成
'CastしないとStatusCodeとかが取得できない。間違ってるかも
Dim req As System.Net.HttpWebRequest = _
    DirecrCastt(System.net.HttpWebRequest.Create("＠PUTしたいURL"),System.Net.HttpWebRequest)
'メソッドにPUTを指定
req.Method = "PUT"
'ContentTypeを設定
req.ContentType = "application/x-www-form-urlencoded"
'POST送信するデータの長さを指定
req.ContentLength = postDataBytes.Length

'データをPUT送信するためのStreamを取得
Dim reqStream As System.IO.Stream = req.GetRequestStream()
'送信するデータを書き込む。
reqStream.Write(postDataBytes, 0, postDataBytes.Length)
reqStream.Close()

'サーバーからの応答を受信するためのWebResponseを取得
Dim res As System.Net.HttpWebResponse = DirectCast(req.GetResponse(),System.Net.HttpWebResponse)
'ステータスコード取得
res.StatusCode
'応答データを受信するためのStreamを取得。レスポンスの値を取得できる。
Dim resStream As System.IO.Stream = res.GetResponseStream()
'受信して表示
Dim sr As New System.IO.StreamReader(resStream)
Console.WriteLine(sr.ReadToEnd())

'閉じる
sr.Close()

エラー処理

こんな感じだったと思います。

catch ex As WebException

'サーバーからの応答を受信するためのWebResponseを取得
Dim errorRes As System.Net.HttpWebResponse = DirectCast(ex.GetResponse,System.Net.HttpWebRespone)
'中身の表示は、上のStreamを使ったのと同じ要領です！

memo, vb.net, プログラミング