delphi之找色和色块

找色和色块，是模拟的重要基础。

有时候，需要确定某点是否出现某种颜色，有时候需要判断色块是否出现在某位置

有时候，需要看范围内是否出现色块。

function IsColor(bmp:TBitmap; x,y:integer; c:TColor):boolean;
var
row:pRGBTripArray;
p:TRGBTriple;
begin
row:=bmp.ScanLine[y];
p:=row[x];
result:=(p.rgbtBlue=GetBValue(c)) and (p.rgbtGreen=GetGValue(c))
and (p.rgbtRed=GetRValue(c));
end;

function IsColorBlock(bmp:TBitmap; x,y,n:integer; c:TColor):boolean;
var
i,j:integer;
begin
result:=false;
for j:=y to y+n-1 do
begin
    for i:=x to x+n-1 do
    begin
      if not IsColor(bmp, i, j, c) then // 颜色不对就不是色块了
        exit;
     end;
end;
result:=true; // 能到这里，该位置就是色块
end;

function FindColorBlock(bmp:TBitmap; x1,y1,x2,y2,n:integer;c:TColor):TPoint;
var
i,j:integer;
begin
for j:=y1 to y2 do
begin
    for i:=x1 to x2 do
    begin
      if IsColor(bmp, i, j, c) then // 先找色点
      begin
        if IsColorBlock(bmp,i,j,3,c) then // 再判色块
        begin
          result.x:=i;
          result.y:=j;
          exit; // 找到返回
        end;
      end;
    end;
end;
result.x:=-1;
result.y:=-1;
end;

转载于:https://www.cnblogs.com/MaxWoods/archive/2013/05/29/3106274.html

delphi之找色和色块相关推荐

511遇见易语言乐玩插件FindMultiColor找色多点及找色块
本节视频封装了乐玩的多点找色FindMultiColor及找色块FindMultiColor,并通过<剑侠情缘>这款游戏调用示范. 乐玩插件模块源码: .版本 2.子程序 FindMult ...
Delphi下实现全屏快速找图找色二、矩阵遍历
二.矩阵遍历矩阵遍历是一个数据结构方面的问题.假设有一个矩阵Matrix,它共有RowCount行,每行有ColCount列,当利用y表示行数,x表示列数,那么利用Matrix[y,x]就可以访问矩 ...
Delphi下实现全屏快速找图找色
前言最近有好几个朋友都在问我找图找色的问题,奇怪?于是乎写了一个专门用于找图找色的单元文件"BitmapData.pas".在这个单元文件中我实现了从文件中导入位图.屏幕截图.鼠 ...
第六篇T语言实例开发，多点找色应用
---恢复内容开始--- 多点找色应用文字,图形特征的获取多点找色功能原型窗口多点找色(窗口句柄,x1,y1,x2,y2,颜色值,色点组,相似度,方向,返回x,返回y) 功能说明根据指定的多 ...
python找色_python实现按键精灵找色点击功能教程,使用pywin32和Pillow库
Python图片处理模块PIL(pillow) pywin32的主要作用 1.捕获窗口: 2.模拟鼠标键盘动作: 3.自动获取某路径下文件列表: 4.PIL截屏功能找色点击功能思路: 抓取当前屏幕快 ...
python找色_[REST API] 用Python实现颜色识别功能----Total Control区域找色
[REST API] 用Python实现颜色识别功能----Total Control区域找色 [REST API] 用Python实现颜色识别功能----Total Control区域找色 Tota ...
按键--找色找图基础
尊重原创:按键--找色找图基础 1 为什么写找色找图? 话说某天,笔者在按键精灵论坛上闲逛,突发奇想,敲入关键字"找色"结果搜索到了400多个帖子,敲入关键字"找图&qu ...
c语言实现按键精灵区域找图,区域遍历所有图片（找图，多点找色）----1个函数实现...
找到图片数量=找多图(t1,t2,t3,t4,t5,t6,t7,t8) //d2 全局变量二维数组用来储存 //找多图用来返回找到图片的数量 //t1,t2,t3,t4能够确定区域找图范围 // ...
按键精灵/触控精灵多点找怪,多点找色算法思路,附带动态分析图,以及算法代码
上面的两张动图是5宫格,6宫格动图; 先说下思路按键/触动精灵只提供了单个找色函数,所以如果想在屏幕上找多个怪物,这里我设计的是按照屏幕大小,分成一个个小格子,然后便利格子,调用他们的单个找色函数; ...

delphi之找色和色块

delphi之找色和色块相关推荐

最新文章

热门文章