pb rafraichissementRésolu

Question

Bonjour à tous,

Voila je fais un programme qui détecte des couleurs de 6 points pour intéragir en fonction de celles ci.
Pour cela je fais une capture d'écran que je mets dans un picturebox pour ensuite récupérer la valeur RGB du pixel central et ceci pour 6 picturebox en même temps.
Or je dois faire ceci à une fréquence très rapide : 100ms, et au bout d'un moment (qlq minutes), il y a un plantage, la capture ne marche plus, ma fenêtre vb ne se rafraichie plus bref le programme plante complet.

Est ce que vous savez comment je pourrais remédier à ceci?

Merci d'avance.

Micke

Renfield · Accepted Answer

juste qu'il faut libérer le DC obtenu :

Dim hDesktopDc as Long
    hDesktopDc = GetDC ( 0 )
    ...
    ...
    ...
    ReleaseDC 0 , hDesktopDc

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_DARKSIDIOUS · Answer

Surveille l'occupation mémoire, il y a fort à parier que cela vienne d'une fuite mémoire !

Tu ne doit pas supprimer correctement les DC je pense !

FreezerCorp · Answer

essaye picturebox.dispose

cs_mickei · Answer

effectivvement la mémoire augmente.
Qu'est ce que tu appel les DC?
je ne trouve pas picturebox.dispose

cs_DARKSIDIOUS · Answer

En vb6, tu n'auras pas de dispose : ca ne s'applique quand .NET !

Un DC, c'est un Device Context, c'est un endroit où sont stockées les images. Si tu crée un DC et que tu le vide pas, la mémoire est vite saturée.
Passe nous le bout de code qui permet de faire la capture et qui copie l'image dans le picturebox, le problème vient sûrement de là !

cs_mickei · Answer

Dim retAPI      As Long

Picture3.Picture = LoadPicture
 
retAPI = BitBlt(Picture3.hDC, 0, 0, Picture3.ScaleWidth, Picture3.ScaleHeight, GetDC(0), posnour.X - Picture3.ScaleWidth * 0.5, posnour.Y - Picture3.ScaleHeight * 0.5, vbSrcCopy)

Picture3.Refresh

'fait la cible
Picture3.Line (Picture3.ScaleWidth / 2, 0)-(Picture3.ScaleWidth / 2, Picture3.ScaleHeight), vbBlack

Picture3.Line (0, Picture3.ScaleHeight / 2)-(Picture3.ScaleWidth, Picture3.ScaleHeight / 2), vbBlack

cs_mickei · Answer

si je ne me trompe, "Picture3.Picture = LoadPicture" doit  normalement vider la mémoire de la picturebox non ?
et c'est BitBlt qui charge la capture d'écran.

j'ai oublié de préciser dans le code : 
Public Declare Function BitBlt Lib "gdi32" (ByVal hDCDest As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hdcSrc As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long

cs_DARKSIDIOUS · Answer

Oups, désolé j'avais zapper ton avant-dernier message !

Donc le loadpicture doit (en théorie) vider le picturebox, MAIS il n'est pas censé le faire. Donc rien ne veut un bon :
Set Picture3.Image = Nothing
Set Picture3.Picture = Nothing

pour être sûr.

Enlève aussi l'autoredraw (ca peut venir de là !!!) s'il est activé. Je sais qu'il est très gourmand en mémoire, et provoque en plus une fuite mémoire si on charge de nombreuses images à intervale régulier !

Renfield · Answer

qu'il est beau, ce   "GetDC(0)
"

faut le contrebalancer avec un ReleaseDC

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_DARKSIDIOUS · Answer

Oui aussi, c'est vrai

cs_mickei · Answer

j'ai essayé avec Set Picture3.Picture = Nothing mais aucun changement et si je vire l'autoredrraw, j'ai plus d'image du tout :(

pour le GetDC(0)  qu'est ce que tu veux dire par contrebalancer ?

cs_mickei · Answer

c'est bon j'ai pigé, et ça marche niquel.

Merci bcp

Pb rafraichissement

12 réponses

Votre réponse

Discussions similaires