Discussion :

[mIch°°]

Bonjour a tous,
Je suis en train de realiser un filtre d'erosion sur une image et j'ai un petit probleme d'image temporaire.
Je travaille sur deux images;
la premiere (la source image321) est sur le canvas.
la deuxieme (la destination image322) est aussi sur le canvas.
lorsque je modifie l'image321 pour realiser une nouvelle image322 avec mon code dans une procedure. tous marche tres bien.

L'idée est d'utiliser ce code dans une fonction, je ne peux donc pas utiliser image321 et image322. je passe donc un argument:

soit le code suivant:

Code :

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

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Function ImErode(ImgTemp1:TBitmap32): TBitmap32;
var i, j, z: Integer;
SizeStrel: Integer;
ImgTemp:TBitmap32;
maxValue, ValuePix: Integer;
begin
        SizeStrel:=2;
        ImgTemp:=ImgTemp1;
        // X
        // O
        // X
        for i:=0 to ImgTemp1.Width-1 do
        begin
                j:=SizeStrel DIV 2;
                repeat
                        maxValue:=0;
                        for z:=-(SizeStrel DIV 2) to SizeStrel DIV 2 do
                        begin
                                ValuePix:=Intensity(ImgTemp1.Pixel[i,j+z]);
                                if ValuePix>maxValue then maxValue:=ValuePix;
                        end;
                        ImgTemp[i,j]:=maxValue*65793;
 
                        Inc(j);
                until (j>=ImgTemp1.Height-1-SizeStrel DIV 2);
        end;
 
        //  XOX
        for j:=0 to ImgTemp1.Height-1 do
        begin
                i:=SizeStrel DIV 2;
                repeat
                        maxValue:=0;
                        for z:=-(SizeStrel DIV 2) to SizeStrel DIV 2 do
                        begin
                                ValuePix:=Intensity(ImgTemp1.Pixel[i+z,j]);
                                if ValuePix>maxValue then maxValue:=ValuePix;
                        end;
                        ImgTemp[i,j]:=maxValue*65793;
                        Inc(i);
                until (i>=ImgTemp1.Width-1-SizeStrel DIV 2);
        end;
ImErode:=ImgTemp;
end;
 
//la procedure qui appelle la fonction
procedure TForm1.Button1Click(Sender: TObject);
begin
        Image322.Bitmap:=ImErode(Image321.Bitmap);
end;

en fait, ce qui se passe c'est que le programme modifie l'image destination non pas a partir de l'image source mais a partir de la destination!
donc comment puis je faire....
j'espere que j'ai ete clair... merci....

[Pedro]

Ouille!

Met les balises Code... C'est incompréhensible comme ça...

[mIch°°]

Désolé un petit oubli...

[Pedro]

Ben y a un truc bizarre dans ta fonction: Y a pas de Result !! Ta fonction ne renvoie rien...

[Bestiol]

Il utilise le nom de la fonction : ImErode

Je me suis fait la même remarque avant de voir ça... Mais peut-être que ça ne fontionnera que si tu utilises "Result" !

Mais je pense que tu devrais plutôt faire une procédure, avec en paramètres ImgTemp1 et Destination passée en "var" :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure ImErode(ImgTemp1:TBitmap32; var Destination: TBitmap32);
begin
  ...
end;
 
//Appel de la procédure
procedure TForm1.Button1Click(Sender: TObject);
begin
  ImErode(Image321.Bitmap, Image322.Bitmap);
end;

[mIch°°]

ah zut c'est l'ancien code... j'ai modifié... encore désolé...

[mIch°°]

