freepascal.ru

Код: Выделить всё

function CompareByte(Const buf1,buf2;len:SizeInt):SizeInt; assembler; nostackframe;
{ win64: rcx buf, rdx buf, r8 len
  linux: rdi buf, rsi buf, rdx len }
asm
{$ifndef win64}
    mov    %rdx, %r8
    mov    %rsi, %rdx
    mov    %rdi, %rcx
{$endif win64}
    testq   %r8,%r8
    je      .LCmpbyteZero

    .balign 8
.LCmpbyteLoop:
    movb    (%rcx),%r9b
    cmpb    (%rdx),%r9b
    leaq    1(%rcx),%rcx
    leaq    1(%rdx),%rdx
    jne     .LCmpbyteExitFast
    decq    %r8
    jne     .LCmpbyteLoop
.LCmpbyteExitFast:
     movzbq  -1(%rdx),%r8     { Compare last position }
     movzbq  %r9b,%rax
     subq    %r8,%rax
     ret

.LCmpbyteZero:
     movq    $0,%rax
     ret 
   end;     

Код: Выделить всё

Function FastCompBW(C:Byte;Var R:TRect; Bitmap,B: TBitmap):bool;
// Сравнение двух кадров (ЧБ вариант)
Type
RGB1=Record  R,G,B  : byte; end;
Const
  DT:Boolean=false;
var
  MinX, MinY: Integer;
  MaxX, MaxY: Integer;
  X,Y: Integer;
  PixelPtr,PixelPtr2: PInteger;
  PixelRowPtr,PixelRowPtr2: PInteger;
  BytePerPixel: Integer;
 BW,BW2:Byte;
 PRGB,PRGB2:^RGB1;
  begin
  try
    Bitmap.BeginUpdate(False);
    Result:=False;
    //RawImage := Bitmap.RawImage;
    PixelRowPtr := PInteger(Bitmap.RawImage.Data);
    PixelRowPtr2 := PInteger(B.RawImage.Data);
    BytePerPixel := Bitmap.RawImage.Description.BitsPerPixel div 8;
    minX:= Bitmap.Width; MaxX:=0;
    minY:= Bitmap.Height; MaxY:=0;

    for Y := 0 to Bitmap.Height - 1 do begin
      PixelPtr := PixelRowPtr;
      PixelPtr2 := PixelRowPtr2;
      for X := 0 to Bitmap.Width - 1 do begin
       PRGB :=Pointer(PixelPtr);
       PRGB2:=Pointer(PixelPtr2);

         BW:=(PRGB^.R+PRGB^.G+PRGB^.B) div 3;
        BW2:=(PRGB2^.R+PRGB2^.G+PRGB2^.B) div 3;
      If   ( Abs( bw - bw2 )> C ) then
      begin
          result:=True;
          MaxX:=Max(X,MaxX); MaxY:=Max(MaxY,Y);
          minX:=min(minX,X); minY:=min(minY,Y);
          R:= rect(minX, minY, maxX,maxY);
       end;
        Inc(PByte(PixelPtr), BytePerPixel);
        Inc(PByte(PixelPtr2), BytePerPixel);
      end;
      Inc(PByte(PixelRowPtr),Bitmap.RawImage.Description.BytesPerLine);
      Inc(PByte(PixelRowPtr2),Bitmap.RawImage.Description.BytesPerLine);
    end;
  finally
  Bitmap.EndUpdate(False);
  end;
end;