处理从 dll 内部抛出的异常

Question

我正在为一个加载 dll 的学校项目工作。

加载的 dll 是我的程序和 Twincat 系统管理器之间的桥梁，它通过本地网络形成计算机和 PLC 之间的桥梁。

我需要通过从 plc 到我的程序的整个链来读取变量。

这就是我这样做的方式：

Public Function adsReadReal(ByVal Variabelenaam As String) As Single
    Dim ds = New TwinCAT.Ads.AdsStream(4 * 8) ' new data stream
    Dim br = New System.IO.BinaryReader(ds) 'new binary
    Dim hVar = New Integer
    Try
        ConState(1) 
        tcclient = New TcAdsClient
        ConState(2)
        tcclient.Connect(Form1.amsAdress, 801) 'connects the tcclient to the PLC
        hVar = tcclient.CreateVariableHandle(Variabelenaam) 'creats a handle for the variable
        tcclient.Read(hVar, ds) 'read it
        ConState(5)
        Return br.ReadSingle() 'convert it from binary to readable for vb
    Catch ex As Exception
        ConState(0)
        PrintEx(ex) 'print out the exception
    finally
        tcclient.Dispose() 'make the object stop being used to prevent a lingering connection
    End Try
    Return False
End Function

现在程序在连接模块的开始处加载一个名为TwinCAT.ADS.dll 的dll。如果 Twincat 系统管理器正在运行程序正常结束，但当它不是时它崩溃并给我这个错误：

System.DllNotFoundException 未处理
Message="Kan DLL tcadsdll.dll niet laden: Kan opgegeven module niet vinden. (Uitzondering van HRESULT: 0x8007007E)"
Source="TwinCAT.Ads"
类型名称=""
堆栈跟踪：
bij TwinCAT.Ads.Internal.TcAdsDllWrapper.TcAdsDll.AdsAmsUnRegisterRouterNotification()
bij TwinCAT.Ads.Internal.TcAdsDllWrapper.AmsUnRegisterRouterNotification（布尔 throwAdsException)
bij TwinCAT.Ads.Internal.TcLocalSystem.Dispose(布尔处理)
bij TwinCAT.Ads.Internal.TcLocalSystem.Finalize()

大致翻译为：

无法加载 DLL tcadsdll.dll：找不到给定的模块。 （例外于 HRESULT: 0x8007007E)

这不是我导入的dll，所以一定是来自TwinCAT.ADS.dll

如何防止程序向我抛出此错误，而是和平关闭程序？我试图捕获所有可能的 dll 相关操作的异常。

来源也在 Bitbucket 上。我会应要求将其公开。

Beckhoff 官方网站上的一些链接，但很不方便：

http://infosys.beckhoff.com/espanol.php?content=../content/1034/tcquickstart/html/tcquickstart_samplevisualbasicnet.htm&id=10449

编辑： 显然使用 tcclient.dispose() 会导致错误，因为使用了 finnaly 语句而不是在 try 块之后使用

编辑：这当前捕获了异常但它不处理它。

Dim currentDomain As AppDomain = AppDomain.CurrentDomain
AddHandler currentDomain.UnhandledException, AddressOf MyHandler
Dim tick As Byte = 0

Sub MyHandler(sender As Object, args As UnhandledExceptionEventArgs)
   Dim ex As Exception = DirectCast(args.ExceptionObject, Exception)
   MsgBox("exception tick" & Str(tick))
   tick = tick + 1
   PrintEx(ex)
End Sub

编辑： 异常没有被正确捕获，因为在 vs2008 中发生了几个错误，但是在我按 F5（继续）后出现了勾号

程序直接运行时，我只看到1个Tick。然后windows报错。

Answer 1

您是否尝试过未处理的异常处理程序？

Dim currentDomain As AppDomain = AppDomain.CurrentDomain
AddHandler currentDomain.UnhandledException, AddressOf MyHandler

Sub MyHandler(sender As Object, args As UnhandledExceptionEventArgs)
   Dim e As Exception = DirectCast(args.ExceptionObject, Exception)
   Console.WriteLine("MyHandler caught : " + e.Message)
End Sub