procedure TForm1Button2Click(Sender: TObject);
var
range:TBDColorRange;
Bit1,Bit2 : TBDBitmapData;
Left,Top : Integer;
b : Boolean;
target:String;
begin
Bit1:=TBDBitmapDataCreate; Bit2:=TBDBitmapDataCreate;
ranger:=5; rangeG:=5; rangeB:=5;
target:='1bmp';
if not Bit2LoadFromFile(target) then
begin
Bit1Free; Bit2Free; exit;
end;
Bit1CopyFormScreen();
b:=Bit1FindImage(Bit2,range,Left,Top);
if b then
begin
SetCursorPos(Left+20,Top+5) // 移到找到的图的坐标
end
else
Bit1Free;
Bit2Free;
end;
各种格式的不相同,但都差不多吧。
如下:读取JPG的宽度和高度
var
myjpg:Tjpgimage;
begin
myjpg:=tjpgimagecreate;
myjpgloadfromfile('yourfile');
myjpgwidth就是宽
myjpgheight就是高
end
记住要uses jpeg哦
获取分辨率可以借助响应的graphic单元
比如jpg的
uses jpeg;
var
JPG: TJPEGImage;
begin
JPG := TJPEGImageCreate;
JPGLoadFromFile('D:\Backup\我的文档\总体业务流程jpg');
ShowMessage(IntToStr(JPGWidth)); // 宽
ShowMessage(IntToStr(JPGHeight));// 高
JPGFree;
1、首先打开delphi图像处理APP。
2、其次选择文件开启快捷键开启功能。
3、按住ctrl+减号按钮即可开启ai缩略图功能。
4、最后选择需要截取的范围即可获得ai缩略图。
以上就是关于Delphi屏幕找图已经可以找到了,有没有什么办法能获取到找到的屏幕图片的坐标,并移动过去,和颜色坐标,全部的内容,包括:Delphi屏幕找图已经可以找到了,有没有什么办法能获取到找到的屏幕图片的坐标,并移动过去,和颜色坐标,、如何获取一张图片的宽度和高度 delphi、delphi中怎么取得图片的分辨率等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)