[VB6] Fuite Mémoire

**Vesta** · 11/11/2007, 15h20

Bonjour,

J'utilise actuellement un programme qui détecte l'insertion de carte d'identitée électronique dans un lecteur.
Cependant j'ai remarqué qu'après un certain temps l'application gelait, en regardant d'un peu plus près ce problème, je me suis rendu compte que en fait elle prenait de plus en plus de mémoire.

j'utilise la librairie suivante pour la lecture.
EIDLIB

Un timer relance a chaque fois la procédure de lecture.
J'ai bien fais pour chaque variable :

Code :

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

1
2
3
Dim ... as EIDLIBCTRLLibCtl.MapCollection
....
Set ... = nothing

Il faut également fermer la librairie (je le fais)

Code :

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

EIDLIB.exit()

Quand je ferme la form de lecture, l'application revien a une utilisation de mémoire normale.

Quelqu'un aurait une idée?

**Vld44** · 11/11/2007, 16h05

file nous le code

**Vesta** · 12/11/2007, 01h03

Cfr le lien ci dessous pour le SDK et les dll nécéssaires à la lecture de carte a puce...

ici

Merci d'avance

Voici le code...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
Option Explicit
Option Base 0
 
Private Const CP_UTF8 = 65001
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, ByVal lpWideCharStr As String, ByVal cchWideChar As Long) As Long
 
Function ConvertUTF8(UTF8 As String) As String
    Dim lLen As Long
    Dim strOut As String
    lLen = MultiByteToWideChar(CP_UTF8, 0, UTF8, Len(UTF8), 0, 0)
    strOut = String(lLen * 2, 0)
    MultiByteToWideChar CP_UTF8, 0, UTF8, Len(UTF8), strOut, lLen
    ConvertUTF8 = StrConv(strOut, vbFromUnicode)
End Function
 
Private Sub ReadData()
    'On Error GoTo errHandler
    Dim lhandle As Long
    Dim retStatus As EIDLIBCTRLLibCtl.retStatus
    Dim MapColID As New EIDLIBCTRLLibCtl.MapCollection
    Dim MapColAddress As New EIDLIBCTRLLibCtl.MapCollection
    Dim MapColPicture As New EIDLIBCTRLLibCtl.MapCollection
    Dim CertifCheck As New EIDLIBCTRLLibCtl.CertifCheck
 
    Set retStatus = EIDlibCtrl.Init("", -1, -1, lhandle)
 
    If (retStatus.GetGeneral = 0) Then
 
            Set retStatus = EIDlibCtrl.GetID(MapColID, CertifCheck)
 
            If (retStatus.GetGeneral = 0) Then
                TextName.Text = ConvertUTF8(MapColID.GetValue("Name"))
                TextGivennames.Text = ConvertUTF8(MapColID.GetValue("FirstName1")) + " " + ConvertUTF8(MapColID.GetValue("FirstName2"))
                TextGivennames3.Text = ConvertUTF8(MapColID.GetValue("FirstName3"))
                TextBirthPlace.Text = ConvertUTF8(MapColID.GetValue("BirthPlace"))
                TextBirthDate.Text = MapColID.GetValue("BirthDate")
                TextSex.Text = MapColID.GetValue("Gender")
                TextTitle.Text = ConvertUTF8(MapColID.GetValue("NobilityTitle"))
                TextNatNr.Text = MapColID.GetValue("NationalNumber")
                TextIssMunicipality.Text = ConvertUTF8(MapColID.GetValue("IssuingMunicipality"))
                TextChipNumber.Text = MapColID.GetValue("ChipNumber")
                TextCardNumber.Text = MapColID.GetValue("CardNumber")
                TextValidFrom.Text = MapColID.GetValue("BeginValidityDate")
                TextValidUntil.Text = MapColID.GetValue("EndValidityDate")
                DoEvents
            Else
                GoTo quit
'                MsgBox "ID Failure : " & GetErrorString(retStatus)
            End If
 
            ' Get Address
            Set retStatus = EIDlibCtrl.GetAddress(MapColAddress, CertifCheck)
            If (retStatus.GetGeneral = 0) Then
                TextStreet.Text = ConvertUTF8(MapColAddress.GetValue("Street")) + " " + MapColAddress.GetValue("HouseNumber") + " " + MapColAddress.GetValue("BoxNumber")
                TextZip.Text = MapColAddress.GetValue("ZIPCode")
                TextMunicipality.Text = ConvertUTF8(MapColAddress.GetValue("Municipality"))
                TextCountry = MapColAddress.GetValue("Country")
                GoTo quit
            Else
'                MsgBox "Address Failure : " & GetErrorString(retStatus)
            End If
       End If
 
    GoTo quit
 
errHandler:
    ' Close library
    EIDlibCtrl.Exit
    MsgBox Err.Description, vbExclamation, "Unknown Read Error"
 
quit:
' Close library
EIDlibCtrl.Exit
'Set lhandle = Nothing
Set retStatus = Nothing
Set MapColID = Nothing
Set MapColAddress = Nothing
Set MapColPicture = Nothing
Set CertifCheck = Nothing
Set retStatus = Nothing
    Exit Sub
 
End Sub
 
 
Private Sub Timer1_Timer()
ReadData
End Sub

**Vld44** · 12/11/2007, 09h24

pour moi c'est dans la DLL qu'un truc déconne.
Le meilleur moyen de le vérifier c'est de commenter tout entre l'instanciation et le .exit que tu fais sur les objets : tu peux checker ta mémoire sans aucun appels de fonction ... Car tout ce qui se fait à l'intérieur ne relève pas de ton intervention (c'est le principe de l'api)

