关于图片切割问题,请教 本帖最后由 chatop 于 2011-04-12 22:31:38 编辑 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 老大,问题是RECT怎么算呀。图片是不定的呀,只能考虑从白线的坐标中分析RECT的呀 如果我能分析出有多少个X,多少个Y是一样的,那么Y的累加和X的累加就一定是直线。那我就能确定白线的坐标。不过这里还有个问题,四格图片里也可能会有白点存在,小于一定值的相同数字,还要排除在外虽然可以用笨办法一一搞出来,但效率就变得很低了。 用TStringListvar Xlist:TStringList;begin Xlist:= TStringList.Create; if 该点是白色 then begin if Xlist.IndexOfName(X的值)=-1 then//首次出现 Xlist.Add(IntToStr(X的值)+'='+'1') else Xlist.IndexOf(X的值):=Xlist.IndexOf(X的值)+1; end;最后将Xlist自定义一个排序就可以找X出现次数最多坐标值了。 此段VB正则应如何改写成DELPHI 急:请问如何用imageenview进行高速连续扫描?? dbgrid id 字段自动编号 关于做上传到ftp的activx组件的问题. 求救,如何得到TWebBrowser中的页面的内容? 怎样才能把LCDNumber控件加到控件夹中……?? 高手看看如何解决。 远程控制的问题 怎样确定tem.db这个文件是否存在? 如何读出收藏夹中的内容? K是什么意思啊? 急求Delphi编译代码怎么显示名称呢~
图片是不定的呀,只能考虑从白线的坐标中分析RECT的呀
那我就能确定白线的坐标。
不过这里还有个问题,四格图片里也可能会有白点存在,小于一定值的相同数字,还要排除在外
虽然可以用笨办法一一搞出来,但效率就变得很低了。
Xlist:TStringList;
begin
Xlist:= TStringList.Create;
if 该点是白色 then
begin
if Xlist.IndexOfName(X的值)=-1 then//首次出现
Xlist.Add(IntToStr(X的值)+'='+'1')
else
Xlist.IndexOf(X的值):=Xlist.IndexOf(X的值)+1;
end;最后将Xlist自定义一个排序就可以找X出现次数最多坐标值了。