Bild störungen entfernen

[arbu man]

Hi,

angeregt von diesen Thread versuche ich z.Z. ein kleines Programm zur Erkennung der LED Position zu schreiben.

Mein ALgo sieht bisher so aus:

Delphi-Quellcode:

function PrepareBitmap(src: TBitmap): TBitmap;
var
  x, y: integer;
  P: PRGBTriple;
begin
  result := TBitmap.Create;
  result.Assign(src);
  for y := 0 to result.Height - 1 do begin
    P := result.ScanLine[y];
    for x := 0 to result.Width - 1 do begin
      if
       (P^.rgbtRed < 255)and
       (P^.rgbtGreen = 255)and
       (P^.rgbtBlue = 255)
      then begin
        P^.rgbtRed := 255;
        P^.rgbtGreen := 255;
        P^.rgbtBlue := 255;
      end else begin
        P^.rgbtRed := 0;
        P^.rgbtGreen := 0;
        P^.rgbtBlue := 0;
      end;
      inc(P);
    end;
  end;
end;

Das ergebnis sieht auch nicht schlecht aus(siehe Anhang). Leider sind auf dem Bild noch ein paar Störungen... Meine Frage nun wie kann ich diese kleinen Weißen Bereich verschwinden lassen ? So das nur noch ein Bereich überig bleibt ? Ich habe keine Idee wie ich das machen könnte

mfg, Björn