如何使用 Delphi7 的 TBitmap 类来加载和查找目标图片

你可以使用 Delphi7 的 TBitmap 类来加载和查找目标图片，以下是一个简单的示例代码：

var
  bmp: TBitmap;
  targetBmp: TBitmap;
  x, y: Integer;
begin
  bmp := TBitmap.Create;
  targetBmp := TBitmap.Create;
  try
    // 加载图片
    bmp.LoadFromFile('source.bmp');
    targetBmp.LoadFromFile('target.bmp');

    // 在源图片中查找目标图片
    for y := 0 to bmp.Height - targetBmp.Height do
    begin
      for x := 0 to bmp.Width - targetBmp.Width do
      begin
        if CompareMem(bmp.ScanLine[y] + x * 3, targetBmp.ScanLine[0], targetBmp.Width * 3) then
        begin
          ShowMessageFmt('Found target image at (%d, %d)', [x, y]);
          Exit;
        end;
      end;
    end;

    ShowMessage('Target image not found.');
  finally
    bmp.Free;
    targetBmp.Free;
  end;
end;

在这个示例中，我们首先创建了两个 TBitmap 对象，一个用于加载源图片，另一个用于加载目标图片。然后，我们使用 LoadFromFile 方法加载这两张图片。

接下来，我们使用两个循环遍历源图片中的每个像素。在每个像素位置，我们使用 CompareMem 函数比较当前像素和目标图片的像素是否一致。如果一致，说明在源图片中找到了目标图片，我们就可以显示一个消息框并退出程序。

如果遍历完整张图片都没有找到目标图片，就会显示一个提示消息，表示目标图片未找到。