importdll Fehlermeldung

  • VB.NET

    importdll Fehlermeldung

    Hi,

    also ich weiß nicht ob das in diesen Teil gehört aber die anderen erschienen mir auch nicht gerade passend.

    ich versuche jetzt schon seit einiger Zeit die eine Dll zur steuerung eines Roboters von Fischer Technik (RoboTX) in mein VB Projekt eingebunden zu bekommen.

    jedoch tritt bei mir immer folgender Fehler auf:

    Ein Aufruf an die PInvoke-Funktion "test1!test.TXCDaten.FTXLib::ftxOpenComDevice" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit der nicht verwalteten Zielsignatur überein. Überprüfen Sie, ob die Aufrufkonvention und die Parameter der PInvoke-Signatur mit der nicht verwalteten Zielsignatur übereinstimmen.

    hier noch der Code der classe, die dll bereitstellen soll:

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Text
    3. Imports System.Runtime.InteropServices
    5. Namespace TXCDaten
    7. Public Enum FTERR As UInteger
    9. FTLIB_ERR_SUCCESS = &H0
    11. End Enum
    13. Public Enum TA_ID
    14. TA_LOCAL = 0 'Transfer Area des Masters
    15. TA_EXT_1 'Transfer Area für Slave 1
    16. TA_EXT_2 'Transfer Area für Slave 2
    17. TA_EXT_3 'Transfer Area für Slave 3
    18. TA_EXT_4 'Transfer Area für Slave 4
    19. TA_EXT_5 'Transfer Area für Slave 5
    20. TA_EXT_6 'Transfer Area für Slave 6
    21. TA_EXT_7 'Transfer Area für Slave 7
    22. TA_EXT_8 'Transfer Area für Slave 8
    23. TA_N_PARTS 'Anzahl der Transfer Areas
    24. End Enum
    26. Public Enum InputMode
    28. MODE_U = 0 ' mV
    29. MODE_R = 1 ' 5 kOhm
    30. MODE_ULTRASONIC = 3
    31. MODE_INVALID
    33. End Enum
    36. Public Class FTXLib
    38. Declare Function IniLib Lib "ftMscLib.dll" Alias "ftxInitLib" () As UInteger
    39. Declare Sub CloseLib Lib "ftMscLib.dll" Alias "ftxCloseLib" ()
    40. Declare Function ftxOpenComDevice Lib "ftMscLib.dll" Alias "ftxOpenComDevice" (<MarshalAs(UnmanagedType.LPStr)> ByVal comStr As String, ByVal baudr As UInteger, <Out()> ByRef errcode As UInteger) As UInteger
    43. <DllImport(".//ftMscLib.dll", EntryPoint:="ftxCloseDevice")> _
    44. Public Shared Sub CloseInterface(ByVal fthdl As UInteger)
    45. End Sub
    47. End Class
    48. End Namespace


    und die test datei:

    VB.NET-Quellcode

    1. Imports System
    3. Namespace TXCDaten
    5. Module Module1
    8. Dim fthdl As UInt32 = 0
    10. Dim com As String = "COM5"
    12. Sub Main()
    17. Dim errCode As UInteger
    19. FTXLib.IniLib()
    21. Console.WriteLine("geöffnet")
    24. fthdl = FTXLib.ftxOpenComDevice("COM", 38400, errCode)
    26. Console.WriteLine("gestartet")
    28. FTXLib.CloseInterface(fthdl)
    30. Console.WriteLine(errCode & "Fehlercode")
    32. FTXLib.CloseLib()
    36. End Sub
    38. End Module
    39. End Namespace


    der Fehler tritt immer beim aufruf der Funktion: FTXLib.ftxOpenComDevice("COM", 38400, errCode)

    hat einer von euch eine Idee was ich falsch mache?

    Mfg PatteKi

Facebook
Telefonspende