Discussion :

[Elijha]

Bonjour,

Je développe une petite application en VB (VB 2005 Express) qui doit utiliser une librairie permettant la communication avec un module USB - Bus CAN. Cette librairie est fournie avec le matériel (PEAK system) et le fichier de déclaration en VB.

Lors des premiers essais, la librairie se charge correctement, et je peu en utiliser les fonctions, mais lorsque j'arrête le programme en cours d'exécution (arrêt du debogage), au lancement suivant VB sort une exception sur la première fonction de la librairie (INIT_Can(...)):

Impossible de charger la DLL 'pcan_usb': Une routine d'initialisation d'une librairie dynamique (DLL) a échoué. (Exception de HRESULT : 0x8007045A)

(Je signale que j'ai placé la librairie (pcan_usb.dll) dans le répertoire C:\WINDOWS\SYSTEM\)

Je présume que cela vient du fonctionnement même de la librairie fournie :
1. Il faut initialiser le module USB : CAN_Init(CAN_BAUD_50K, CAN_INIT_TYPE_ST)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Declare Function CAN_Init Lib "pcan_usb" (ByVal wBTR0BTR1 As Integer, ByVal CANMsgType As Integer) As Long

2. Utiliser les différentes fonctions de la librairie.
3. Arrêter le module USB : CAN_Close()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public Declare Function CAN_Close Lib "pcan_usb" () As Long

J'ai l'impression que la librairie "traîne" toujours en mémoire après l'arrêt du debogage, et qu'il m'est impossible de la décharger car je n'ai pas executé la fonction CAN_Close().
1. Y-a-t'il un moyen de décharger (ou d'arrêter) une librairie ?
2. Y-a-t'il un moyen de savoir si une librairie est déja chargée en mémoire ?

Merci pour vos réponse.

- Windows XP
- Visual Basic 2005 Express

[jmfmarques]

Tu t'es trompé de Forum !
Il te faut poster sur DONET .

[Elijha]

Tu t'es trompé de Forum !
Il te faut poster sur DONET .

Ah ok ! Je pensais que c'était du visual basic aussi. Je viens juste de lire ceci "(pour VB2003 et supérieurs, voir la rubrique Dotnet)".

Dsl

[Elijha]

C'est normal qu'il y ai des problèmes, puisque la déclaration de la librairie est en visual basic 6 et non en vb 2005. Le téléchargement de la déclaration de la librairie dans le bon format, fait que cela fonctionne correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Class PCAN_USB
.
.
  <DllImport("pcan_usb.dll", EntryPoint:="CAN_Init")> Public Shared Function Init(ByVal BTR0BTR1 As Int16, ByVal CANMsgtype As Integer) As Int32
  End Function
.
.
End Class

Voila...