Leere Seite (blank page) filtern bei DelphiTwain

[Jens01]

Delphi-Quellcode:

         
If (lLine^.rgbtred + lLine^.rgbtBlue + lLine^.rgbtgreen) Div 3 < Tolerance Then
begin
  Inc(lBlack);                           // = dunkler Wert -> schwarz
  If (lBlack >= MaxBlack) Then               // viele schwarze Pixel
  Begin
    Result:=False;                           // = Bild mit Inhalt
//  Exit;                                    // Zeit sparen!!!
  End;
End;

Noch schneller...