Hallo!
Also ich habe dein Code verstanden und der hat auch in meinem Programm funktioniert. Jedoch wollte ich das Programm bei einem Freund testen der einen Bluescreen und ne gute Kamera hat. Bisher hab ich es ja nur per Webcam getestet.
Das Problem ist dass er einen Zugriffsfehler bekommt. Das Anzeigen der Kamera klappt gut. Das kopieren in ein Image32 auch. Ich weiß nicht exakt wo der Fehler liegt, aber ich vermute dass bei ihm das zuweisen einer Farbe zu einem Pointer nicht klappt und die Fehlermeldung bringt. Sind halt alles Spekulationen...
Kann mir jemand evt. einen Tipp geben was da schief läuft?
Hier der Code, wo ich die Fehlermeldung vermute:
Delphi-Quellcode:
maxPixel := ilive.Bitmap.Width * ilive.Bitmap.Height - 1;
Livecol := @ilive.Bitmap.Bits[0];
Videocol := @ivideo.Bitmap.Bits[0];
for i := 0 to maxPixel do begin
if ((Livecol^ and $FF) < Red) or (((Livecol^ div 256) and $FF) < Green)
or (((Livecol^ div 65536) and $FF) > Blue) then Videocol^ := Livecol^; // <-- evt. hier
Inc(Livecol);
Inc(Videocol);
end;
Red, Green, Blue sind Werte die zum entfernen der blauen Flächen sind.
Gruß
MasterDG