Fait l'essai

PS : mettre nothing en fin de fonction ne sert à rien car de toute façon vb détruit les objets locaux à la fin de l'exécution de cette dernière (end sub/property/fonction)

**Vld44** · 12/11/2007, 19h11

tu as commenté le .exit aussi ? Mais là c'est normal que ça déconne ..

Si ce n'est pas le cas, de toute façon tu as la source de la fuite puisque la seule chose que tu fais dans la fonction c'est

Code :

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

Set retStatus = EIDlibCtrl.Init("", -1, -1, lhandle)

**Vesta** · 13/11/2007, 00h40

Je n'ai évidement pas décommenté le .exit :p

Code :

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

Set retStatus = EIDlibCtrl.Init("", -1, -1, lhandle)

Oui mais cette déclaration est nécessaire pour la suite des opérations...
Je suppose dès lors que je ne puisse rien faire? Le problème se situerai dans la dll? c'est ça?

Envoyé par DarkVader

Par contre en explorant la librairie et en relisant ton code je n'ai pas vu de MapColID.Clear entre 2 appels -
n'ayant que parcouru les méthodes fournies par la dll, est-ce normal ?

Bien vu...
Dans l'exemple du SDK, il n'utilisaient pas cette fonction donc je ne l'avais pas intégrée, cependant, je viens de l'y rajouter mais rien n'y fais...

En gros, la charge mémoire de l'application augmente de 6ko a chaque appel à la fonction...

Le pire c'est que comme Vld44 le dis c'est clairement à l'initialisation que ça foire, il ne lit encore aucune donné == aucune carte dans le lecteur...

**DarkVader** · 12/11/2007, 10h04

Envoyé par Vesta

Bonjour,

J'utilise actuellement un programme qui détecte l'insertion de carte d'identitée électronique dans un lecteur.
Cependant j'ai remarqué qu'après un certain temps l'application gelait, en regardant d'un peu plus près ce problème, je me suis rendu compte que en fait elle prenait de plus en plus de mémoire.

j'utilise la librairie suivante pour la lecture.
EIDLIB

Un timer relance a chaque fois la procédure de lecture.
...

Envoyé par Vesta

Quand je ferme la form de lecture, l'application revien a une utilisation de mémoire normale.

La dernière mention peut laisser à penser que la fréquence de saisie est trop élevée par rapport à la vitesse de saisie de la carte à puce :
empilement des demandes.

N'y a-t-il pas dans les librairies fournies une fonction callback ou un évènement généré qui permette de n'intervenir qu'à bon escient ?

Sinon que se passe-t-il en allongeant la fréquence du timer ? D'ailleurs à combien est fixée cette fréquence ?

**Vesta** · 12/11/2007, 17h47

Envoyé par DarkVader

La dernière mention peut laisser à penser que la fréquence de saisie est trop élevée par rapport à la vitesse de saisie de la carte à puce :
empilement des demandes.

N'y a-t-il pas dans les librairies fournies une fonction callback ou un évènement généré qui permette de n'intervenir qu'à bon escient ?

Sinon que se passe-t-il en allongeant la fréquence du timer ? D'ailleurs à combien est fixée cette fréquence ?

Pas de fonction callback a ma connaissance, je n'ai rien vu de tel dans la doc.

la fréquence est actuellement de 500ms je l'ai portée a 3000 et donc forcement la charge mémoire augmente moins vite mais elle augmente cependant toujours...

mais le but est de lire rapidement la carte (dès qu'elle est insérée) et donc c'est une perte de temps.

Envoyé par Vld44

pour moi c'est dans la DLL qu'un truc déconne.
Le meilleur moyen de le vérifier c'est de commenter tout entre l'instanciation et le .exit que tu fais sur les objets : tu peux checker ta mémoire sans aucun appels de fonction ... Car tout ce qui se fait à l'intérieur ne relève pas de ton intervention (c'est le principe de l'api)

Fait l'essai

C'est ce que j'ai testé, même résultat.
(J'ai commenté de :

Code :

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

If (retStatus.GetGeneral = 0) Then

à

Code :

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

...exit

Envoyé par Vld44

PS : mettre nothing en fin de fonction ne sert à rien car de toute façon vb détruit les objets locaux à la fin de l'exécution de cette dernière (end sub/property/fonction)

Je savais que la portée des variables locales à la procédure se finissait avec elle mais j'ai pensé que cela était peu être nécessaire dans ce cas.
Merci pour l'info

**DarkVader** · 12/11/2007, 18h59

Envoyé par Vesta

Pas de fonction callback a ma connaissance, je n'ai rien vu de tel dans la doc.

Normal c'est un activeX lol
Mais pas d'évènement non plus de fourni

Envoyé par Vesta

la fréquence est actuellement de 500ms je l'ai portée a 3000 et donc forcement la charge mémoire augmente moins vite mais elle augmente cependant toujours...

mais le but est de lire rapidement la carte (dès qu'elle est insérée) et donc c'est une perte de temps.

J'attendais éventuellement une fréquence beaucoup plus élevée - 500 ms semble très correct.

Par contre en explorant la librairie et en relisant ton code je n'ai pas vu de MapColID.Clear entre 2 appels -
n'ayant que parcouru les méthodes fournies par la dll, est-ce normal ?

**DarkVader** · 13/11/2007, 09h28

Certaines fonctions ne sont même pas documentées dans leur pdf.
Contacte-les directement, étant donné le peu de documentation, ce sera un gain de temps.