用delphi比较两张图片的相似度

Question

有两张相像的图片，请问怎样比较这两张图片的相似程度？？谢谢

Answer 1

我以前　做刷票的　时候　的　简单　图片的　比较
procedure TFrm_test.initList;
var
  idx, i, k, x, y, l: integer;
  p, fn: string;
  bmp: TBitmap;
  BColor, NowColor: TColor;
begin  p := ExtractFilePath(Application.ExeName);
  bmp := TBitmap.Create;
  for i := 0 to 9 do
    begin
      fn := p + '\CodeBmp\' + IntToStr(i) + '.bmp';
      if not FileExists(fn) then
        Continue;      idx := length(PointRecList);
      SetLength(PointRecList, idx + 1);
      PointRecList[idx].Code := inttostr(i);      bmp.LoadFromFile(fn);
      BColor := bmp.Canvas.Pixels[0, bmp.Height - 1];      for x := 0 to bmp.Width - 1 do
        for y := 0 to bmp.Height - 1 do
          begin
            NowColor := bmp.Canvas.Pixels[x, y];
            if NowColor <> BColor then
              begin
                l := length(PointRecList[idx].PointList);
                SetLength(PointRecList[idx].PointList, l + 1);
                PointRecList[idx].PointList[l].X := x;
                PointRecList[idx].PointList[l].y := y;
              end;
          end;
    end;  FreeAndNil(bmp);
//
end;
function getCode_Bmp(const bmp: TBitmap; strLen: integer; PointRecList: array of TPointRec): string;
var
  j, i, l, x, y, x0, xS, beginx: integer;  BColor, NowColor: TColor;
  PointList: array of TPoint;
  function getCode: string;
  var
    maxCount, k, m, j, i: integer;  begin
    Result := '?';
    if length(PointList) < 3 then
      exit;    maxCount := 0;
    for i := 0 to high(PointRecList) do
      begin        if length(PointRecList[i].PointList) < 3 then
          Continue;        m := 0;        for K := 1 to high(PointList) do
          begin            for j := 1 to high(PointRecList[i].PointList) do
              if
                ((PointList[k].X - PointList[0].X) = (PointRecList[i].PointList[j].X - PointRecList[i].PointList[0].X))
                and
                ((PointList[k].y - PointList[0].y) = (PointRecList[i].PointList[j].y - PointRecList[i].PointList[0].y))              then
                begin
                  inc(m);
                  Break;
                end;          end;        m := m * 100 div (length(PointList) - 1);
        if m > maxCount then
          begin
            Result := PointRecList[i].Code;
            maxCount := m;
          end;
      end;
  end;begin
  Result := '';  BColor := bmp.Canvas.Pixels[0, bmp.Height - 1];
  x0 := 0;
  xS := bmp.Width div strLen;
  for i := 0 to strLen - 1 do
    begin
      beginx := x0 + xS * i;
      SetLength(PointList, 0);
      for j := 0 to xS - 1 do
        begin
          x := beginx + j;
          for y := 0 to bmp.Height - 1 do
            begin
              NowColor := bmp.Canvas.Pixels[x, y];
              if NowColor <> BColor then
                begin
                  l := length(PointList);
                  SetLength(PointList, l + 1);
                  PointList[l].X := x;
                  PointList[l].y := y;
                end;
            end;
        end;
      Result := Result + getCode;
    end;
end;