图片的比较问题 ( 积分: 100 )

代码什么的都行.但最好不用控件,功能是:A图是在B图里截取出来了.我想在B中找A所在的位置做标.谁能告诉我一下吗谢谢了.

代码什么的都行.但最好不用控件,功能是:A图是在B图里截取出来了.我想在B中找A所在的位置做标.谁能告诉我一下吗谢谢了.

晕.没人知道吗[]

这么多人就没个知道图片比较延长比吗?[?]

抱歉，我没有做过图形方面的[]

学习

要求能否再具体点？比如你的图是什么格式的？

帮顶

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons;

type
TForm1 = class(TForm)
MainTimer: TTimer;
ShowImage: TImage;
BitBtn1: TBitBtn;
procedure MainTimerTimer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MainTimerTimer(Sender: TObject);
var
Fullscreen : TBitmap;
FullscreenCanvas : TCanvas;
DC : HDC;
begin
MainTimer.Enabled := False;//取消时钟
Fullscreen:=TBitmap.Create;//创建一个BITMAP来存放图象
Fullscreen.Width := Screen.Width;
Fullscreen.Height := Screen.Height;
DC:=GetDC(0);//取得屏幕的DC，参数0指的是屏幕
FullscreenCanvas := TCanvas.Create;//创建一个CANVAS对象
FullscreenCanvas.Handle := DC;
Fullscreen.Canvas.CopyRect
(Rect(0,0,Screen.Width,Screen.Height),FullScreenCanvas,
Rect(0,0,Screen.Width,Screen.Height));
//把整个屏幕复制到BITMAP中
FullScreenCanvas.Free;//释放CANVAS对象
ReleaseDC(0,DC);//释放DC
//*******************************
ShowImage.Picture.Bitmap := FullScreen;//拷贝下的图象赋给IMAGE对象
ShowImage.Width := FullScreen.Width;
ShowImage.Height := FullScreen.Height;
FullScreen.Free;//释放bitmap
MessageBeep(130);//BEEP叫一声，报告图象已经截取好了。
Form1.Visible:=true;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.Visible:=false;
MainTimer.Enabled:=true;
end;

end.
这是一个抓图程我把他当前屏幕的图抓下来放放image1里
我.bmp有个小图片是当然屏幕里的,我想用他和image1里的图比较在输出一下这个图在image1里的位置