Einzelnen Beitrag anzeigen

Benutzerbild von arbu man
arbu man

Registriert seit: 3. Nov 2004
Ort: Krefeld
1.108 Beiträge
 
Delphi 7 Professional
 
#1

Bild störungen entfernen

  Alt 22. Feb 2007, 21:16
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
Miniaturansicht angehängter Grafiken
done_228.jpg   webcam_145.jpg  
Björn
>> http://bsnx.net <<
Virtual DP Stammtisch v1.0"iw" am 19.09.2007 - ich war dabei!
  Mit Zitat antworten Zitat