Discussion :

[mina777]

Bonsoir,
je veux stocker dans un fichier texte les niveau de gris d'une image ,pouvez vous m'aider svp je suis débutante en delphi.

[mick605]

Salut !

Qu'est ce que tu ne sais pas faire :
Creer un fichier texte ?
Calculer un niveau de gris ?
Ouvrir une Image ?
Autre chose ??

[Droïde Système7]

Je serais toujours stupéfait devant des threads, ne comportant qu'une seule ligne de description

Bien souvent, même sans aucune virgule ; ici ce n'est pas le cas

Je ne sais pas si ça peut t'aider, mais regarde par ici, des exemple à télécharger qui traitent indirectement de ce niveau de gris :

http://delphi.developpez.com/sources...radestringgrid etc.

@+

[mina777]

SAlut,
merci pour vos réponse ,je m'explique encore :je veus lire chaque couleur d'un pixel d'une image et la stocker dans une une fichier .txt (convertir l'image en un fichier texte ) cette fichier sera stocker par la suite dans une mémoire à fin d'être traiter. ce que je cherche maintenant est comment convertir l'image en un fichier .txt sous delphi. j'éspére que j'ai bien posé ma question.

[Droïde Système7]

ce que je cherche maintenant est comment convertir l'image en un fichier .txt sous delphi. j'éspére que j'ai bien posé ma question.

Un fichier "image" n'a rien à voir par rapport à un fichier texte = .txt

Mais tu peux très bien changer les extensions... mais à question tronquée...

Si tu nous donnais la raison de cette conversion, ce serait plus simple, non ?

[mina777]

Salut;

j'ai une idée que je dois utiliser couleur=image.canvas.pixel[i,j] pour lire la couleur de chaque pixel ,puis utiliser "assign "à fin de stocker cette valeur dans le fichier texte(juste une idée je sais pas comment coder).
Le but de cette conversion est copier ensuite le contenu de cette fichier .texte dans une fichier .mif dans une mémoire rom sous quartus et appliquer un certain traitement.
En effet ,c'est par cette méthode qu'on peut charger une image dans une mémoire.
Le problème que je suis débutante en delphi et j'arrive pas à faire le code pourtant l'idée est facile .

[Droïde Système7]

Re,

Fallait le dire

Déjà pour te donner une idée :

...
Cette opération va nous permettre maintenant d’étudier dans la partie suivante de ce tutoriel la création de l’histogramme d’une image en niveau de gris.
...

http://pecaudc.club.fr/TutorielTIDelphi.php

Très bonnes doc

Compléments :
http://www.developpez.net/forums/d16...-gris-16-bits/

Sur Google : tape Function GrayScale

@+

[mina777]

voila c que j'ai codé j'obtient le fichier txt mais normalement une couleur prend une valeur entre 0 et 256 alors que je trouve des valeurs fausses (regardez le fichier .txt)

[mina777]

pardonnez moi voila le code
oncernant le fichier texte les valeurs sont de l'ordre de 11754665!!!!!!!!!!!

[mick605]

Salut

C'est normal : pour une couleur, il y a 3 composantes : le Rouge, le Vert et le Bleu. chacune de ces composantes varie de 0 a (2^8)-1 soit 255. Ta couleur varie donc entre 0 et 2^(8*3)-1 !

Pour un pixel, trouver le niveau de gris correpondant correspond a faire la moyenne de ces 3 composantes. Donc pour chaque pixel, tu prends les 3 composantes RVB, tu les ajoutes et tu divise par 3. Tu auras enfin une valeur de 0 à 255.

Enfin, pour le fichier texte, comment veux tu qu'il soit structuré :

Code :

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

000-000-152-121-254-....

ou

Code :

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

1
2
3
4
5
000
000
152
121
254

ou plusieurs autres solutions ...

Edit : Je viens de voir que tu veux ton fichier avec une couleur par ligne.
Tu pourrais utiliser un Mémo pour voir en meme temps ton fichier texte :
a chaque couleur, tu fais Memo1.lines.add(Ta Couleur);
Enfin, a la fin de tes boucles for, tu fait Memo1.lines.SaveToFile(SaveDialog1.FileName);

Voila

[mina777]

Je vous remercie infiniment pour votre aide

[mina777]

mick605

j'ai écrit les deux instruction suivante pour lire la couleur et la stocker dans la fichier, svp comment je dois écrire pour stocker le niveau de gris de chaque pixel.j'ai compris votre explication mais je ne sais pas comment la coder.

C:=Image1.Picture.Bitmap.Canvas.Pixels[i,j];
WriteLn(txt,C);

[mina777]

je réussie à le faire

[Droïde Système7]

Tant mieux alors !

N'oublie pas de lire ma signature...

[mick605]

Super !

Donc, comme l'as dit Droide Systeme7 , n'oublie pas le tag resolu, et, au lieu de poster plusieurs fois, utilise le bouton Editer, en bas de chaque message

Bonne chance pour la suite !

[mina777]

Je vous remercie de nouveau mick605 et Droïde Système7