THEMA: Einbindung externer DLL in .Net-Heater

object instance = null;

public object DoWork()
{
   BindingFlags baseBindingFlags = BindingFlags.DeclaredOnly | 
BindingFlags.Public | BindingFlags.NonPublic | BindingFlags.Instance;

   // beim 1. Aufruf DLL laden und Instance erzeugen
   if (instance == null)
   {
      // Klassenname inkl. kompletten Namespace
      string classname = "FHTest.Class1";

      // welche .NET DLL soll geladen werden
      // die DLL wird aus dem gleichen Verzeichnis, wo die Definition gespeichert ist, geladen
      // es gehen aber auch absolute Pfadangaben!
          Assembly asm = Assembly.LoadFrom("FHTest.dll");          
        
      // Instance der Klasse erzeugen
      Type t = asm.GetType(classname);
      instance = t.InvokeMember(classname, baseBindingFlags | BindingFlags.CreateInstance, null, null, null);
   }

   // Heater Eingangsparameter holen
   int i1 = (int)InValues[0].GetInt();
   int i2 = (int)InValues[1].GetInt();

   // Übergabeparamater für die Funktion festlegen.
   // Die Anzahl sowie Typen der Parameter richtet sich nach der Methode die gerufen werden soll
   object[] args = { i1, i2 };

   // Methode Rechne der Klasse Class1 aufrufen und Wert zurückliefern
   return instance.GetType().InvokeMember("Rechne", baseBindingFlags | BindingFlags.InvokeMethod, null, instance, args);
}

Dim instance As Object

    Private Function DoWork() As Object

        Dim baseBindingFlags As BindingFlags
        baseBindingFlags = BindingFlags.DeclaredOnly Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Instance

        ' beim 1. Aufruf DLL laden und Instance erzeugen
        If instance = Nothing Then
            ' Klassenname inkl. kompletten Namespace
            Dim classname As String
            classname = "FHTest.Class1"

            ' welche .NET DLL soll geladen werden
            ' die DLL wird aus dem gleichen Verzeichnis, wo die Definition gespeichert ist, geladen
            ' es gehen aber auch absolute Pfadangaben!
            Dim asm As Assembly
            asm = Assembly.LoadFrom("FHTest.dll")


            ' Instance der Klasse erzeugen
            Dim t As Type
            t = asm.GetType(classname)

            instance = t.InvokeMember(classname, BindingFlags.CreateInstance, Nothing, Nothing, Nothing)
        End If


        ' Heater Eingangsparameter holen
        Dim i1 As Integer
        Dim i2 As Integer

        i1 = InValues(0).GetInt()
        i2 = InValues(1).GetInt()

        ' Übergabeparamater für die Funktion festlegen.
        ' Die Anzahl sowie Typen der Parameter richtet sich nach der Methode die gerufen werden soll
        Dim args() As Object = {i1, i2}

        ' Methode Rechne der Klasse Class1 aufrufen und Wert zurückliefern	  
        DoWork = instance.GetType().InvokeMember("Rechne", BindingFlags.InvokeMethod, Nothing, instance, args)

End Function