DÉTECTEUR DE MOUVEMENTS AVEC UNE WEBCAM

Commentaire de Billou le 29/03/2005 16:30:10

Voilà, j'ai modifié mon fichier.

Commentaire de Billou le 29/03/2005 23:14:28

salut,

lorsque tu es en mode "détection", est-ce qu'un carré rouge apparaît en dessous de l'image? Si c'est le cas, il doit y avoir un problème pour l'enregistrement de ton image. Sinon, essaye de mettre le réglage de la sensibilité a 1 ou 2 et surtout n'oublie pas de cocher "sauver image".

a++

Commentaire de Kenavo le 30/03/2005 09:26:42

Salut,

Il y a plusieurs problèmes dans la fonction différence :
1 - les boucles for .. do doivent être :
for i := 0 to (Bmp1.Height-1) div Rapport  et
for j := 0 to (Bmp1.Width-1) div Rapport
Bmp.Canvas.Pixels[Bmp.Width,Bmp.Height] est hors rectangle !

2 - La fonction Pixels n'est pas la plus adaptée ni la plus rapide pour faire de l'analyse d'image.
Il est préférable d'utiliser la fonction Scanline du bitmap:

3 - En comparant les couleur comme tu le fais, tu effectues une comparaison du bleu (couleur = $10000*Bleu + $100*Vert + Rouge).
Et ce n'est pas la couleur la plus intéressante,  elle est très bruitée. Il est préférable d'utiliser le vert comme base de comparaison.

Je te propose :

function TForm1.Difference(): Integer;
Const
  MaxPixels = 480 * 640;
type
  TBuffer = array[0..MaxPixels] of TColor;
var
  Coul1, Coul2: TColor;
  I, II, J, JJ, Erreur, rapport: Integer;
  p1, p2: ^TBuffer;
const
  SensiCoul = 8;      // 8 points d'écart d
begin
  Rapport := form1.TrackBar2.Position;
  Erreur := 0;
  P1 := Bmp1.ScanLine[Bmp1.Height - 1];  (**)
  P2 := Bmp2.ScanLine[Bmp2.Height - 1];  (**)
  for I := 0 to (Bmp1.Height - 1) div Rapport do
  begin
    II := I * Rapport;
    for J := 0 to (Bmp1.Width - 1) div Rapport do
    begin
      JJ := Rapport * J;
      Coul1 := P1^[(479-ii)*Bmp1.Width + JJ]; (**)
      Coul2 := P2^[(479-ii)*Bmp1.Width + JJ]; (**)
      if abs((Coul2 and $00FF00)-(Coul1 and $00FF00)) > (SensiCoul * $100) then Inc(erreur);
    end;
  end;
  Result := (Round(Erreur / ((Bmp1.Height / Rapport) * (Bmp1.Width / Rapport)) * 100));
end;

-----------------------------------------------------------------------------------------
(**) La fonction Scanline renvoie l'adresse de la ligne passée en paramètre.
Si on observe ces pointeurs, on voit :
1 - que le bitmap est contenu dans une table continue
2 - que le début de cette table est la ligne d'indice de plus fort (= Bmp.Height-1)
on en déduit :
qu'on peut lire toute l'image avec un seul pointeur renvoyé par Scanline[Bmp.Height - 1]
que l'indice du pixel de coordonnées(i,j) est ((Bmp.Height-1) - j * Bmp.Width + i)

Ken@vo

Commentaire de Billou le 30/03/2005 12:02:17

Bonjour,

Je vous remercie grandement pour vos commentaires très constructif et je vais m'empresser de modifier mon code en conséquence.

Maurico : je sais que ma source manque de commentaire je ne suis pas très doués pour en écrire. Mis à par cela, je ne comprend pas non plus la façon dont marche les deux lignes que tu as soulignées. Je les ait bêtement copier du code figurant ici http://www.delphifr.com/code.aspx?id=23967  comme je l'ai mis dans ma description. Désolé de ne pas pouvoir t'en dire plus.

a ++

Commentaire de Kenavo le 30/03/2005 14:39:13

Gagné Mauricio !
Au lieu de vous donner quelques extraits, je vous conseille de vous reporter aux pages MSDN qui traitent du sujet :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_using_video_capture.asp pour les généralités
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_creating_a_capture_window.asp pour la fonction capCreateCaptureWindow (320 et 240 sont donc les dimensions de la fenêtre de capture)  
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/multimed/htm/_win32_video_capture_messages.asp pour les constantes des messages
1034 = WM_CAP_DRIVER_CONNECT
1084 = WM_CAP_GRAB_FRAME
1054 = WM_CAP_EDIT_COPY
J'avais fait déja ce commentaire. Ces constantes sont définies dans l'unité AviCap.pas que vous pouvez trouver sur le NET
Y a beaucoup à manger, et c'est pas facile de tout digérer !

Bon courage !

Ken@vo

Commentaire de jmp77 le 30/03/2005 15:20:31

Re,

C'est bon je viens de la trouver pour les autres il faut aller la chercher ici :
http://www.delphifr.com/zipview.aspx?ID=23967&f=Webcam%2favicap32.dll&dl=1
Extrait de cette source :
http://www.delphifr.com/code.aspx?id=23967

Alors franchement sinon pour le 'C:\windows\system32\avicap32.dll' en dur dans le programme je te felicite pas Billou. Moi je suis en win2000 donc 'C:\winnt\system32\avicap32.dll'.

++,
JMP.

Commentaire de mternet le 22/04/2005 23:34:26

Hello
J'ai essayé ce petit prog source  : l'affichage webcam fonctionne nickel mais dès que je valide la détection-->plantage au niveau de la fonction Difference() à la ligne:
if abs((Coul2 and $00FF00)-(Coul1 and $00FF00)) > (SensiCoul * $100) then Inc(erreur);
Je suis pourtant certain que cela a déjà fonctionné mais je ne m'explique pas ce plantage...
Mon OS est XP SP1...