Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
Delphi XE2 Professional
|
Re: Bitblt: Differenzbild zweier Bitmaps
1. Mär 2007, 23:47
Okay ich habe jetzt folgende Lösung, die extrem schnell arbeitet:
Differenzbild erstellen:
Delphi-Quellcode:
procedure GetDifference(ZielDC,DC1,DC2:HDC;DCwidth:integer;DCheight:integer);
begin
BitBlt(ZielDC,0,0,DCwidth,DCheight,DC2,0,0,SRCCOPY);
bitblt(ZielDC,0,0,DCwidth,DCheight,dc1,0,0,SRCINVERT);
end;
Differenzbild auf das Originalbild legen:
bitblt(ZielDC,0,0,width,height,DifferenceDC,0,0,SRCINVERT);
„Software wird schneller langsamer als Hardware schneller wird. “ (Niklaus Wirth, 1995)
Mein Netzwerktool: Lan.FS
|
|
Zitat
|