Delphi屏幕找图已经可以找到了,有没有什么办法能获取到找到的屏幕图片的坐标,并移动过去,和颜色坐标,

Delphi屏幕找图已经可以找到了,有没有什么办法能获取到找到的屏幕图片的坐标,并移动过去,和颜色坐标,,第1张

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中怎么取得图片的分辨率等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/web/9490024.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-04-28
下一篇 2023-04-28

发表评论

登录后才能评论

评论列表(0条)

保存