COMの亡霊を葬る：VB.NETにおける厳格なCOMライフサイクル管理の極意
多くのシニアエンジニアが、かつて一度は「タスクマネージャーに居座るExcelやWordのプロセス」という亡霊に悩まされた経験があるだろう。VB.NETからレガシーなCOMコンポーネントを叩く際、GC（ガベージコレクタ）にすべてを委ねるという思考は、エンタープライズ開発においては「怠慢」以外の何物でもない。
COMの参照カウントは、.NETのガベージコレクションとは全く別次元の概念で動いている。今回は、リソースリークを根絶し、システムを極限まで安定させるための「COM解放の作法」を伝授する。
—
1. なぜ「GC.Collect()」だけでは不十分なのか
多くの初学者は、`GC.Collect()`を呼び出せばすべてが解決すると信じている。しかし、それは大きな誤解だ。`GC.Collect()`はマネージヒープを整理するだけであり、COMの参照カウント（RCW: Runtime Callable Wrapper）を即座にデクリメントする保証はない。
COMオブジェクトは、「最後の一つまで明示的に参照を断ち切る」という意志を持って扱わなければ、プロセスはゾンビ化する。
2. 禁忌：二重解放と「.」の連結
COM操作において、以下のような書き方は即座に禁止すべきだ。
‘ 悪い例: 参照を保持せずに連鎖的にアクセスしている
objExcel.Workbooks.Open(“path”).Worksheets(1).Cells(1, 1).Value = “Test”
このコードでは、`Workbooks`、`Worksheets`、`Cells`がそれぞれ暗黙的にRCWを作成する。しかし、変数に格納されていないため、これらは開発者が解放する術を持たない。GC任せの「運任せのメモリ管理」がここに完成する。
—
3. 実践：鋼鉄のライフサイクル管理パターン
COMオブジェクトを扱う際は、「生成した順序と逆順で、かつ例外が発生しても必ず解放する」という原則を徹底する。
推奨される実装テンプレート
Imports System.Runtime.InteropServices
Public Sub ExecuteLegacyComponent()
Dim app As Object = Nothing
Dim docs As Object = Nothing
Dim doc As Object = Nothing
Try
app = Activator.CreateInstance(Type.GetTypeFromProgID(“YourLegacy.Component”))
docs = app.Documents
doc = docs.Open(“C:\Target.file”)
‘ ここで業務処理を記述
doc.Process()
Catch ex As Exception
‘ ログ出力等の例外処理
Logger.Error(ex)
Finally
‘ 逆順での厳格な解放
‘ Marshal.ReleaseComObject は参照カウントを1減らす
If doc IsNot Nothing Then Marshal.FinalReleaseComObject(doc)
If docs IsNot Nothing Then Marshal.FinalReleaseComObject(docs)
If app IsNot Nothing Then Marshal.FinalReleaseComObject(app)
‘ 参照を明示的にクリア
doc = Nothing
docs = Nothing
app = Nothing
End Try
End Sub
なぜ `FinalReleaseComObject` なのか
`ReleaseComObject` は現在のスレッドからの参照カウントを1減らすだけだが、`FinalReleaseComObject` はそのRCWに対する参照カウントを強制的にゼロにする。レガシーなCOMサーバーが内部で複雑なマルチスレッド参照を持っている場合、`Final`を叩き込むことで、強引にプロセスを終了させるトリガーとなる。
—
4. ゾンビプロセスを狩る：Windows APIの活用
どれほど注意深く書いても、COMコンポーネント側にバグがある場合や、異常終了時にプロセスが残ることがある。その場合は、`Process.Id` を取得し、最終手段としてAPIで仕留める。
‘ プロセスIDを特定して強制終了する例
Dim proc As Process = Process.GetProcessById(targetProcessId)
If proc IsNot Nothing Then
proc.Kill()
proc.WaitForExit()
proc.Dispose()
End If
—
5. シニアエンジニアへの提言
COMを扱うVB.NETコードを書くということは、「現在と過去の橋渡し」をしているということだ。
1. ラップせよ: 複雑なCOM操作は、必ず `IDisposable` を実装したクラス内に隠蔽し、`Using` ブロックでの利用を強制すること。
2. 型に頼るな: `Object` 型で保持せず、可能な限り参照設定（COM Interop）を行い、静的型付けの恩恵を受けること。それがバグの温床を減らす。
3. 計測せよ: 本番環境で「プロセス数」を監視するジョブを別途作成すること。メモリリークは「徐々に」効いてくる毒である。
COMは、もはや過去の遺物かもしれない。しかし、その遺物をいかに美しく、かつ安全に処理できるかが、レガシーシステムを保守するエンジニアの「技術的格」を決める。
コードの隅々まで、あなたの意志を行き渡らせろ。解放し忘れたオブジェクトは、必ずシステムのどこかで復讐する。
—
追記：もし可能であれば、新規開発においてはCOM経由の操作を避け、API（REST/gRPC）またはOpenXML SDKへの移行を強く推奨する。COMの解放管理は、極限まで突き詰めてもなお「リスク」であり続けるのだから。
