VB.net DLLのメモリリークについて (ID:143368)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 何度もご指導ありがとうございます。 >(1) COM 化することなく、単に Ping.SendAsync を繰り返した場合 DLLではなく.netアプリとして行うということでしょうか？ それであればメモリリークするようです >(2) 何もしない DLL を作り、それをVB6から繰り返し呼び出した場合 メモリリークはありませんでした。 >(3) Ping クラスを生成するだけで、SendAsnyc を呼ばなかった場合 メモリリークはありませんでした。 >(4) WM_USER_PING メッセージ交換のみで Ping を実行しない DLL とした場合 メモリリークはありませんでした。 >作成された DLL は イベントを公開していないようなので、 これの意味がわかりませんでした。 公開とはどのようなことですか？ なにか公開するとメリットがあったり・公開すると別の対策や方法が生まれてくるという方法があるのでしょうか？ >PingCompleted イベントを抜けた後のタイミング ということなのでDLL側は下記の通りしてみました。 ****当初のソース内Ping関数一部抜粋***** ＜★前半省略★＞ 'Pingで送信する32バイトのデータを作成 Dim bs As Byte() = System.Text.Encoding.ASCII.GetBytes(New String("A"c, 32)) 'タイムアウトを10秒 mainPing.SendAsync(add, 10000, bs, opts, Nothing) opts = Nothing bs = Nothing Return True End Get End Property Private Sub Ping_PingCompleted(ByVal sender As Object, _ ByVal e As System.Net.NetworkInformation.PingCompletedEventArgs) Dim Ret As Integer If e.Cancelled Then Ret = PostMessageStr(Val_hd, WM_USER_PING, 1, 2) ElseIf Not (e.Error Is Nothing) Then Ret = PostMessageStr(Val_hd, WM_USER_PING, 1, 1) Else '結果を取得 If e.Reply.Status = System.Net.NetworkInformation.IPStatus.Success Then Ret = PostMessageStr(Val_hd, WM_USER_PING, 1, 7) Else Ret = PostMessageStr(Val_hd, WM_USER_PING, 1, 3) End If End If DirectCast(mainPing, System.IDisposable).Dispose() ←★追加しました End Sub VB6側をもっとシンプルに Private Sub Timer1_Timer() On Error GoTo Err_Proc Dim obj As Netchk.Netchk Dim ret As Long Set obj = New Netchk.Netchk ret = obj.ping("192.168.0.1", Me.hWnd) Err_Proc: End Sub のみのシンプルなフォームを作り試験をしてみました。(postmassege受信処理は作っていません) VB6側、DLL側いかがでしょうか？ DirectCastのおかげか80kのメモリ浪費はなくなりました。落ちることもないのでその件はまた別の問題にようでした。 いまこのシンプルな試験フォームではタイマーイベント毎に8k増加しつづけているようです。 これが普通のことなのかどうかもわかりませんし時間が経過していないためどこかで上限以上消費しないのか無尽蔵に消費するのかはまだわかりません。 あとはVB2010にすると解消する等のことも考えられますか？