Calcul de correlation entre 2 images

Soyez le premier à donner votre avis sur cette source.

Vue 17 827 fois - Téléchargée 1 477 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
18
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
12 mars 2006

SAlut à vous tous,

tu peux utiliser cette fonction dans l'evènement OnClick des deux images puis tu passe comme paramètre Img: le nom de l'image clickée
(Sender as TImage) ou directement Image1 ou Image2 et BTAFF1, BTAFF2: tes deux button et pix pour enregistrer les pixels trouvés

j'espère être clair

CHAO
Messages postés
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
21
Bon ok, j'ai zappé une étape... C'est juste pour dire que ScanLine n'est pas obligatoire pour gagner du temps. La méthode donnée en lien permet de gagner autant en vitesse tout en ne bouffant presque rien en ligne de code.

;)
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
slt grandvizir ,
peux tu m'expliquer le pourquoi de ce lien ici ?
Merci
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
2
slt,
Est ce que tu pourrais me montrer stp comment tu utiliserais cette procedure parce que la serieux je suis dans le brouillard,
Ca doit etre surement con mais je ne vois vraiment pas comment !
Sinon Merci
Et
Ciao
Messages postés
18
Date d'inscription
mardi 28 octobre 2003
Statut
Membre
Dernière intervention
12 mars 2006

Salut à vous tous
voilà, t'as demandé s'il y idées sur la fonction je te propose ça:
type
TPixels = array [0..9000000] of Integer;
TForm1 = class(TForm)
BDDI: TOpenPictureDialog;...
...
...
public
{ Déclarations publiques }
procedure OuvImage(Img: TImage; BTAFF1, BTAFF2: TButton; var Pix: TPixels);
...
...
procedure TForm1.OuvImage(Img: TImage;BTAFF1, BTAFF2: TButton; var Pix: TPixels);
var
Scan : TypePRGBArray;
x,y :integer;
mv,mb,mr: Integer;
begin
if ouvrirImg(BDDI,Img)=true then
begin

gauge1.MaxValue:=Img.Picture.Bitmap.Height-1 ;
n:=0;
for y:=0 to Img.Picture.Bitmap.Height-1 do
begin
gauge1.Progress:=y;
Scan := Img.picture.Bitmap.ScanLine[Y];

for x:=0 to Img.Picture.Bitmap.Width-1 do
begin
mR := Scan[X].Rouge;
mV := Scan[X].Vert;
mB := Scan[X].Bleu;

Pix[n]:=RGB(mr,mv,mb);
inc(n);

end;
end;

BTAFF1.Enabled:=true;
if (BTAFF1.Enabled=true) and (BTAFF2.Enabled=true) then Corr.Enabled:=true;
end;
end;

si quelqu'un a une autre idée, on est là pour écouter.
a+
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.