Cypress Enable - API Zugriff nur einmal möglich.

  • Sonstige

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von human.

    Cypress Enable - API Zugriff nur einmal möglich.

    Moin

    ich möchte Mittels API Schnittstelle und entsprechender dll meinen über USB angeschlossenen Servoregler ansprechen.
    Hier zu verwende ich Cypress Enable, da diese auch in meiner Steuerungssoftware eingebettet ist.
    Cypress ist stark an VB angeleht, nur hat es weniger Funktionen.

    Ich habe mich ein wenig in Sachen API eingelesen. Also Begriffe wie UnManage, BSTR, Wrapper ect. hab ich schon mal gelesen :) .

    Den Zugriff auf den Regler, das lesen und schreiben von Parametern habe ich nach vielen Versuchen (endlich) hinbekommen.

    Leider kann ich meinen Code nur einmal durchlaufen lassen, da ich beim zweiten Durchlauf einen Fehler aus der dll (Internal error <setComPar>) bekomme.
    Meine Vermutung, es hängt mit dem Pointer auf das "communication session object" oder dem Thread!? zusammen.
    Ich muss den Scripteditor schließen und erst nach erneutem öffnen kann ich den Code einmalig fehlerfrei abarbeiten.
    Kann man nicht den Pointer speichern? Mit strPtr und CopyMemory in der nächsten Laufzeit wiederholen?
    Leider hat Cypress kein strPtr und die API von varPtr ist ja nicht das selbe.

    Hier erstmal das Reference Manual,
    der C# Header,
    ... und mein Code für die Initialisiereung:

    Code:
    Cypress Enable

    Visual Basic-Quellcode

    1. 'Cypress Enable Code
    3. Declare Function openDCE Lib "C:\HIWIN\dce\toolswin\winkmi\mpi.dll" (ByVal pwdin As String,ByVal cnfname As String) As Long
    4. Declare Function setComPar Lib "C:\HIWIN\dce\toolswin\winkmi\mpi.dll" ( ByVal port As Integer, _
    5. ByVal baudrate As Integer, _
    6. ByVal mode As Integer, _
    7. ByVal trid As Integer, _
    8. ByVal rcid As Integer, _
    9. ByVal cancanbaudrate As Integer, _
    10. ByVal msgStand As Integer, _
    11. ByVal canpipelevel As Integer, _
    12. ByVal timeout As Integer, _
    13. ByVal locktime As Integer, _
    14. ByVal iternum As Integer, _
    15. ByVal pcom As Long) As Long
    16. Declare Function closePort Lib "C:\HIWIN\dce\toolswin\winkmi\mpi.dll" (ByVal pcom As Long) As Long
    17. Declare Function deleteDCE Lib "C:\HIWIN\dce\toolswin\winkmi\mpi.dll" (ByVal pcom As Long, ByVal closeMFC As Integer) As Long
    18. Declare Function GetVarN Lib "C:\HIWIN\dce\toolswin\winkmi\mpi.dll" ( ByVal varName As String, _
    19. ByRef pdata As Long, _
    20. ByVal slave As Integer, _
    21. ByVal pcom As Long) As Long
    23. Dim pcom As Long
    24. Dim pdata As Double, tmpPdata As Double
    25. Dim pwdin As String, cnfname As String
    26. Dim slave As Integer, po As Integer, tmpGetVarN As Integer
    28. pwdin = "c:\hiwin\dce\"
    29. cnfname = "lightening.dce"
    30. slave = 0
    32. pcom = openDCE(pwdin,cnfname) 'A pointer points to a communication session object. This pointer may be supplied to all other functions as the parameter pcom.
    34. po = setComPar(7,8,1,0,0,0,0,0,50,200,6,pcom) 'setzt und öffnet den Port
    36. tmpGetVarN = getVarN("X_enc_pos",pdata,0,pcom) 'einfache Abfrage eines Parameters im Regler
    37. tmpPdata = pdata
    39. If tmpGetVarN = 0 Then
    40. Print tmpPdata
    41. Else
    42. Print errStr(tmpGetVarN)
    43. End If
    45. Call closePort(pCom)
    46. Call deleteDCE(pCom,0)
    48. Function errStr(errcode As Integer) As String
    49. Dim tmpErrStr As String
    51. Select Case errcode
    52. Case 0
    53. 'tmpErrStr = "OK!"
    54. Case 31
    55. tmpErrStr = "Slave number out of range (0~31)!"
    56. Case 101
    57. tmpErrStr = "Read failed!"
    58. Case 102
    59. tmpErrStr = "Write failed!"
    60. Case 103
    61. tmpErrStr = "Frame error!"
    62. Case 104
    63. tmpErrStr = "No answer!"
    64. Case 105
    65. tmpErrStr = "Check sum error!"
    66. Case 106
    67. tmpErrStr = "Size out of range!"
    68. Case 107
    69. tmpErrStr = "Parity error!"
    70. Case 108
    71. tmpErrStr = "Over run error!"
    72. Case 109
    73. tmpErrStr = "Buffer over flow!"
    74. Case 110
    75. tmpErrStr = "Frame error!"
    76. Case 111
    77. tmpErrStr = "Abort!"
    78. Case 112
    79. tmpErrStr = "Net sync error!"
    80. Case 113
    81. tmpErrStr = "Can error!"
    82. Case 114
    83. tmpErrStr = "Answer size error!"
    84. Case 115
    85. tmpErrStr = "Start byte error!"
    86. Case 116
    87. tmpErrStr = "Master boot!"
    88. Case 117
    89. tmpErrStr = "EtherCAT mega-ulink error!"
    90. Case 118
    91. tmpErrStr = "EtherCAT mega-ulink in test mode!"
    92. Case 151
    93. tmpErrStr = "Communication FIFO full!"
    94. Case 152
    95. tmpErrStr = "Size transmit error!"
    96. Case 153
    97. tmpErrStr = "Communication is not available!"
    98. Case 154
    99. tmpErrStr = "No connection to remote side!"
    100. Case 155
    101. tmpErrStr = "Local communication blocked!"
    102. Case 156
    103. tmpErrStr = "Communication failed!"
    104. Case 157
    105. tmpErrStr = "No connection to remote side via Ehernet!"
    106. Case 158
    107. tmpErrStr = "EtherCAT mega-ulink slave not respond!"
    108. Case 201
    109. tmpErrStr = "Unrecognized variable!"
    110. Case 202
    111. tmpErrStr = "Slave name not defined!"
    112. Case 203
    113. tmpErrStr = "The list contain one or more unrecognized variables in slave!"
    114. Case 204
    115. tmpErrStr = "Variable is not short type!"
    116. Case 220
    117. tmpErrStr = "Variable is not a 64 bit type!"
    118. Case 221
    119. tmpErrStr = "Variable is a 64 bit type!"
    120. Case 251
    121. tmpErrStr = "Unrecognized function in slave!"
    122. Case 252
    123. tmpErrStr = "Slave name not defined!"
    124. Case 260
    125. tmpErrStr = "PDL function is not running in slave!"
    126. Case 261
    127. tmpErrStr = "Slave is in boot mode!"
    128. Case 262
    129. tmpErrStr = "Task number out of range!"
    130. Case 263
    131. tmpErrStr = "Slave in not in boot mode!"
    132. Case 270
    133. tmpErrStr = "Write buffer denied!"
    134. Case 271
    135. tmpErrStr = "Buffer size to set out of range!"
    136. Case 272
    137. tmpErrStr = "Read variable denied!"
    138. Case 273
    139. tmpErrStr = "Number of variables out of range!"
    140. Case 274
    141. tmpErrStr = "Expected answer length too big!"
    142. Case 275
    143. tmpErrStr = "Support only array access type 16/32 bits!"
    144. Case 300
    145. tmpErrStr = "Scope restart!"
    146. Case 301
    147. tmpErrStr = "Scope support only 2 variables!"
    148. Case 500
    149. tmpErrStr = "Link busy!"
    150. Case 501
    151. tmpErrStr = "No support!"
    152. Case 502
    153. tmpErrStr = "Master boot!"
    154. Case 503
    155. tmpErrStr = "No slave!"
    156. Case 504
    157. tmpErrStr = "Link error!"
    158. Case 505
    159. tmpErrStr = "Slave error!"
    160. Case 506
    161. tmpErrStr = "Invalid address!"
    162. Case 525
    163. tmpErrStr = "Server busy!"
    164. Case 600
    165. tmpErrStr = "State number out of range!"
    166. Case 601
    167. tmpErrStr = "Unrecognized state in slave!"
    168. Case 602
    169. tmpErrStr = "Slave name not defined!"
    170. Case 651
    171. tmpErrStr = "No support id communication command!"
    172. Case 801
    173. tmpErrStr = "Extra parameters!"
    174. Case 802
    175. tmpErrStr = "Missing parameters!"
    176. Case 803
    177. tmpErrStr = "Unrecognized command!"
    178. Case 1000
    179. tmpErrStr = "Communication driver is NULL!"
    180. Case Else
    181. tmpErrStr = "Sonstiger Fehler!"
    182. End Select
    184. errStr = tmpErrStr
    185. End Function



    Vermutlich ist meine Vorgehensweise für diese Art von Abfragen ungeeignet.
    Solche API Zugriffe laufen doch normalerweise in einem Main-Thread!? in einer Schleife?
    Und von dem werden dann die Funktionen aus gestartet?

    Muss ich vielleicht mit Objekten und Klassen Arbeiten?
    In der Hinsicht habe ich noch nicht so viel gemacht/Erfahrung.

    Ich würde mich über Tipps und Ratschläge freuen, die mich weiter voran bringen können.

    Gruß
    Robert
    Dateien

    • MPI_V1.51.pdf

      (1,81 MB, 459 mal heruntergeladen, zuletzt: )

    • mpint.h.txt

      (15,54 kB, 276 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „human“ ()

    @human Willkommen im Forum. :thumbup:
    Ich nehme mal an, dass Deine Deklarationen zumindest teilweise vom alten VB6-Format sind, da sind ggf. Parameter falsch deklariert.
    Möglicherweise ist ByVal pcom As Long nun ein ByVal pcom As IntPtr.
    Das würde wahrscheinlich alle Long-Parameter betreffen bzw. MDCE *pcom und auch char *ipstr in der Text-Datei.
    Probierma, für diese DLL vom Hersteller die .NET-Deklarationen zu bekommen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin

    @RodFromGermany
    Vielen Dank.

    IntPtr oder IpStr werden von Cypress leider nicht unterstützt.

    Ich denke das die jetzigen Deklarationen nicht all zu verkehrt sind, da ich beim ersten Code-Durchlauf ja keinen Fehler bekomme und vollen Zugriff auf den Regler habe.
    Nur beim zweiten Durchlauf ist bei "setcompar" Schluss (Fehler).

    Den Hersteller habe ich heute mal wegen der vb.net Deklarationen angeschrieben.
    Viel Hoffnung habe ich jedoch nicht, das die Privatpersonen supporten.
    Deren Produkte bekomme ich auch nur über einen Händler.

    Hat noch jemand eine Idee?
    Mein Bauchgefühl sagt mir, das irgendwie mit dem pointer von "openDCE" zusammen hängen könnte.

    Gruß
    Robert

    human schrieb:

    IntPtr oder IpStr werden von Cypress leider nicht unterstützt.
    IntPtr wird von .NET unterstützt.
    In der nativen DLL kann stehen was da will, es muss nur korrekt auf .NET übertragen werden.
    Gugst Du hier: Austausch von Daten zwischen einer VB.NET-exe und einer C-DLL, 32 und 64 Bit
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin

    sorry für das verspätete Feedback.
    Danke für den Link.
    Also ist dann VB.net die Verbindung zwischen Cypress und der dll?

    Mal etwas anders ...
    gibt es eine API für die Funktion strPtr oder eine Möglichkeit um an die String-Adresse einer Variable zu kommen, also ähnlich varPtr?

    Gruß
    Robert

    @human Was trennt Cypress und die dll?
    Zu den Strings gugst Du hier: Austausch von Daten zwischen einer VB.NET-exe und einer C-DLL, 32 und 64 Bit
    Hatten wir doch schon. :/
    Der IntPtr ist der Pointer. Wenn Du wie in C / C++ mit *var = bla arbeiten willst, musst Du C# und unsafe programmieren.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin

    RodFromGermany schrieb:

    Was trennt Cypress und die dll?

    Eigentlich nichts. Bis auf das oben beschriebene Verhalten.

    Bin etwas irritiert. Wahrscheinlich verstehe ich noch nicht so ganz deinen Lösungsansatz.
    Ich dachte das ich ohne VB.net auskommen könnte und mit ein paar eigenen Funktionen die Probleme Mittels Cypress in den Griff bekomme.

    Gruß
    Robert

    human schrieb:

    ohne VB.net ... mit ein paar eigenen Funktionen
    in welcher Programmiersprache?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin

    hab den Fehler gefunden!

    Ich hatte mich schon die ganze Zeit gewundert, warum die Funktion "openPort" nicht meine vorherige Verbindung aufruft.
    Mit der Funktion "getcompar" habe ich dann die total verkehrten Einstellungen gesehen.

    Im Library Reference Manual habe ich dann gelesen das es zwei save Files gibt,
    die jeweils die Portsettings der letzten Verbindung zum Regler beinhalten.
    Eine für RS232/USB und eine für Ethernet.
    Hab die für Ethernet mit der des RS232/USB überschrieben.

    Juhu, bin sooo erleichtert das es nun endlich funktioniert.

    Gute Nacht
    Robert