Einzelnen Beitrag anzeigen

Benutzerbild von alleinherrscher
alleinherrscher

Registriert seit: 8. Jul 2004
Ort: Aachen
797 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Bitblt: Differenzbild zweier Bitmaps

  Alt 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
  Mit Zitat antworten Zitat