Webcam - Form/Zeiger/LED erkennen?

[Nicolai1234]

Hallo,
ich habe mal eine funktion zum Vergleichen zweier Zahlen geschrieben:

Delphi-Quellcode:

function Compare(c1,c2: tcolor): boolean;
var r1,g1,b1,r2,g2,b2: integer;
begin
result := false;
r1 := c1 and $FF;
r2 := c2 and $FF;
if (abs(r1-r2)<20) then
        begin
        G1 := (C1 shr 8) and $FF;
        G2 := (C2 shr 8) and $FF;
        if (abs(g1-g2)<20) then
                begin
                B1 := (C1 shr 16) and $FF;
                B2 := (C2 shr 16) and $FF;
                if (abs(b1-b2)<20) then result := true;
                end;
        end;
end;

Die funktioniert für deinen Fall auch schon ganz gut. Ich finde immer perfekt den Mittelpunkt der LED.

Ich bin nur gerade im Informatikunterricht und da kann ich jetzt nicht wirklich weiter machen. Ich werde heute anchmittag mal das fertige Projekt reinsetzen.
Momentan dauert eine Analyse eines Bildes ca. 250 ms (1500er Celeron mit Win2000), aber ich denke, den Code kann man noch super optimieren.
Also bis nachher

Edit:
Im Anhang ist mein Projekt aus der Schule, aber der ist etwas unordentlich. Ich mach das anchher nochmal besser und übersichtlicher, aber ich muss das hier "lagern", sonst krieg ich es nicht nach Hause. Und wer Spaß hat, kann sichs ja trotzdem angucken.