---

Hallo,

Hatte diese Frage auch schon im NX-Forum gestellt. Ist hier aber wohl besser aufgehoben.

Kann ich mit dem DllImport aus dem Journal auch anderen beliebigen Code aufrufen? Wir möchten Stücklistendaten aus NX in einem Excel-Sheet ablegen. Ein Journal-Skript habe ich schon hingekrieg und auch eine DLL mit dem Excel-Code. Nur kriege ich den Aufruff nicht hin. Was sind die Anforderungen an die DLL? Momentan habe ich mit C# etwas gebastelt. Irgendwie scheinnt aber VBScript Probleme mit dem daraus resultierenden "Managed"-Code Probleme zu haben.

Geht das aus dem Journal überhaupt? Oder geht das nur mit der dotnet-author Lizenz?

Code:

---

Public Class TestDLL
  <DllImport("D:\SharpDevelop Projects\test\bin\Debug\test.dll")> _
    Shared Function TestSub ()
  End Function
End Class

---

Code:

---

namespace test
{
  public class MyClass
  {
    public static void TestSub()
    {
      System.Windows.Forms.MessageBox.Show("Hello DLL!");
    }
  }
}

---

------------------
Beitrag im Dassault Contact mag: 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Der Zugriff auf externe Programme (.exe) geht aus einem Journal heraus über die Process- Klasse. Ob das auch mit Libraries (.dll) funktioniert, kann ich nicht sagen. Falls extern auf die NX API zugegriffen wird, ist mit einiger Sicherheit ein Author- Lizenz erforderlich.

Gruß, Michael

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nach einigem probieren habe ich es nun geschaft. Dynamic Binding war das richtige Stichwort:

Code:

---

Imports System
Imports System.Reflection

Public Class TestDLL
  Shared Sub TestSub
    Dim a As [Assembly] = [Assembly].LoadFrom("D:\SharpDevelop Projects\test\bin\Debug\test.dll")
    Dim t As Type = a.GetType("MyTestDLL.MyClass")
    Dim p() As Object = {"Hello DLL"}

    t.GetMethod("TestSub").Invoke(Nothing, p)
  End Sub
End Class

---

Ob nun in der DLL auch Methoden aus der NXopen.dll verwendet werden kann weis ich noch nicht. Ist ja aber für meine Anwendung auch nicht notwendig.

------------------
Beitrag im Dassault Contact mag: 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zumindest unter NX4 ist weder eine Author noch eine Runtime Lizenz notwendid und die DLL kann trotzdem alles:

Code:

---

Option Strict off

Imports System
Imports System.Reflection
Imports NXOpen

Module NXEXample

Public Class TestDLL
  Shared Sub TestSub(session As Session)
Dim a As [Assembly] = [Assembly].LoadFrom("D:\SharpDevelop Projects\test\bin\Debug\test.dll")
Dim t As Type = a.GetType("MyTestDLL.MyClass")
Dim p() As Object = {session}

t.GetMethod("TestSub").Invoke(Nothing, p)
  End Sub
End Class

Sub Main
  Dim theSession as Session

  theSession = Session.GetSession()
  TestDLL.TestSub(theSession)
End Sub

End Module

---

------------------
Beitrag im Dassault Contact mag: 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super!

Und wie kann man eine Funktion aus einer Dll Aufrufen und den Rückgabewert abfragen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Invoke() sollte als Rückgabewert den Rückgabewert der aufgerufenen Funktion liefern:

http://msdn.microsoft.com/en-us/library/a89hcwhh.aspx

Oder habe ich die Frage falschverstanden?

------------------
Beitrag im Dassault Contact mag: 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP