Récupération de la couleur d'un pixel dans un bitmap ET SANS FORM- Pb avec l'uti

Question

Bonjour à tous, 

Je suis en cours de développement d'un petit programme pour rogner automatiquement des images en éliminant les zones de blanc des contours. Sur la partie rognage tout est ok. Par contre, je tente désespérément de mettre au point une function permettant de tester la couleur des pixels d'un fichier .jpg pour délimiter la zone à rogner à gauche de l'image, et ce, en utilisant les API createdc, getpixel et deletepc?. Et c'est là que les problèmes commencent.

Tout semble bien fonctionner sauf que les résultats des couleurs retournées ne sont pas celle de mon image. Je pense que le problème vient de createdc que je n'arrive pas à paramétrer !

Si quelqu'un peut m?éclairer ce serait super !!!

Vous trouverez ci-dessus le début de code en question (soyez indulgents):

Private Function LimiteGaucheARogner()
'renvoie le nombre de pixel à gauche d'une image à rogner

On Error GoTo erreur
 
Dim MyPicture, MyhDC, MyOldjpg, MyPictureHautPix, MyPictureLargPix, PixColor, Posx, PosY, x, y

Set MyPicture = LoadPicture("C:\image.jpg")

MyhDC = CreateDC("", "", "", ByVal 0&)
MyOldjpg = SelectObject(MyhDC, MyPicture.Handle)

MyPictureHautPix = Int(MyPicture.Height / 15) 'Nb de pixels en hauteur
MyPictureLargPix = Int(MyPicture.Width / 15) 'Nb de pixels en largeur

        PosY = 0
        Posx = 0
        For x = 1 To MyPictureLargPix Step 10 ' boucle des x (largeur)
            
            For y = 1 To MyPictureHautPix Step 20 'boucle des y (hauteur)
            PixColor = GetPixel(MyhDC, x, y)
                
                If PixColor > -1 And (y < PosY Or PosY = 0) Then
                PosY = y
                Posx = x
                Debug.Print Hex(PixColor) & " x:" & PosY & " y:" & Posx
                End If
            Next y
        Next x


SelectObject MyhDC, MyOldjpg
DeleteDC MyhDC

mdevaux62 · Answer

Apparemment ton code est en VB6.
Tu devrais je pense pouvoir obtenir le résultat attendu en chargeant ton image dans une Form non visible.
La fonction FormInvisibe.Point(x,y) te reverra alors la valeur de couleur du pixel.

sebcoz · Answer

Merci de ta réponse...
En faite j'ai résolu mon problème en utilisant l'API CreatecomptableDC.

Bonne journée.

Récupération de la couleur d'un pixel dans un bitmap ET SANS FORM- Pb avec l'uti

2 réponses

Votre réponse

Discussions similaires