J'ai tenté d'utiliser Result mais c'est exactement la meme chose. Pour la procedure il n'accepte pas l'utilisation de var car c'est un objet (peut etre un probleme avec l'utilisation de la bibliotheque G32).
Bref, malgré vos efforts, le probleme est toujours le meme.
En fait, si l'on regarde le code, on peut voir que je declare :

Code :

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

ImgTemp:=ImgTemp1;

Je modifie ensuite ImgTemp, mais pas ImgTemp1... Et j'ai comme l'impression que c'est la que sa plante. Lorsque je tape:

Code :

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

1
2
ImgTemp:=ImgTemp1;
ImgTemp.clear; // pour mettre l'image en noir

Le programme marche mais m'affiche une image noire... Alors qu'il devrait me faire une erosion de l'image ImgTemp1. Si j'enleve :

Code :

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

ImgTemp:=ImgTemp1;

Le programme plante car il n'a pas la taille de l'image... Bref, je suis dans la panade... si vous avez d'autres idées...

[ElNan]

Le problème provient du fait que ImgTemp et ImgTemp1 pointent sur la même Image. N'oublie pas que ce sont des pointeurs.
Pour avoir un ImgTemp dans lequel tu veux travailler indépendamment tu dois le créer :

Code :

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

ImgTemp:=TBitmap32.Create(Self);

plutôt que

Code :

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

ImgTemp:=ImgTemp1;

Alors ton imgTemp a sa propre image qui sera l'image transformée de ImgTemp1.

Je ne sais pas si je suis clair mais le principe est là à mon avis.

[mIch°°]

Je vois ce que tu veux dire. En fait, mes deux images avaient le meme pointeur. Bref, je vais essayer de recreer un objet TBitmap32... faut que je regarde ce qu'il faut definir. Car create(self) ne fonctionne pas avec Gr32....

[ElNan]

Oui je n'ai pas l'unité contenant la classe TImage32 je crois. Je ne peux donc t'aider à ce niveau. Peut-etre est-ce :

Code :

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

ImgTemp:=TBitmap32.Create;

Bon courage.

[octal]

c'est normal que tu n'ai pas le résultat escompté.
quand tu met au début de ton code

Code :

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

ImgTemp:=ImgTemp1

c'est que tu fait pointer (désolé pour le terme, c'est une déformation professionnelle, les devloppeurs C me comprendront
ImgTemp (ta var locale) sur l'objet que tu passe en parametre. Et comme les classe sont par référence, tu modifie directement ton objet passé en param.
et quand tu met à la fin de ta fonction

Code :

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

ImErode:=ImgTemp;

tu ne fait que renvoyé la référence (et donc l'objet passé en param) que tu a déja "érodé" dans ta fonction.
pour régler ton pb il te faudra CREER une variable temporaire, y copier l"image passée en parametre, la modifié et la renvoyer directement comme résultat de ta fonction (sans la détruire, c le prcessus appelant qui doit la détruire).
je m'explique :
Ton code actuel ressemble à celà:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function ImErode(ImgTemp1:TBitmap32): TBitmap32; 
var 
ImgTemp:TBitmap32;  // ta var tempo
 
begin 
        SizeStrel:=2; 
        ImgTemp:=ImgTemp1;  // ta var tempo récupère la réf passé en param
// en fait ici tu ne fait rien c juste comme tu disait que ImgTemp pointe sur le meme objet que ImgTemp1 (parce que les classes sont passé par réf en delphi) ey du coup toute modif sur l'image pointé par ImgTemp modifiera ImgTemp1 et du meme coup l'iimage originale passée en param
...
//ici tu érode ton image  ImgTemp et donc ImgTemp1
puis tu la retourne comme résultat de la fonction 
        ImErode:=ImgTemp; // qui est égal d'"ailleeur à  ImgTemp1 
end;

PS. Que tu retourne "Result = " ou "ImErode:=" c'est la meme chose en delphi... "'NomDeFonc = " est identique à "Result=" ... sauf que Result peut être utilisé comme var temporaire dans ta fonction .. mais au niveau résultat c la meme chose.
la solution
il faut créer un objet temporaire ImgTemp dans la fonction, copier dedan l'image passée en param, puis le renvoyé en result

Code :

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

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
 
Function ImErode(ImgTemp1:TBitmap32): TBitmap32; 
var 
ImgTemp:TBitmap32;  // ta var tempo
 
begin 
        SizeStrel:=2; 
// je connait pas bien le constructeur de ton TBitmap32
// on crée la varr tempo
        ImgTemp :=  TBitmap32.Create(...);
//  on copie l'image .. je sais pas si ton TBitmap32 contient une fonction pour le faire
// dans delphi TBitmap possede la fonction Assign
        ImgTemp.Assign(ImgTemp1);  // ta var tempo récupère une copie de l'image 
 
// Vérifie ton objet TBitmap32 .. je connait pas son interface, normaement il doit y avoir une fonction pour y copier une image provenant d'un autre TBitmap32 
 
//ici tu érode ton image  ImgTemp et donc la copie
//puis tu la retourne comme résultat de la fonction 
        ImErode:=ImgTemp; 
// comme tu retourne l'objet créé il faut pas le détruire en faisant 
// un ImgTemp.Free  ! c la fonction apelante qui devra le faire
end; 
 
la fonction apelante devra être ainsi
 
//Appel de la procédure 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Image322.Bitmap := ImErode(Image321.Bitmap); 
end
où  Image322.Bitmap devra être une var globale du type TBitmap32 et qui devra être détruite.
Attention à ne pas oublié: Chaque appel à  ImErode (qqchose) CREE une instance de TBitmap32  ImgTemp :=  TBitmap32.Create(...); donc faut pas oublier de les libérer

voilà .. j'espère que ca te sera utile

[mIch°°]

Excellent. Bon je suis amplement d'accord avec toi. J'etais justement en train d'essayer un assign... il y a bien cette fonction dans le GR32, le seul probleme, c'est que crashe encore...
je despere pas, je vais bien trouver la solution... merci encore.

[octal]

Excellent. Bon je suis amplement d'accord avec toi. J'etais justement en train d'essayer un assign... il y a bien cette fonction dans le GR32, le seul probleme, c'est que crashe encore...
je despere pas, je vais bien trouver la solution... merci encore.

j'ai bien mentioné plus haut que je conaissait pas l'interface de ton TBitmap32. J'ai mis assign juste parce qu'elle est utilisée dans la VCL. Vérifie ton TBitmap32 il se pourrait que assign n'a absolument pas la fonction voulue (copie d'image). vérfie bien ta calsse il se pourrait qu'il y ait une autre fonction (BitBltCopy oy Copy ou autre chose .... ).

[mIch°°]

J'ai trouvé. Cela semble assez bizarre mais ca marche... En fait, il suffisait de faire un assign mais par contre il ne faut pas liberer l'image. Ce que je trouve assez etrange, mais bon ca marche... Merci encore a tous.

[octal]

vérife plus haut mon post, je t"avais bien dit qu'il fallait pas libérer l'image. ce n'est qy'une fois que t'en a plus besoin que tu doit la libérer