Delphi et le traitement d'image

Version imprimable

30/06/2010, 15h14
PaulR

Delphi et le traitement d'image

Bonjour à tous,

Ce n'est peut-être pas le lieu idéal pour poser ma question, mais je n'en trouve pas d'autre... La question est simple : y a-t-il des librairies delphi qui permettent de "nettoyer" une image.
Un petit exemple valant mieux qu'un long discours, voici donc... un petit exemple : j'ai la photo d'une page d'un vieux livre : papier jauni, petites taches etc. Et je voudrais faire disparaître de mon image le plus possible de "cacas". Une minuscule image valant mieux qu'un petit exemple, j'ai mi un petit jpg en PJ : comment passer de l'image de gauche à celle de droite, voilà ce que je voudrais pouvoir automatiser par programme...

Il faut savoir que je suis programmeur delphi orienté base de données, et donc un total béotien en traitement d'image, je n'entrave que dalle à l'anti-aliasing, blur, rvb, schmurf et autres sgrouing des spécialistes. Ah oui, je suis un blaireau en math, aussi :-)

Merci de votre patience !

PS : S'il n'y a pas de librairie utilisable en delphi, j'imagine que les programmes standard de traitement d'image permettent de faire ce genre de travail ? (je vous l'ai dit, que j'étais une buse en traitement d'image, hein).
02/07/2010, 11h57
peter27x

Sinon essayes avec un logiciel style photofiltre gratos en téléchargement (je m'en sers souvent), tu pourras piquer une couleur et la remplacer par une autre, ou bien y'a des menus avec pas mal de filtres, etc...
02/07/2010, 14h24
Gilbert Geyer

Bonjour,

Citation:

photo d'une page d'un vieux livre : papier jauni, petites taches etc. Et je voudrais faire disparaître de mon image le plus possible de "cacas".
... voilà ce que je voudrais pouvoir automatiser par programme...

S'il s'agit de ne récupérer sur la photo de la page du livre que le texte et/ou un dessin supposés être beaucoup plus foncés que le reste de la page une solution d'automatisation programmable assez simple peut être envisagée :
1) Convertir le fichier de la photo en un BitMap-Source,
2) Créer un BitMap-Destination de même taille et de couleur blanche,
3) Copier depuis le BitMap-Source vers le BitMap-Destination uniquement les points-source dont les composantes R,G et B du pixel sont, soit toutes, soit au moins l'une d'elles, inférieure(s) à une valeur de seuil de par exemple 30 ou 100. La valeur de ce seuil est à déterminer par des essais : avec un seuil de 255 on récupèrerait tous les "cacas" et le fond jauni donc l'idéal est que ce seuil soit aussi faible que possible.
On peut aussi compliquer un peu en utilisant plusieurs seuils délimitant des plages de couleurs que l'on souhaite soit "laisser passer" soit ignorer.

A+.

Re-bonjour,

Tiens pendant que le sujet est chaud, un bout de code qui crée un BitMap-Destination à partir d'un Bmp-Source en ignorant un certain nombre de couleurs de la source :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
type     pLigScan = ^tLigScan;
         tLigScan = array[Word] of TRGBTriple;
 
function  BmpCopierSauf(const bmpSrc : tBitMap; SeuilR,SeuilG,SeuilB : integer; UnSeul : boolean) : tBitMap;
//        Renvoie un BitMap ne retenant de bmpSrc que les couleurs dont la composante :
//        - R est <= à SeuilR si UnSeul = True,
//        - ou G est <=  à SeuilG si UnSeul = True,
//        - ou B est <=  à SeuilB si UnSeul = True,
//        - et toutes <=  à leur seuil si UnSeul = False.
var       z,X,Y : Integer; LigS,LigD : pLigScan;
begin     Result:=nil;
          if bmpSrc=nil then EXIT;
          Assert(bmpSrc.PixelFormat = pf24Bit);
          Result:=tBitMap.create;
          with Result do begin
               PixelFormat:=pf24bit; width:=bmpSrc.Width; height:=bmpSrc.Height;
          end;
          for Y:=0 to bmpSrc.Height-1 do
          begin LigS := bmpSrc.ScanLine[Y];
                LigD := Result.ScanLine[Y];
                for X :=0 to bmpSrc.width-1 do
                begin if UnSeul then begin
                         if (LigS[X].rgbtRed   <= SeuilR)
                         or (LigS[X].rgbtGreen <= SeuilG)
                         or (LigS[X].rgbtBlue  <= SeuilB) then LigD[X]:= LigS[X];
                      end else begin
                          if  (LigS[X].rgbtRed   <= SeuilR)
                          and (LigS[X].rgbtGreen <= SeuilG)
                          and (LigS[X].rgbtBlue  <= SeuilB) then LigD[X]:= LigS[X];
                      end;
                end;
end;

Exemple d'utilisation et de résultat :
bmpFinal:=BmpCopierSauf(Image1.Picture.BitMap, 128,128,128, False);
Image1.Picture.BitMap:=bmpFinal;
avec la combinaison des paramètres 128,128,128, False
et des photos-source multicolores il ne reste sur le BitMap-Résult-Final que des parties noires ou très foncées.
avec les mêmes paramètres et True au lieu du False le nombre de couleurs qui passent est plus important.

A+. :D

19/07/2010, 10h53
PaulR

Parfait !

Mais c'est absolument très assurément exactement parfaitement totalement précisément ce que je recherchais !
Merci à tous !

On ne le dira jamais assez,
developpez,
c'est supez !

M'en vais clôturer l'échange.