Der Daten Import / Export Spezialist
Schauen Sie sich auch die verfügbaren allgemeinen Beispiele an evtl. kann Ihre Frage hiermit schon beantwortet werden: Hello World 1 / 2 / 3 , Zahlen in Zeichenketten formatieren , Einfache Wenn-Dann-Sonst Bedingung , Komplexe If-Then-ElseIf ... Bedingung , Daten filtern und gruppieren , Daten gruppieren und Werte über die Gruppierung summieren

Einbindung externer DLL in .Net-Heater

  • Heinz-Bernd Monschau
  • Autor
  • Offline
  • Senior Mitglied
  • Senior Mitglied
Mehr
12 Jahre 6 Monate her #93 von Heinz-Bernd Monschau
Einbindung externer DLL in .Net-Heater wurde erstellt von Heinz-Bernd Monschau
Ich habe einen umfangreichen .Net-Heater, den ich in einigen Flowheatern benutzen muß.

Aktuell kommt es zu vielen Überarbeitungen des Codes des Heaters, diese Überarbeitungen muß ich in allen fhd vornehmen, in denen ich den Code verwende.

Ist es möglich den verwendeten Code als DLL zu kompilieren und in die .Net-Heater einzubinden, so das ich statt aller überarbeitungen lediglich den Quellcode einmal ändere und die DLL neu kompiliere?

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Mehr
12 Jahre 6 Monate her - 3 Jahre 3 Monate her #94 von FlowHeater-Team
FlowHeater-Team antwortete auf Einbindung externer DLL in .Net-Heater
Hallo Herr Monschau,

mit der aktuellen Version geht das leider noch nicht. Unter FlowHeaterBeta.zip liegt aber ein leicht modifizierter FlowHeater damit kann das abgebildet werden :)

Das ganze beruht auf folgenden kleinen C# .NET Skript Code für den .NET Script Heater .
Code:
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); }

Zur Verdeutlichung der Arbeitsweise ist im Anhang ein Beispiel inkl. Test DLL vorhanden. In der DLL ist eine Methode Rechne vorhanden, die 2 Übergabeparameter (int) besitzt und davon die Summe zurückliefert.
Das Skript an sich ist zwar in C#, hiermit können aber problemlos auch .NET DLLs die über VB.NET erstellt wurden, dynamisch geladen werden. Zum anpassen an den notwendigen stellen den DLL-, Klassen- bzw. Methodennamen austauschen. Evtl. noch die Übergabeparameter anpassen, das war´s auch schon.

Achtung: Das Beispiel läuft nur mit der hier verfügbaren Testversion (FlowHeaterBeta.zip) oder mit einer Version >= 1.1.9, die demnächst erscheinen wird!

Dateianhang:

Dateiname: fh_dll_test.zip
Dateigröße:3 KB

gruß
Robert Stark

Wurde Ihre Frage damit beantwortet? Bitte geben Sie ein kurzes Feedback, Sie helfen damit auch anderen die evtl. ein ähnliches Problem haben. Danke.
Anhänge:
Letzte Änderung: 3 Jahre 3 Monate her von FlowHeater-Team.

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

  • Heinz-Bernd Monschau
  • Autor
  • Offline
  • Senior Mitglied
  • Senior Mitglied
Mehr
12 Jahre 6 Monate her #95 von Heinz-Bernd Monschau
Heinz-Bernd Monschau antwortete auf Einbindung externer DLL in .Net-Heater
Hallo Herr Stark,

fast optimal (bevorzuge vb statt c#).

Läuft super. Der Einsatz dieser Technik verschiebt die Grenze der Möglichkeiten Richtung unendlich.

Besten Gruß
Monschau

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Mehr
12 Jahre 6 Monate her #102 von FlowHeater-Team
FlowHeater-Team antwortete auf Einbindung externer DLL in .Net-Heater
Hinweis: In der jetzt aktuellen Version 1.1.9 ist dieser Mechanismus bereits vorhanden. Die hier beschriebene BETA Version ist dazu nicht mehr notwendig.

gruß
Robert Stark

Wurde Ihre Frage damit beantwortet? Bitte geben Sie ein kurzes Feedback, Sie helfen damit auch anderen die evtl. ein ähnliches Problem haben. Danke.

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

  • Heinz-Bernd Monschau
  • Autor
  • Offline
  • Senior Mitglied
  • Senior Mitglied
Mehr
12 Jahre 5 Monate her #142 von Heinz-Bernd Monschau
Heinz-Bernd Monschau antwortete auf Einbindung externer DLL in .Net-Heater
Hallo Forumsleser,

ist jemand in der Lage den Beispielcode zur Einbindung einer externen dll con C# nach vb.net zu übersetzen?

Ich bin daran gescheitert.

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Mehr
12 Jahre 5 Monate her #150 von FlowHeater-Team
FlowHeater-Team antwortete auf Einbindung externer DLL in .Net-Heater
VB.NET ist gerade bei solch komplexen Sachen nicht so mein Ding, hab es trotzdem mal versucht. Hier der Skript Code in VB.NET.
Code:
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

Leider funktioniert das ganze bei mir nicht über den .NET Script Heater vom FlowHeater. Aus einer VB.NET Visual Studio WinForms Solution Anwendung heraus klappt es aber mit der DLL aus dem Beispiel.

Bitte versuchen Sie das mal bei sich mit einer reinen VB.NET DLL, ich könnte mir Vorstellen dass es dann funktioniert, ein Versuch ist es Wert.

Anmerkung: Der C# Skript Code funktioniert :)

gruß
Robert Stark

Wurde Ihre Frage damit beantwortet? Bitte geben Sie ein kurzes Feedback, Sie helfen damit auch anderen die evtl. ein ähnliches Problem haben. Danke.

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

  • Heinz-Bernd Monschau
  • Autor
  • Offline
  • Senior Mitglied
  • Senior Mitglied
Mehr
12 Jahre 5 Monate her #153 von Heinz-Bernd Monschau
Heinz-Bernd Monschau antwortete auf Einbindung externer DLL in .Net-Heater
Hallo Herr Stark,

fuktioniert.

Es muß lediglich If isNothing(instance) Then
statt If instance=nothing heißen.

Hier nochmal komplett:


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 isNothing(instance) 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


Vielen Dank!
Monschau

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Ladezeit der Seite: 0.398 Sekunden

andere Sprachen

en

FlowHeater Home

de en

Impressum/Kontakt

Datenschutz

Copyright © 2009-2023 by FlowHeater GmbH.
Alle Rechte vorbehalten.

Follow us on

twitter  facebook

YouTube

 de en