Saturation mémoire avec l'API Getpixel.

Question

Bonjour à tous !

J'ai le problème suivant : j'utilise l'API Getpixel pour lire les pixel à l'écran et les écrire dans une picturebox. Pas de soucis, j'ai trouvé du code utile ici.
Par contre, plus la boucle For avance, plus l'application est lente, les pixels s'affichent de plus en plus lentement, et tout à coup, hop ! Saturation mémoire (out of memory). Le problème se produit même si je ne mets pas les pixels dans le picturebox.
D'où cela peut-il venir ?

Voici le code. Merci si vous pouvez m'aider ! Je suis sous XP.

Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Function GetPixelScreenColor(ByVal x As Long, ByVal y As Long)
Dim hDCSrc As Long
Dim RGBPixelColor As Long

hDCSrc = GetDC(0&)
RGBPixelColor = GetPixel(hDCSrc, x, y)
GetPixelScreenColor = RGBPixelColor

End Function

Private Sub Command1_Click()
For i = 0 To 100
    For j = 0 To 100
        tmp = GetPixelScreenColor(i, j)
        Picture1.PSet (i, j), tmp
    Next j
Next i
End Sub

BruNews · Answer

GetDC(), il manque son liberateur. Je te laisse aller voir dans MSDN, c'est clairement indique.

ciao...
BruNews, MVP VC++

Saturation mémoire avec l'API Getpixel.

1 réponse

Discussions similaires