Вверх ↑
Этот топик читают: Гость
Ответов: 41
Рейтинг: -3
#1: 2015-01-29 17:15:32 ЛС | профиль | цитата
Доброго времени суток
Хочу реализовать Поиск части изображения в исходном изображении
подскажите куда копать

не могу даже найти компонент, в котором есть доступ к пикселям как к массиву
Зараннее большое спасибо.


ЗЫ: поделюсь результатом, если получится
карма: 1

0
Ответов: 8892
Рейтинг: 823
#2: 2015-01-29 20:29:53 ЛС | профиль | цитата
PK.Kirill, плохо искали Вот пара схем от Foksov-а: поиск части картины ПоискЧастиКартиныНаКартине.sha
и поиск на экране:
code_35004.txt
И ещё есть
карма: 19

3
файлы: 2ПоискЧастиКартиныНаКартине.sha [14KB] [765], code_35004.txt [5KB] [619]
Голосовали:Tad, PK.Kirill, Konst
Ответов: 758
Рейтинг: 112
#3: 2015-01-30 14:22:10 ЛС | профиль | цитата
Пролистать до конца
------------ Дoбавленo в 14.22:
Леонид писал(а):
схем от Foksov-а

Леонид, Негоже чужим лавры отдавать
карма: 1

0
Ответов: 8892
Рейтинг: 823
#4: 2015-01-30 14:41:23 ЛС | профиль | цитата
miver, Этой болезни у меня нет, этой, как её.., ну когда всё забываешь
карма: 19

0
Ответов: 41
Рейтинг: -3
#5: 2015-01-31 16:21:43 ЛС | профиль | цитата
этот поиск добирается до правого нижнего угла картинки почти 4 сек.
я хочу использовать другую функцию для поиска
подскажите пожалуйста как правильно заменить TBitMap на PBitMap (в inlinecode на 34-й строке)
code_35022.txt
Схема: http://hiasm.com/forum_serv.php?q=56&id=3880 (см. InlineCode)
карма: 1

0
файлы: 1code_35022.txt [10.2KB] [529]
Ответов: 8892
Рейтинг: 823
#6: 2015-01-31 18:49:33 ЛС | профиль | цитата
PK.Kirill, говорил же, ещё есть code_35023.txt выдаёт найденные координаты картинки на экране (ошибка при закрытии, надеюсь разберётесь )
карма: 19

0
файлы: 1code_35023.txt [4.2KB] [537]
Ответов: 758
Рейтинг: 112
#7: 2015-02-02 10:00:05 ЛС | профиль | цитата
PK.Kirill писал(а):
этот поиск добирается до правого нижнего угла картинки почти 4 сек.

Этот - это какой конкретно
Где две картинки для тестирования
Какие условия поиска - точное совпадение или поиск самого похожего участка
карма: 1

0
Ответов: 8892
Рейтинг: 823
#8: 2015-02-02 10:57:43 ЛС | профиль | цитата
miver, я тестирую на этом: https://yadi.sk/d/FiI6MEeeeQDsB (1.1 Мб)
карма: 19

0
Ответов: 758
Рейтинг: 112
#9: 2015-02-02 11:34:09 ЛС | профиль | цитата
Леонид, По Вашим картинкам и точному поиску у меня на древнем ноуте выдает 33 Millisecond
Чем поможет замена TBitMap на PBitMap мне не понятно
code_35033.txt
карма: 1

0
файлы: 1code_35033.txt [8.9KB] [835]
Ответов: 8892
Рейтинг: 823
#10: 2015-02-02 13:13:37 ЛС | профиль | цитата
miver, искомое справа внизу почти вся картинка 1360х768 просмотрена: 15 мсек
РезультатПоиска.jpg
(Нужнее точного поиска поиск похожести, но требует больших вычислений на каждом шаге, вот как бы их переложить на видеокарту )
карма: 19

