Defaillance irrémédiable ( Exception de HRESULT: 0x8000FFFF) [Résolu]

Signaler
Messages postés
26
Date d'inscription
jeudi 25 mars 2010
Statut
Membre
Dernière intervention
7 juin 2011
-
Messages postés
420
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
15 juillet 2014
-
j'ai commencer un projet en VB.NET mais j ai pas arriver à appeller une fonction CAPL :

Dim WithEvents gCanApp As CANalyzer.Application
Dim WithEvents gCanMeasurement As CANalyzer.Measurement
Dim gMultiplyFunction As CANalyzer.CAPLFunction
Dim gMultiplyResult As Integer

gMultiplyFunction = gCanApp.CAPL.GetFunction("Multiply”)

gMultiplyResult = gMultiplyFunction.Call (4, 5)

mais ca marche pas pour moi ca me donne un erreur de ce genre :

gMultiplyFunction = gCanApp.CAPL.GetFunction("Multiply”):defaillance irrémédiable ( Exception de HRESULT: 0x8000FFFF)
yatil quelque chose qui cloche dans mon code
je vous remercier pour une reponse pour remedier à ce blem

3 réponses

Messages postés
420
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
15 juillet 2014
5
Bonjour,

Je ne connais pas la librairie CANalyser, mais j'imagine qu'il faut plutot faire :
Dim WithEvents gCanApp As New CANalyzer.Application


Pour créer une instance de la classe CANalyzer.Application.
Ce qui est étonnant, que cela aurait du entrainer une autre erreur que celle décrite.

A voir.
Messages postés
26
Date d'inscription
jeudi 25 mars 2010
Statut
Membre
Dernière intervention
7 juin 2011

merci pour la reponse mais comme tu as ca entraine un autre erreur c que la fomr s'ouvre jamais (aucun source diponible)
Messages postés
420
Date d'inscription
vendredi 17 novembre 2006
Statut
Membre
Dernière intervention
15 juillet 2014
5
Que se passe-t-il si vous faite un formulaire avec uniquement un bouton qui fait ceci ? :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim gCanApp As New CANalyzer.Application
        Dim gMultiplyFunction As CANalyzer.CAPLFunction
        Dim gMultiplyResult As Integer
        gMultiplyFunction = gCanApp.CAPL.GetFunction("Multiply")
        gMultiplyResult = gMultiplyFunction.Call(4, 5)
        gCanApp.Quit()
    End Sub

End Class