Discussion :

[thierrybatlle]

Bonjour à tous,

Je dois dans une application charger une image avec des contrastes de gris et de noir.
Je dois analyser cette image pixel par pixel et selon un coefficient que je vais déterminer le pixel sera blanc ou noir.

Ma question est comment charger une image et la lire pixel par pixel et modifier la couleur du pixel ?

Merci bien.

[ErwanA]

C'est la fonction dPixelCouleur.
Tu as aussi la fonction dPixelOpacité qui pourrait te servir.

Je pense que tu auras aussi besoin de la fonction dPoint pour modifier ton pixel ou peut-être des fonction dModifie*.

Donc, il te faut un champ image, dans lequel tu affiche ton image en faisant attention aux dimensions du champ (les proprités ..Largeur et ..Hauteur te saurons utiles).
La fonction InfoBitmap te seras utile pour connaitre les dimensions de ton image.
Et ensuite une double boucle te permettant de parcourir les pixels.

[hpascal]

Bonjour

Depuis Windev 17 il y a le type Image qui permet d'éviter de passer par un champ

[ddom76]

Voila un bout de code exemple pour une procédure qui va modifier tous les pixels avec une couleur au hasard. Je pense que tu pourras facilement l'utiliser pour tester pour tester ton coeff. et convertir en blanc ou noir.

Exemple d'appel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
// Création d'une image bidon de 500/500
X est une Image = dCopieImageEcran(1,1,500,500)
// Appel procédure en passant l'image
TestPixelImages(X)
 
 
PROCEDURE TestPixelImages(Par_Image est une Image)
 
LOC_Pixel est une Couleur
POUR TOUT LOC_Pixel DE Par_Image.Pixel
	LOC_Pixel.Bleu=Hasard(1,255)
	LOC_Pixel.Rouge=Hasard(1,255)
	LOC_Pixel.Vert=Hasard(1,255)
FIN

Dominique Daussy