두 개의 Tbitmaps가 동일한 지 확인하는 가장 빠른 방법은 무엇입니까?

Question

픽셀 단위로 검사하는 것이 더 좋은 방법이 있습니까?

Answer 1

당신은 TMemoryStream이에게 모두 비트 맵을 저장하고 CompareMem를 사용하여 비교할 수 있습니다

function IsSameBitmap(Bitmap1, Bitmap2: TBitmap): Boolean; 
var 
Stream1, Stream2: TMemoryStream; 
begin 
    Assert((Bitmap1 <> nil) and (Bitmap2 <> nil), 'Params can''t be nil'); 
    Result:= False; 
    if (Bitmap1.Height <> Bitmap2.Height) or (Bitmap1.Width <> Bitmap2.Width) then 
    Exit; 
    Stream1:= TMemoryStream.Create; 
    try 
    Bitmap1.SaveToStream(Stream1); 
    Stream2:= TMemoryStream.Create; 
    try 
     Bitmap2.SaveToStream(Stream2); 
     if Stream1.Size = Stream2.Size Then 
     Result:= CompareMem(Stream1.Memory, Stream2.Memory, Stream1.Size); 
    finally 
     Stream2.Free; 
    end; 
    finally 
    Stream1.Free; 
    end; 
end; 

begin 
    if IsSameBitmap(MyImage1.Picture.Bitmap, MyImage2.Picture.Bitmap) then 
    begin 
    // your code for same bitmap 
    end; 
end; 

이 코드의 X의 주사선 벤치 마크하지 않았다, 당신이 경우에, 우리가 가장 빠른 어느 알려 주시기 바랍니다.

Answer 2

정확한 답이 필요하면 아니오. 근사값이 필요한 경우 픽셀 선택을 확인할 수 있습니다. 그러나 두 비트 맵이 정확히 일치하는지 알아 보려면 전체 픽셀 및 픽셀 형식 데이터를 비교해야합니다.

Answer 3

TMemoryStream없이 ScanLine을 사용하십시오.

function IsSameBitmapUsingScanLine(Bitmap1, Bitmap2: TBitmap): Boolean; 
var 
i   : Integer; 
ScanBytes : Integer; 
begin 
    Result:= (Bitmap1<>nil) and (Bitmap2<>nil); 
    if not Result then exit; 
    Result:=(bitmap1.Width=bitmap2.Width) and (bitmap1.Height=bitmap2.Height) and (bitmap1.PixelFormat=bitmap2.PixelFormat) ; 

    if not Result then exit; 

    ScanBytes := Abs(Integer(Bitmap1.Scanline[1]) - Integer(Bitmap1.Scanline[0])); 
    for i:=0 to Bitmap1.Height-1 do 
    Begin 
    Result:=CompareMem(Bitmap1.ScanLine[i],Bitmap2.ScanLine[i],ScanBytes); 
    if not Result then exit; 
    End; 

end; 

안녕히 계십시오.