Comparar se imagens do tipo TBitmap são iguais.
Comparar se imagens do tipo TBitmap são iguais. Mas utilizando o recurso TStream, para ter uma performance muito mais rápida do que a famosa rotina de percorrer uma Matriz de pixels.
[fechar]
Você não gostou da qualidade deste conteúdo?
(opcional) Você gostaria de comentar o que não lhe agradou?
Mas utilizando o recurso TStream, para ter uma performance muito mais rápida do que a famosa rotina de percorrer uma Matriz de pixels.
function Ret_ImagensIguais(Bitmap1, Bitmap2: TBitmap): Boolean;
var
Img1, Img2: TStream;
Cont: integer;
Ch1, Ch2: char;
begin
Result := False;
Img1 := TMemoryStream.Create;
Img2 := TMemoryStream.Create;
try
Bitmap1.SaveToStream( Img1 );
Bitmap2.SaveToStream( Img2 );
if Img1.Size <> Img2.Size then
Exit
{endif};
Cont := 0;
Img1.Position := 0;
Img2.Position := 0;
while Cont < Img1.Size do
begin
Img1.Read( Ch1, 1 );
Img2.Read( Ch2, 1 );
if Ch1 <> Ch2 then
Exit
{endif};
Inc( Cont );
end;
finally
Img1.Free;
Img2.Free;
end;
Result := True;
end;
Espero ter colaborado.
function Ret_ImagensIguais(Bitmap1, Bitmap2: TBitmap): Boolean;
var
Img1, Img2: TStream;
Cont: integer;
Ch1, Ch2: char;
begin
Result := False;
Img1 := TMemoryStream.Create;
Img2 := TMemoryStream.Create;
try
Bitmap1.SaveToStream( Img1 );
Bitmap2.SaveToStream( Img2 );
if Img1.Size <> Img2.Size then
Exit
{endif};
Cont := 0;
Img1.Position := 0;
Img2.Position := 0;
while Cont < Img1.Size do
begin
Img1.Read( Ch1, 1 );
Img2.Read( Ch2, 1 );
if Ch1 <> Ch2 then
Exit
{endif};
Inc( Cont );
end;
finally
Img1.Free;
Img2.Free;
end;
Result := True;
end;
Espero ter colaborado.
Wilson José Lehapan Junior
Analista/Desenvolvedor Delphi desde 2002 (a partir da versão 4). Trabalhei de 2002 até 2008 com desenvolvimento de sistemas ERP. Trabalho atualmente como engenheiro e desenvolvedor de softwares embarcados (incluindo a criação do Kernel - BSP, drivers e o software final) para produtos eletrônicos (li...
O que você achou deste post?
Cursos relacionados
Publicidade
