Problème d'utilisation mémoire en VB Script

Bonjour,

J'utilise un VB Script pour lire des informations (un compteur) sur une carte "style PCI" fabriquée spécifiquement pour nous.

Cette carte est fournie avec une Dll "PI16". Pour utiliser les fonctions de cette DLL, j'utilise Dynamic Wrapper X.

Toutes les secondes, je vais lancer ma fonction VBS. Cela fonctionne très bien sauf que je pompe petit à petit toute la ressource mémoire du PC.

Voici mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Public Function Lecture(Num_Carte)   Dim Retour Dim DX Dim Tab_Return(1)   Set DX = CreateObject("DynamicWrapperX")   DX.Register "PI16.dll","PI16_read_compteur", "i=uU", "r=l" Retour = DX.PI16_read_compteur (Num_Carte, Compteur)   DX.Register "PI16.dll","PI16_reset", "i=u", "r=l" Retour = DX.PI16_reset (Num_Carte)   Tab_Return(0) = Compteur Lecture = Tab_Return   End Function

---

J'ai essayé de mettre

Set DX = Nothing à la fin de ma fonction mais ça ne change rien

Est ce que quelqu'un a une idée ??

D'avance merci

tu as essayé d'écrire ton code autrement en n'enregistrant tes 2 fonctions Dll une seule fois .. puis toutes les secondes tu fais seulement l'appel de ces deux fonctions dll sans les enregistrer à nouveau....

:oups: je suis pas sur d'être clair la ...

Citation:

---

:oups: je suis pas sur d'être clair la ...

---

si, si :aie:

et sinon quel est l'intérêt du tableau local Tab_Return ?

Merci pour votre aide.

En fait, je lance ma fonction VBS depuis un programme en Adelia Visual Studio. Cet AGL me permet d'exécuter des fonctions de script VBS.

Je lance donc ma fonction toutes les secondes via un timer dans mon programme Adelia. Si je n'enregistre pas mes fonctions dll à chaque fois, ça ne fonctionne pas.

Maintenant, si vous avez une idée pour me permettre de ne pas faire le "Register" à chaque fois, je suis preneur.

si le script est lancé à partir d'un logiciel tiers, la fuite mémoire peut aussi provenir d'une mauvaise implémentation du moteur de script par Adelia
surtout si les concepteurs ont choisi d'appeler directement les interfaces active script sans utiliser le MS Script Control
ce genre de programmation est assez "touchy" et je parle en connaissance de cause
cette fuite est-elle toujours présente avec une fonction qui se contente de créer un objet sans rien faire d'autre, en testant successivement

Code:

---

Set DX = CreateObjet("DynamicWrapperX")

---

et

Code:

---

Set DX = CreateObjet("Scripting.FileSystemObject")

---

une solution serait de déporter le timer dans le script pour éviter les appels incessants à celui-ci mais ça suppose que ledit script puisse accéder
d'une façon ou d'une autre à une variable du programme hôte et parallèlement que ce programme
puisse modifier les variables publiques du script pour sortir proprement de la boucle
exemple:

Code:

---

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

Dim DX Dim LoopFlag   Sub TimerProc(hWnd,uMsg,idEvent,dwTime) Dim Compteur DX.PI16_read_compteur Num_Carte, Compteur DX.PI16_reset Num_Carte .. 'MAJ d'une variable dans le programme hôte Adelia .. End Sub   Public Sub InitLecture(Num_Carte) Dim Ref Dim pTimerProc Dim TimerID LoopFlag=True Set DX = CreateObject("DynamicWrapperX") With DX .Register "PI16.dll","PI16_read_compteur", "i=uU", "r=l" .Register "PI16.dll","PI16_reset", "i=u", "r=l" .Register "user32.dll","SetTimer","i=huul","r=l" .Register "user32.dll","KillTimer","i=hu","r=l" .Register "kernel32.dll","Sleep","i=u" End With Set Ref=GetRef("TimerProc") pTimerProc=oWrap.RegisterCallback(Ref,"i=huuu") TimerID=DX.SetTimer(0,0,1000,pTimerProc) While LoopFlag 'main loop le prog Adelia doit pouvoir désarmer ce flag DX.Sleep 500 Wend DX.KillTimer 0,TimerID End Sub

---