Что состоит в том, чтобы проверить самый быстрый путь, являются ли два Tbitmaps тем же?

Question

Что состоит в том, чтобы проверить самый быстрый путь, являются ли два Tbitmaps тем же?

Пробежка vimtutor только взял меня 30 минут, которого было достаточно, чтобы познакомиться с энергией. Это стоило каждую секунду его.

8

delphi delphi-2009

задан isa 29 August 2009 в 09:32

3 ответа

Если вам нужен точный ответ, нет. Если вам нужно приблизительное значение, вы, вероятно, можете проверить выбор пикселей. Но если вы хотите узнать, идентичны ли два растровых изображения в точности, вам необходимо сравнить все пиксели и данные формата пикселей.

0

ответ дан 3 November 2019 в 14:03

Использование ScanLine без TMemoryStream.

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;

Пока.

12

ответ дан 3 November 2019 в 14:03

Другие вопросы по тегам:

delphi delphi-2009

Похожие вопросы:

score 16 · Accepted Answer

Вы можете сохранить оба растровых изображения в 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, если вы это сделаете, сообщите нам, какой из них самый быстрый.