如何解决使用VB6 IDE END调试时,请处置和/或完成不调用
| 不久前从我的问题开始。 我已经解决了与此有关的大部分内容。 检测COM对象何时超出范围 现在,在开发人员处理VB6代码时,我面临一个新问题。如果他们在IDE中运行项目,然后按END,则将调用Dispose或Finalize。就像VB6的Debugging部分只是立即分离而无需调用dispose等。 我已经通过使用标准应用程序close进行了测试,并且从COM-> .NET组件调用了Finalize,并且我的线程关闭了,但是如果按下End按钮,则没有Finalise,也没有Dispose,并且我的线程一直在运行。 在组件内部,我尝试了bool debuggerAttachedatStart = System.Diagnostics.Debugger.IsAttached;
System.Windows.Forms.MessageBox.Show(\"The Debugger is currently -\" + debuggerAttachedatStart);
但是当您在VB6中运行它时,它总是False。
我离开Process Explorer并查看了VB6,我注意到它在Debugging会话启动时创建了一个Event对象,但是每次启动时它都是唯一的GUID。 (\\ Sessions \\ 1 \\ BaseNamedObjects {70FAF0B5-A76B-4C6A-92BE-5201B2335871})
只是想知道我是否可以做些什么,以便可以优雅地检测到VB6中的调试已停止(或开始)。
解决方法
不,您无能为力。停止调试不会使您的程序有机会运行代码。
, 我相信我可能已经找到了一个解决方案,并认为我会分享它,以防有人对如何正常执行线程关闭有更好的了解。
在我的.NET程序集中,添加另一个事件定义
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown),Guid(Manager.EventsId)> _
Public Interface IManagerEvents
\'Others Removed
<DispId(4)> Sub HostAlive(ByRef alive As Boolean)
End Interface
并在代码定义中添加
公共委托子HostAliveDelegate(ByRef状态为布尔值)
现在在Code的主要区域,因为我们将要与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,它也始终是绑定的,因此您不能仅仅确定没有连接的事件委托和断开连接。如果主机应用程序已关闭,则在引发事件时,该事件不会将alive设置为true,并且可以假定它已被中止。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。