0
файлы: 1РезультатПоиска.jpg [10.6KB] [1081]
Ответов: 758
Рейтинг: 112
#11: 2015-02-05 17:07:56 ЛС | профиль | цитата
Немного оптимизировал InlineCode. Теоретически должен работать в 3 раза быстрее
Добавил точку минимальной погрешности (от 0 до 100; 0 - полное совпадение). Дает маленький прирост, но после 9 почти не чувствуется. Скорей всего, прирост будет зависеть от изображений (чем однородней, тем меньше).

code_35055.txt
------------ Дoбавленo в 17.07:
Нашол свою же оплошность, исправил
Add(Button,3183747,91,161)
{
Left=20
Top=20
Caption="Искать"
link(onClick,8282293:doStart,[])
}
Add(Bitmap,8059100,231,42)
{
@Hint=#8:Где ищем|
AddHint(-21,-26,65,13,@Hint)
}
Add(DoData,9296008,231,98)
{
link(onEventData,10552383:doPicture,[])
link(Data,16257815:Var2,[])
}
Add(Image,5758247,364,154)
{
@Hint=#8:Что ищем|
Left=120
Top=120
Width=40
Height=40
WinStyle=2
AutoSize=0
ViewStyle=4
Picture=[ZIPD60B000078DA5556D9561BD915ED3CE707F296D77C413E20EFF984ACA0B9464D0833191BF00062B2DD606CA3A94AB30061A0B18D26C0066C26A9541A40129A80D8068CBB57C776A79D7656675FC96175B48EEEBA5575B5F7D9FB9E734B7FF9EBFEEFBF697CFE8CEF9FF0FDE3D7EFEFBEF943E3BEF0F5F96F3F5D91B39EE8596FE2BC2F717E237EDA1FFD47F762E54AB868F2E738FB8EEED12BEAD14BEDC426757F533DB1A199D8D4DEDFE41DA9367FB17DBA680E14F4DE1CEFDB37F80F78FF01E72F1883457DA0C078F39C37C77A65E0B3BEBC7EA6D4B670D4F5F44D5FECBC3FFEAE8F709D5D8BBCB9BA58EB9C2B9BBD19DE99A41E6D69263735131BDA890DD5B7EBDA8997CCC32DCE9134FB72AD817D4BB06404973FCFBBC155D0070EF43E72097C832FCB7BB3B43BC3F872FA60D1F2F8A873F9F43AA1787773F5A22F7A767DF975CFD2517BB80428CE99D23E780521BAC94DEDF8BAFADB17D4E44BCC597BCAE0CE80A8D55F40E8BDFBAC3B6FF01781CF8849DE2BEBFD32EF93594F1A5CAC27CB070AE670ADFDC99B6BB18BFEC4FBDEF8BB1B608CBCB9FEE4B863EED012C8F3424AF7704B737F93816390D3E08234FAD1B651485B02FBE6C081C97740F0853DDAB1ABB36FB3AE3DDE93D6FB32BC47E6BD19CA2D339E2CE3CF9967AB9D4BAFAFC5CE7B1317FDF1F3BED82951F45DB563A668816458F7F095F63E4C7BA1BEF75C73F7B976625D3BF98AB125F5AE86FFAE248271EE51B61D9D7D47EBD8E1843D564C716E9958E7966951A20499F1E50D33E5F6C5939EC8DBEBB1B31B702F7EDE1F7BDBB354EF9EAF9803FB4651A6A776E0957AFC054275178A9E137CB78CA0DD12617125693149DB7728C72EE5DA659CBB8C98E2BD300D0B644A4C53A2CCF90E8C33E52B8B27579F9DF6C641849238EB7DF6F6DAD249D77CC512DAE7450944F04AF3ED0B82EFC9D0BE2CE3931B44694A9018570AB03A2728F62047E36C7089295694184F1AEB41A41532284243A8D4367FD4FDF46D6FEC7D5FFCA22F7ED61F39ED5D3A69877581BCC9936EE40FABD394472644A0F066582489B990A25C49AD2BA971EEE91CBBB47357E720068214696083886A41D60A69AD887A285AE66A9D4B27D72367FDF18BFE18FAE8B4E7C909C11700986108788616D38C47E6480965C8E8CD420E6E52D844A8B0EF30F0CDB6ADB36D634E0BF03365C4CAA6C382AC13B3ACFFC014AE763E412B5DDC5879077CDA956505129C90635D589C65C182EDF0910C8928729941D132429A7649942B453B93B483541D3DB5053A6C136A8F1325D603168926C9EC3162C6102C019FF31EB0628E1173BC33C33A64C6217382AC872241E6D174A2CC886998C6340CC42514E95CB02ECD3853B43D097CCA411469A7B6B4A4C85328458C2C921124E09B67AA0853A86C4047BBF7F5428E7165696786B1A739478675C92C761CBD20A4C9E89675420A7218779616B14719DA2951F65D688163C4B4A92D9D8D88C21DAE816F9AAD9B666B96F091257C6C99A999A72B7A5F89F31639310F2E0EA29C32583807C634E112538C90E23CE042B191BA259E346DB1EF32533B8C6D87826FE4607C057C7DA8649C3E34872A084BB8DE3A5B6B0D1F99C275D374C5182C1BC1E53E0017EBCC32CE3444310E84C44197287162B3AA256C318286390E89B6A7903C5868DB16D95F62290E841CFC31E2180C964CA18A098ECD56DBE68E2C73C7A6E91A2E8D81B2317068F01659C295010BD185D1251158E822D2245E206229679AC64968DB053EEFC9EB9A25E1440765F5DEBCD15F44E8C1153A344C97506F1D4F8EBB96DF5C8B9C767C77027683AFA8F714788110913D020B44B950C612EB4C312E0891692782F4D7D5C5A3EE85FA95D992C9871295184284DD44B5E45AE70FADEBE753B98F62E5B378F8F3D4FE87F1E40FB737CE6EAD9E772CD48CA18AD1736870970C428173E4396716E5C73A329C931888407B92FE7AB8D3EACD764E977A166A3D0BF58E70D980B78F98A15C52CFD36357E18BAFFAD95FFB97AFFA93B7F22974FC2570F2ABEFE8D709E9A3395C37CFD4CDA1BAD15735FACA064F8915F639679E736439478E475B8919E0AB8657D5A36B8ABB6B9AC9970621DD162C5C5DA8753DAE763EAE5C992BF645EBF6FC474FF9274FF993EBE0477BF67BD7FE8F984CE53F752D9F1A67ABC6E9AA79B66E9939699D3E32FA2B066F85174A9CABC0D873B4839CCF9A9135F5F02A5814645C518DADA8C7D7F1E2B3F8F35D7395F6F9CACDC46B7BEE83A7F4C95DFAE8C87EFF487AEFC8FDF3DECEFB2B4B752E80B76D491F281B021543B0664484EAA6C684872237E95FCDE873E06B479F6BC75E6847D7B463ABAA11B0AC2AC656B5E31BF4D4EECDC8B1B7FC4BE8F8DF33AF11FF09D43FFB2B3F3F903FB42F5429B4187C70E7F5DE03DE5334F8CB467FD514AC9882554214AA031F98AAA115927933FFE1B86674453D92688E7F1F8A691F6CDCD93873173F07EABF90A87D110A9FEF6CFFD03A5BE03C59CA9ED2D9249A34050E961C4E00A3B760F01D1AFC95D6608DE43FB60A1CD5700CA37A7445F9FFF8AA9184F2EE9AC99DEE5DACF42E956FC58E7B9F55DA42797330DFF1B8D2335FEF0A972DF8E78093135507221BCE2519270C873F129E02F0096C232E012F25A886A3EAD184626405BC8AB10442756745311A6F198EC13DE5BD3506B5E7C13695BB1F1FB7876BAD81A241CCD17689B225695B8AB6490D7CE289C21A6DC2FE061C13A248359C203112472887E278048D78AA1E4E2886627FB3465A4612D4E4B649C874864A57672B5DE16A5BE8D0E8CEA1059AF8CAA1D8256C3360976634FE55144C231B14C3B246A5C5900CE64A6B4239140505E1B5AE28AC71E5485C33BECEBB5270AC3B8CF77EAD51FF71B27828D6CCB9C9D564C15C3314D72267FC7C30813220985632C1A5BA1158A01A8CAAAD312C530E465503D196DBCF5A00389AD04DBE6CE25F86F27FB93529909B9A80C7D4563C051DA012AAC1B87A68453D0470721F0B54580F0AB21823F11008C069B14609FE10711263730B94C0B7C62EE9B05E717B193F5758230467A08189188C2907224D6A05600917B983945A06238052347088FF7804F64640AC069E58570863D32B6BF4F2870DFC88726099C46004E9A9F0A801A51A882B07628A5BD1164C06E3CADB50146F1920F8FF05B9670808]
Point(doTop)
Point(doLeft)
Point(onMouseDown)
Point(Handle)
link(onMouseDown,16176673:doMove,[])
AddHint(35,-30,66,13,@Hint)
}
Add(MoveWindow,16176673,413,161)
{
link(Handle,5758247:Handle,[(419,152)(405,152)(405,194)(377,194)])
}
Add(MT_Part,9384028,294,168)
{
link(onSplit,5758247:doTop,[])
link(onPart,5758247:doLeft,[])
}
Add(GetDataEx,16257815,231,84)
{
link(Data,8059100:Bitmap,[])
}
Add(TimeCounter,8282293,154,161)
{
link(onStart,2366711:doFindBitmap,[])
link(onStop,6823186:doString,[(200,174)(200,223)])
}
Add(Label,15385577,259,217)
{
Left=85
Top=20
Width=4
Height=4
Caption=""
}
Add(FormatStr,6823186,210,217)
{
DataCount=1
Mask="Время поиска - %1 Millisecond"
link(onFString,15385577:doText,[])
}
Add(Hub,12533344,259,161)
{
link(onEvent1,8282293:doStop,[(284,167)(284,202)(144,202)(144,174)])
link(onEvent2,9384028:doSplit,[])
}
Add(MainForm,10552383,280,70)
{
Width=325
Height=230
WindowsState=2
Position=1
Point(onChar)
Point(doPicture)
link(onCreate,9296008:doData,[(319,90)(319,118)(221,118)(221,104)])
}
Add(InlineCode,2366711,210,161)
{
WorkPoints=#12:doFindBitmap|
EventPoints=#8:onResult|8:SumError|
DataPoints=#6:Bitmap|9:subBitmap|8:minError|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|40: TByteArray = array [0..32767] of Byte;|27: PByteArray = ^TByteArray;|35: TBuf = array of array of integer;|15: FRes = record|19: found: boolean;|17: x,y: integer;|17: percent:real;|6: end;|14: WH2 = record|43: Width1,Height1,Width2,Height2: integer;|6: end;|2: |28: THiAsmClass = class(TDebug)|10: private|0:|9: public|12: Bitmap,|15: subBitmap,|45: onResult, SumError, minError: THI_Event;|57: procedure doFindBitmap(var _Data:TData; Index:word);|81: function CompareIMG(var buf1:TBuf; buf2:TBuf; WH:WH2; mError:Integer): FRes;|5: end;|0:|14:implementation|0:|40:function LoagIMG(var Bmp:PBitmap) :TBuf;|3:var|15: x,y: integer;|16: p: pByteArray;|15: buffer: TBuf;|5:begin|36: Bmp.PixelFormat:=pf24Bit;//pf8Bit;|45: SetLength(buffer, Bmp.Height, Bmp.Width*3);|35: for y:=0 to Bmp.Height-1 do begin|23: p:=Bmp.ScanLine[y];|38: for x:=0 to Bmp.Width*3-1 do begin|24: buffer[y,x]:=p[x];|8: end;|6: end;|19: Result := buffer;|4:end;|0:|88:function THiAsmClass.CompareIMG(var buf1:TBuf; buf2:TBuf; WH:WH2; mError:Integer): FRes;|3:var|36: y, x, yy, xx, err, color: integer;|32: sumerr, sum, pmError: LongInt;|5:begin|54: //максимальная ошибка = в диапазоне 0-726 на пиксель|54: pmError:=round(726*WH.Width2*WH.Height2*mError/100);|23: //sum:=High(LongInt);|17: sum:=pmError+1;|22: Result.found:=false;|20: Result.percent:=0;|7: y:=0;|8: repeat|9: x:=0;|10: repeat|25: Result.found:=true;|16: sumerr:=0;|12: yy:=0;|12: repeat|14: xx:=0;|14: repeat|38: for color:=0 to 2 do begin|67: sumerr:=sumerr+abs(buf1[y+yy, x+xx] - buf2[yy,xx]);|24: inc(xx);|16: end;|53: if sumerr>sum then Result.found:=false; |52: until (xx>=WH.Width2) or (Not Result.found);|16: inc(yy);|51: until (yy>=WH.Height2) or (Not Result.found);|30: if sumerr<sum then begin|21: sum:=sumerr;|27: Result.x:=x div 3;|21: Result.y:=y;|60: Result.percent:= sumerr/(726*WH.Width2*WH.Height2);|10: end;|13: inc(x);|34: until (x>WH.Width1-WH.Width2);|11: inc(y);|34: until (y>WH.Height1-WH.Height2);|21: Result.found:=true;|4:end;|0:|35:procedure THiAsmClass.doFindBitmap;|3:var|24: Bmp, subbmp:PBitmap;|21: FindResult: FRes;|21: buf1, buf2: TBuf;|12: WH: WH2;|16: dt,di:TData;|89: mError : Integer; //Минимальная ошибка совпадения от 0 до 100 (0 - полное совпадение)|5:begin|36: Bmp := ReadBitmap(_Data,Bitmap);|42: if (Bmp = nil) or Bmp.Empty then exit;|42: subbmp := ReadBitmap(_Data,subBitmap);|48: if (subbmp = nil) or subbmp.Empty then exit;|73: if (Bmp.Width<subbmp.Width) or (Bmp.Height<subbmp.Height) then exit;|4: |43: mError := ReadInteger(_Data, minError);|4: |25: buf1 := LoagIMG(Bmp);|25: WH.Width1:=Bmp.Width;|27: WH.Height1:=Bmp.Height;|15: //Bmp.Free;|4: |28: buf2 := LoagIMG(subbmp);|28: WH.Width2:=subbmp.Width;|30: WH.Height2:=subbmp.Height;|22: //subbmp.Free; |4: |51: FindResult:=CompareIMG(buf1, buf2, WH, mError);|4: |15: dtNull(dt);|15: dtNull(di);|34: if FindResult.found then begin|57: dtInteger(dt,FindResult.x);//+(WH.width2 div 2));|58: dtInteger(di,FindResult.y);//+(WH.height2 div 2));|24: dt.ldata := @di;|34: _hi_onEvent(onResult, dt);|50: _hi_onEvent(SumError, FindResult.percent);|40: //_hi_onEvent(SumError, mError);|8: end;|4:end;|4:end.|
link(onResult,12533344:doEvent1,[])
link(Bitmap,16257815:Var1,[(216,89)])
link(subBitmap,5758247:ImageBitmap,[(223,152)(335,152)(335,194)(370,194)])
link(minError,13965698:String,[(230,138)(349,138)])
}
Add(ComboBox,13965698,336,63)
{
Left=20
Top=40
Height=21
Strings=#1:0|1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|3:100|0:|
Text="0"
DataType=1
ReadOnly=0
}

карма: 1

0
файлы: 1code_35055.txt [10.2KB] [587]
Ответов: 632
Рейтинг: 4
#12: 2016-02-14 22:33:52 ЛС | профиль | цитата
Быстрая схема.
Что искал
карма: 0

0
Ответов: 758
Рейтинг: 112
#13: 2016-02-19 23:52:14 ЛС | профиль | цитата
Vadimluk1, И в чем прикол
карма: 1

0
Разработчик
Ответов: 26073
Рейтинг: 2122
#14: 2016-02-20 00:31:01 ЛС | профиль | цитата
miver писал(а):
И в чем прикол

Надо полагать, что долго. Ну сам посуди -- ~40 сек на поиск несчастного кусочка
карма: 22

0
14
Сообщение
...
Прикрепленные файлы
(файлы не залиты)