使用 VB6 IDE END 调试时未调用 Dispose 和/或 Finalize

Question

继我不久前的问题之后。

我已经解决了与此相关的大部分部分。 检测 COM 对象何时超出范围

I现在，开发人员在处理 VB6 代码时面临一个新问题。如果他们在 IDE 中运行项目，然后按 END，则将调用 Dispose 或 Finalize。这就像 VB6 的调试部分只是立即分离，而不调用 disposes 等。

我已经通过使用标准应用程序关闭和从 COM 调用 Finalize 进行了测试 -> .NET 组件和我的线程关闭，但如果按下“结束”按钮，则不会执行 Finalise，不会执行 Dispose，并且我的线程会继续运行。

在我的组件中我尝试了这个

bool debuggerAttachedatStart = System.Diagnostics.Debugger.IsAttached;
System.Windows.Forms.MessageBox.Show("The Debugger is currently -" + debuggerAttachedatStart);

，但是当你在 VB6 中运行它时，它总是 False。

我拿出 Process Explorer 并查看了 VB6，我注意到它在启动调试会话时创建了一个 Event 对象，但每次启动时它都是一个唯一的 guid。 (\Sessions\1\BaseNamedObjects{70FAF0B5-A76B-4C6A-92BE-5201B2335871})

只是想知道我是否可以做些什么，以便我可以优雅地检测到调试已在 VB6 中停止（或开始）。

Answer 1

不，你无能为力。停止调试并不会让您的程序有机会运行代码。

Answer 2

我相信我可能已经找到了一个解决方案，并认为我会分享它，以防有人对如何优雅地关闭线程有更好的想法。

在我的 .NET 程序集中添加另一个事件定义

<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid(Manager.EventsId)> _
Public Interface IManagerEvents
    'Others Removed
    <DispId(4)> Sub HostAlive(ByRef alive As Boolean)
End Interface

，然后在代码定义中添加
Public Delegate Sub HostAliveDelegate(ByRef state As Boolean)

现在在代码的主要区域中，因为我们将与 VB6 对话，所以我们需要位于正确的线程上，因此获取 SyncContext。并设置线程。

public sub New()
    Dim operation As ComponentModel.AsyncOperation
    operation = AsyncOperationManager.CreateOperation(Nothing)
    mSync = AsyncOperationManager.SynchronizationContext
    operation.OperationCompleted()
    'setup thread work.....
end sub 

Private Sub ConnectPipe()
    Dim lastAliveCheck As DateTime
    lastAliveCheck = DateTime.Now.AddSeconds(2)
    While Not mRunningEvent.Wait(0)


      'do all the work to prepar and setup the PIPE.
      'if we successfully connect
        Using NoOpTimer As New Threading.Timer(New Threading.TimerCallback(AddressOf TimerTicks), mPipe, 2000, 2000)
            'If we disconnect, this Event gets allowing the exit and reconnect to commence
            mConnectedHold.WaitOne()
        End Using

        'we must have not connected so ensure that we are still inside a running process
            PipeLog.Write("Attempting reconnect to named pipe")
            mConnectedStopper.Wait(500)
            If DateTime.Now > lastAliveCheck Then
                lastAliveCheck = DateTime.Now.AddSeconds(2)
                Dim e As New HostAliveEventArgs()
                OnHostAlive(e)
                If Not e.IsAlive Then
                    'The host did not set the event. Make sure the event is wired up and setting the value to true.
                    Exit While
                End If
            End If
    End While
    DisposePipe
    mExitingEvent.Set()
End Sub       

Protected Sub OnHostAlive(ByVal e As HostAliveEventArgs)
    mSync.Send(AddressOf OnHostAliveContextPost, e)
End Sub

Private Sub OnHostAliveContextPost(ByVal state As Object)
    Dim e As HostAliveEventArgs = CType(state, HostAliveEventArgs)
    RaiseEvent HostAlive(e.IsAlive)
End Sub   

我们的 VB6 类内部使用了该组件。

Private WithEvents comm As IPSClient_Intercommunication.Manager

Private Sub Class_Initialize()
    Set comm = New IPSClient_Intercommunication.Manager
End Sub

Private Sub comm_HostAlive(ByRef alive As Boolean)
    alive = True
End Sub

我发现，即使您使用 CustomEvent，它也始终是绑定的，因此您不能仅仅确定没有连接的事件委托并断开连接。当您在主机应用程序已关闭的情况下引发该事件时，该事件不会将活动设置为 true，并且您可以假设它已被中止。