Plugin kann nicht geladen werden

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von filmee24.

    Plugin kann nicht geladen werden

    hallo,
    ich habe mit hilfe von diesem tutorial: [VB.NET] Wie erstelle ich ein PlugIn System unter VB.NET (Framework 2)
    ein pluginsystem gemacht.

    Interface.dll

    VB.NET-Quellcode

    1. Public Interface PluginInterface_v1
    3. ReadOnly Property Name() As String
    5. End Interface

    plugin.dll

    VB.NET-Quellcode

    1. Public Class myClient
    2. Implements [interface].PluginInterface_v1
    4. Public ReadOnly Property Name As String Implements [interface].PluginInterface_v1.Name
    5. Get
    6. Return "kkk"
    7. End Get
    8. End Property
    9. End Class

    Hostprogramm

    VB.NET-Quellcode

    1. Public Class PlugInConnector
    2. Public Shared Function LoadPlugIn(ByVal strFile As String) As [interface].PluginInterface_v1
    4. Dim vPlugIn As [interface].PluginInterface_v1
    5. Dim a As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(strFile)
    7. Dim types() As Type = a.GetTypes
    9. For Each pType As Type In types
    10. 'hier wird versucht die dll zu laden.
    11. 'dies funktioniert nur, wenn die dll auch das selbe interface implementiert
    12. 'wie der host vorgiebt
    13. Try
    14. vPlugIn = CType(a.CreateInstance(pType.FullName), [interface].PluginInterface_v1)
    15. 'dll ist ein gültiges plugin
    16. Return vPlugIn
    17. Catch ex As Exception
    19. End Try
    20. Next
    21. 'keine gültige dll gefunden
    22. Return Nothing
    23. End Function
    24. End Class

    VB.NET-Quellcode

    1. Imports System.IO
    3. Public Class Form1
    4. Private myplugin As [interface].PluginInterface_v1
    5. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    6. Dim PlugIns As New List(Of [interface].PluginInterface_v1)
    7. For Each plug As String In Directory.GetFiles(Application.StartupPath & "\Plugins", "*.dll")
    8. Dim PlugIn As [interface].PluginInterface_v1 = PlugInConnector.LoadPlugIn(plug)
    9. If Not (PlugIn Is Nothing) Then
    10. PlugIns.Add(PlugIn)
    11. ListBox1.Items.Add(PlugIn.Name)
    12. End If
    13. Next
    14. If myplugin Is Nothing Then
    15. MessageBox.Show("Kein gültiges PlugIn gefunden !")
    16. Me.Close()
    17. End If
    18. End Sub
    19. End Class


    So wenn ich den Host öffne dann kommt die Meldung das keine gültien Plugins gefunden wurden, owohl das Plugin eigendlich korrekt is?
    kann mir da jemand helfen?

    mfg filmee24

    es hat noch nie geklappt?
    *edit jetz geht es, da war ein Fehler im Tutorial

    VB.NET-Quellcode

    1. If PlugIns.Count = 0 Then
    müsste es heißen, anstatt

    VB.NET-Quellcode

    1. If myplugin Is Nothing Then

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „filmee24“ ()