Pluginsytem lädt immer nur ein Plugin?

filmee24 · 26. Dezember 2011, 21:57

hallo Vbler,
ich habe mir das Tutorial angeschaut ([VB.NET] Wie erstelle ich ein PlugIn System unter VB.NET (Framework 2))
und habe alles genauso gemacht wie das im Tutoroial beschrieben, nur egal wie viele Plugins ich habe er lädt mir nur eins?

wer kann mir da helfen?

mfg filmee24

AliveDevil · 26. Dezember 2011, 21:58

wie wärs mit List(Of Plugin)?

filmee24 · 26. Dezember 2011, 22:08

und wo sollte ich das einbauen?

AliveDevil · 26. Dezember 2011, 22:11

Nagut...so wenig hätte ich jetzt nicht erwartet.

VB.NET-Quellcode

For Each file In IO.File.GetFiles()
Liste.Add(PluginLoad(file))
Next

filmee24 · 26. Dezember 2011, 22:17

das geht nicht da kommt das die klasse Plugin nicht definiert ist?

AliveDevil · 26. Dezember 2011, 22:18

Och man, keine Eigeninitiative?
"Plugin" ist nur ein Platzhalter dafür wie dein Interface heißt.
Wenn das Interface "ITest" heißt, muss die Liste "(Of ITest)" sein.

filmee24 · 26. Dezember 2011, 22:21

so das habe ich gemacht nur wie kann ich des jetzt machen das das auch z.b. die roperty name in listbox hinzugefügt von jedem plugin ein eigenes item, von derliste?

AliveDevil · 26. Dezember 2011, 22:23

wat?!
Keine Satzzeichen und keine Ordnung.
Du willst nun den Inhalt der Eigenschaft "Name" in die ListBox einfüge, richtig?
Dann mach doch:

VB.NET-Quellcode

For Each item In PluginListe
ListBox.Add(item.Name)
Next

filmee24 · 26. Dezember 2011, 22:25

klappt nicht wird immernur das eine Plugin zur listbox hinzugefügt?

SystemUnknow · 26. Dezember 2011, 22:26

pack deine Plugins/DLL in einen ordner lieste sie in array auf, dann lade eine nach die andare in dein programm...noch einfacher kannst nicht gehen...

AliveDevil · 26. Dezember 2011, 22:27

darf ich den Satz umstrukturieren?

Klappt nicht.
Wird immer nur das eine Plugin zu ListBox hinzugefügt?

Nein. Es werden alle Plugins hinzugefügt.
Ansonsten: befass dich nochmal mit dem Tutorial und Teste (ich habs auch getan).

filmee24 · 26. Dezember 2011, 22:28

irgendwie klappt das bei mir nicht, hier mal mein Code:

VB.NET-Quellcode

If IO.Directory.Exists(My.Application.Info.DirectoryPath & "\Plugins") Then
For Each plugin As String In Directory.GetFiles(My.Application.Info.DirectoryPath & "\Plugins", "*.dll", SearchOption.TopDirectoryOnly)
Liste.Add(PlugInConnector.LoadPlugIn(plugin))
If myplugin IsNot Nothing Then Exit For
Next
For Each item In Liste
ListBox1.Items.Add(item.Name)
Next
Else
MkDir(My.Application.Info.DirectoryPath & "\Plugins")
End If

AliveDevil · 26. Dezember 2011, 22:30

Och maaaaaaaaan!

VB.NET-Quellcode

For Each plugin In '....
Liste.Add(LoadPlugIn(plugin))
Next
For Each item In Liste
ListBox1.Items.Add(item.Name)
Next

Du solltest wirklich Eigeninitiative zeigen.

filmee24 · 26. Dezember 2011, 22:33

hä, aber genauso hab ich das doch?

AliveDevil · 26. Dezember 2011, 22:36

Nein, hast du nicht.
Der Unterschied bei dir ist die Zeile 6.
Da myPlugin nämlich IMMER Nothing sein wird, deswegen wird auch die Schleife sofort verlassen (nach dem ersten Plugin)

filmee24 · 26. Dezember 2011, 22:38

wenn ich diese if abfrage entferne findet er garkein Plugin!!??

AliveDevil · 26. Dezember 2011, 22:40

daaaan hast du auch kein Plugin drin^^
So sieht es nämlich jetzt aus.
Setz mal einen Breakpoint auf die Zeile "Liste.Add()" und geh mal mit F11 in den Code und überprüfe, ob das Plugin geladen wird/wurde.

filmee24 · 26. Dezember 2011, 22:44

Fehler Keine untergeordneten Elemente verfügbar.

so, jetzt auf einmal gibt es soviele einträge wie pluins die aber keinen wert haben?

AliveDevil · 26. Dezember 2011, 22:47

Nein.
Dann setze den Haltepunkt auf die erste Zeile in "PluginConnector.LoadPlugin()", wenn du nicht in der Lage bist, einfach einen Einzelschritt zu machen...egal.
Also, geh mal die ganze Funktion durch und check mal alles.

filmee24 · 26. Dezember 2011, 22:51

ich habe jetzt mal die funktion überprüft und finde keinen fehler?

VB.NET-Quellcode

Public Shared Function LoadPlugIn(ByVal strFile As String) As Filmee24
Dim vPlugIn As Filmee24
Dim a As System.Reflection.Assembly = System.Reflection.Assembly.LoadFile(strFile)
Dim types() As Type = a.GetTypes
For Each pType As Type In types
Try
vPlugIn = CType(a.CreateInstance(pType.FullName), Filmee24)
'dll ist ein gültiges plugin
Return vPlugIn
Catch ex As Exception
End Try
Next
End Function

Pluginsytem lädt immer nur ein Plugin?

Pluginsytem lädt immer nur ein Plugin?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

4 Benutzer haben hier geschrieben