6

我正在尝试用.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()实际存在并且此处引用的任何结构和类都没有错误，那么我尝试使用的方法是否有效？如果有人需要更多代码来提供帮助，我可以发布它。

4

2 回答 2

3

总体而言，该策略应该奏效。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 块放在循环外部意味着如果程序集中的任何给定类型确实有错误，您将丢弃该程序集中的所有类型。将其移入内部将允许您仅丢弃不能按预期工作的类型。d 当前行为可能是您的意图。

于 2009-04-12T20:06:17.767 回答
1

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

但是您可能想查看MEF，它为您处理插件架构的很多事情（如果您愿意等待发布版本，它现在仍然是 CTP）。

于 2009-04-12T20:08:35.937 回答