Question

我正在尝试将一个带有.NET的插件系统放在一起，我不确定我是否正确地使用它。该系统的基础是一个特定的目录（{apppath} / Plugins /）将有一堆预编译的DLL，我想通过反射来查看每个目录，并且如果它继承了特定的基类，那么对于每个可用的类都是如此。（这是在另一个DLL中定义的，但我稍后会介绍它），然后创建它的一个实例并在所述实例中调用一个特定的函数。

Public Sub ScanPluginsInDirectory(ByVal Directory As String)

    Dim Plugins As New IO.DirectoryInfo(Directory)
    Dim Files As IO.FileInfo() = Plugins.GetFiles("*.dll")
    Dim CryptType As Type = GetType(CryptPluginBase)
    Dim PluginsData as List(Of LoadedPluginsInfo)

    For Each DllFile As IO.FileInfo In Files
        Try
            Dim thisAsm As Assembly = Assembly.LoadFrom(DllFile.FullName)
            Dim ClassDefs = thisAsm.GetTypes().Where(Function(type) CryptType.IsAssignableFrom(type))

            For Each ClassDef As Type In ClassDefs
                Dim A As Object
                A = ClassDef.Assembly.CreateInstance(ClassDef.Name)
                PluginsData.Add(New LoadedPluginsInfo(A.Plugin(), False))
            Next
        Catch ex As Exception
            Continue For
        End Try
    Next
End Sub

我遇到的具体问题是，我不确定这是否是正确的方法。如果可以假设A.Plugin()实际存在并且此处引用的任何结构和类都没有错误，那么我正在尝试的方法是否正常工作？如果有人需要更多代码才能提供帮助，我可以发布。

Answer 1

总的来说，战略应该有效。 Assembly.LoadFrom调用将目标程序集加载到进程中。从那里可以进行类型检查并创建这些类型的实例。

我认为创建实例最简单，最可靠的方法是使用Activator.CreateInstance方法。

For Each def As Type in ClassDefs
  Dim inst = Activator.CreateInstance(def)
  PluginsData.Add(new LoadedPluginsInfo(inst.Plugin(), False))
Next

根据您的目标，另一个建议是将Try / Catch块移动到循环中而不是从循环中移出。在循环外部使用Try / Catch块意味着如果程序集中的任何给定类型确实有错误，您将丢弃该程序集中的所有类型。将其移到内部将允许您仅丢弃不按预期工作的类型。但是当前行为可能是您的意图。

Answer 2

这应该有用，我之前在一些项目中一直在使用这种东西。我专门寻找一个构造函数并调用它，但除此之外它是相同的想法。

但你可能想看一下MEF，它会为你的插件架构提供很多东西（如果你愿意等待发布版本，它现在还是CTP）

Createinstance（） - 我这样做了吗？

2 个答案: