Calcul de correlation entre 2 images

Soyez le premier à donner votre avis sur cette source.

Vue 18 025 fois - Téléchargée 1 495 fois

Description

Aucune description n'est fournie pour ce projet

Codes Sources

A voir également

Ajouter un commentaire Commentaires
medelias Messages postés 18 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 12 mars 2006
12 févr. 2006 à 11:13
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
cs_grandvizir Messages postés 1106 Date d'inscription samedi 8 novembre 2003 Statut Membre Dernière intervention 3 septembre 2006 22
11 févr. 2006 à 22:46
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.

;)
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 2
11 févr. 2006 à 20:50
slt grandvizir ,
peux tu m'expliquer le pourquoi de ce lien ici ?
Merci
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 2
8 févr. 2006 à 20:23
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
medelias Messages postés 18 Date d'inscription mardi 28 octobre 2003 Statut Membre Dernière intervention 12 mars 2006
8 févr. 2006 à 10:19
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.