是否有人开发过图像比较系统啊!是否可以教教我,我想学呢?谢谢! (30分)

  • 主题发起人 主题发起人 smallbird
  • 开始时间 开始时间
S

smallbird

Unregistered / Unconfirmed
GUEST, unregistred user!
也就是将任意图象比较,看看是否相同或不相同,谢谢!
小弟的分数不多,请不要嫌弃啊!!!!
帮忙要紧!!!!
 
你可以运用异或来处理。

procedure TForm1.Button1Click(Sender: TObject);
var
Bmp1,Bmp2 :TBitmap;
begin
Bmp1 :=TBitmap.Create;
Bmp1.LoadFromFile('e:/图片/end004.bmp');
Bmp2 :=TBitmap.Create;
Bmp2.LoadFromFile('e:/图片/yunwen3.bmp');
BitBlt(Bmp2.Canvas.Handle,0,0,Bmp2.Width,Bmp2.Height,Bmp1.Canvas.Handle,0,0,SRCINVERT);
Image1.Picture.Bitmap.Assign(Bmp2);
Bmp1.Free;
Bmp2.Free;
end;
 
卷起千堆雪tyn的方法不错,但只是输出了比较结果。

for y := 0 to Bitmap2.Width - 1 do
begin
将bitmap2.ScanLine[y]与 bitmap1.ScanLine[y]之间进行逐行比较
end;

逐行比较可以要好一点,这样就可以加上一个模糊度,况且也可返回一个比较值
 
[8D]
那么就是文件内容的比较了?

 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部