VB.netのWebRequestでメモリが解放されない

Question

可能でしたら教えていただきたいのですが、、、
VB.netで以下のようなコードを作ってます。

---

Imports System.Net
Imports System.IO
Imports System.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'リクエストパラメータのセット
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim url As String = "****"

Dim req As WebRequest = WebRequest.Create(url)
req.Method = "POST"

Dim res As WebResponse = req.GetResponse()
Dim reader As New XmlTextReader(res.GetResponseStream)

req.Abort()
reader.Close()
res.Close()

End Sub
End Class

これを連続で打ち続けます。
しかし、メモリが溜まっていく一方で解放されません。。。

GC.Collect　を使わずにメモリを解放する方法はありますでしょうか？

Comments

[退会済みユーザー]

わんくま同盟の掲示板にマルチポストしてませんか？

Answer 1

質問者さんのコードがそのまま動かせないので、下記コードにて実験しました

Imports System.Net
Imports System.IO
Imports System.Xml

Public Class Form1

    Dim NowMemory, MaxMemoey As Long
    Dim Count, MaxCount As Long
    Dim ViewText As String

    Private Async Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim timer1 As New Timer With {.Interval = 100, .Enabled = True}
        AddHandler timer1.Tick, Sub()
                                    Me.Text = ViewText
                                End Sub
        Await Task.Run(Sub()
                           While True
                               TestProc()

                               NowMemory = Environment.WorkingSet
                               Count += 1
                               If MaxMemoey < NowMemory Then
                                   MaxCount = Count
                                   MaxMemoey = NowMemory
                               End If
                               ViewText = $"{Count}回目  使用メモリ = {NowMemory:N0}byte / 最大 {MaxCount}回目　{MaxMemoey:N0}byte"
                           End While
                       End Sub)

    End Sub

    Private Sub TestProc()
        Dim request As WebRequest = WebRequest.Create("http://www.contoso.com/PostAccepter.aspx ")
        request.Method = "POST"
        Dim postData As String = "This is a test that posts this string to a Web server."
        Dim byteArray As Byte() = System.Text.Encoding.UTF8.GetBytes(postData)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        Using dataStream As Stream = request.GetRequestStream()
            dataStream.Write(byteArray, 0, byteArray.Length)
            dataStream.Close()
        End Using

        ' Get the response.  
        Using response As WebResponse = request.GetResponse()
            Using dataStream = response.GetResponseStream()
                Using reader As New XmlTextReader(dataStream)
                    '処理

                End Using
            End Using
        End Using

    End Sub

End Class

結果、起動当初からしばらくメモリは増え続けましたが、ある程度で増加はストップし、増加し続けるという現象は確認できませんでした。

また、質問者さんのようなレスポンスの取得コードにて実行してみましたが、変化は見られませんでした。

Comments

[firstlast]

私もVisual Studioのメモリプロファイラーを使って、GC.Collectを実行しない場合とした場合を比べてみましたが、違いは感じられませんでした。

Answer 2

解放されないオブジェクトのDisposeメソッドを実行するのはどうでしょうか？

Comments

[YuzuruMorimoto]

Imports System.Net
Imports System.IO
Imports System.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'リクエストパラメータのセット
Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding("UTF-8")
Dim url As String = "****"

Dim req As WebRequest = WebRequest.Create(url)
req.Method = "POST"

Dim res As WebResponse = req.GetResponse()
Dim reader As New XmlTextReader(res.GetResponseStream)

res.GetResponseStream.Close()
res.GetResponseStream.Dispose()
res.Close()
res.Dispose()
res = Nothing
req.GetResponse.Close()
req.GetResponse.Dispose()
req = Nothing
req = Nothing
reader.Close()
reader.Dispose()
reader = Nothing

End Sub

というように全て入れても解放されません。。。
なにか見落としているのでしょうか？