AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Webcam - Form/Zeiger/LED erkennen?

Ein Thema von mtin · begonnen am 20. Feb 2007 · letzter Beitrag vom 23. Feb 2007
 
Benutzerbild von mtin
mtin

Registriert seit: 8. Jun 2005
34 Beiträge
 
#1

Webcam - Form/Zeiger/LED erkennen?

  Alt 20. Feb 2007, 21:57
Hallo!

http://img357.imageshack.us/img357/1715/eu3si9.th.jpg

Mein Ziel ist es, in einem Bild von meiner Webcam einen "Zeiger" zu finden, um dann z.B. etwas zeichnen zu können, indem man mit dem Zeiger in der Luft rumhantiert...
Das ganze muss noch recht schnell sein, da es ja live (mind. 5mal/sec) durchgeführt werden muss...
Das Bild von der Webcam in mein Programm zu bekommen ist schon erledigt, aber das finden des "Zeigers" bereitet mir da noch so einige Schwierigkeiten...

Mein aktueller Ansatz funktioniert zwar erstmal annäherungsweise, allerdings hoffe ich, dass jemand eine bessere Idee hat weil zuviele Störfaktoren im Moment einwirken.
Wie man oben auf dem Bild sieht, hab ich einfach so eine Fahrrad-Lampe genommen...Dann wird im Programm per klick auf die Lampe die Farbe "gemessen" und gespeichert. Danach fange ich dann an, Pixel für Pixel jedes Webcam-Bildes in einer endlosschleife abzuscannen...und dann addiere ich von jedem Pixel die rot- grün- und blauwerte und vergleiche diese summe mit der summe der r/g/b werte der gemessenen Farbe, und wenn diese beiden Werte sich bis auf eine bestimmte Toleranzschwelle (z.b. 20) gleichen, dann wird gemeldet "hier ist der zeiger"....
hier der code:
(dabei werden noch jeweils 3 pixel zusammengefasst, um das Grundrauschen der webcam etwas zu minimieren)
Delphi-Quellcode:
y:=0;
repeat
  y:=y+1;
  x:=0;
  i:=0;
  red:=0;green:=0;blue:=0;
  repeat
    x:=x+1;
    i:=i+1;
    c_frame:=pic.Pixel[x,y];
    red := red + TColor32Entry(c_frame).R;
    green := green + TColor32Entry(c_frame).G;
    blue := blue + TColor32Entry(c_frame).B;
    if i=3 then
    begin
      red := round (red/3);
      green := round (green/3);
      blue := round (blue/3);
      if abs(red+green+blue-led_color_sum)<difference then
      begin
        led.X := x;
        led.Y := y;
        Result:=true;
        Break;
      end;
      red := 0;
      blue := 0;
      green := 0;
      i := 0;
    end;
  until (x>=w-2) or (Result=true);
until (y>=h-2) or (Result=true);
das klappt aber nur extrem schlecht...die LED ist eigentlich weiß in der mitte, d.h. als zeiger wird jeder fast weiße pixel im Bild aufgefasst und das ist schlecht..sobald ich aber etwas wirklich rotes auswähle wird praktisch JEDER etwas dunklere Pixel als zeiger angenommen....das ist echt zum verzweifeln!

Kann mir vielleicht irgendjemand helfen?
Vielleicht eine andere Art, diese Toleranzschwelle einzubauen?
Oder ein ganz anderer "Zeiger" (statt meiner roten led?)

bin für jegliche Hilfe dankbar....
  Mit Zitat antworten Zitat
 

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz