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