delphi fmx 比较两张图片是否一样

在 Delphi FMX 中，比较两张图片是否一样可以通过比较它们的像素来实现。首先，需要将两张图片转换成位图格式，然后逐像素比较它们的 RGB 值是否一致。

以下是一个简单的 Delphi 代码示例：

function CompareImages(Image1, Image2: TBitmap): Boolean;
var
  X, Y: Integer;
begin
  Result := False;
  if (Image1 = nil) or (Image2 = nil) then Exit;

  if (Image1.Width <> Image2.Width) or (Image1.Height <> Image2.Height) then Exit;

  for Y := 0 to Image1.Height-1 do
  begin
    for X := 0 to Image1.Width-1 do
    begin
      if (Image1.Pixels[X, Y] <> Image2.Pixels[X, Y]) then
      begin
        Exit;
      end;
    end;
  end;

  Result := True;
end;

在上面的函数中，我们首先检查两张图片是否为空以及它们的宽度和高度是否相同。接着，我们使用两个嵌套的循环来遍历所有像素并比较它们的 RGB 值是否相同。如果存在不同的像素，则退出循环并返回 False；否则返回 True。

需要注意的是，该方法对于单个像素差异较大的情况或者对比较大的图片，会比较消耗性能。可以适当使用多线程或者调整比较的精度来提高效率和准确性。