Редактировалось 1 раз(а), последний 2017-03-03 00:01:43

Teoreticheski da. Mozhno, naprimer, cherez HiAsm delat' screenoshot-y, a potom ih skarmlivat' kakomu-nibud' finereader-u..

Редактировалось 1 раз(а), последний 2017-03-03 00:01:43

Завести 10 картинок с числами от 0 до 9 и сравнивать их с полученными из скриншота(если положение и размер их действительно не меняется)

Редактировалось 1 раз(а), последний 2017-03-03 00:01:43

Вот такого компонента-то и не хватает...

Редактировалось 1 раз(а), последний 2017-03-03 00:01:44

Можно, если очень нужно :
[code:1]Add(MainForm,13714327,126,56) {
Left=20
Top=105
Height=400
}
Add(Button,11916219,21,294)
{
Left=160
Top=336
Width=62
link(onClick,4548624:doEvent1,[])
}
Add(ScreenShort,15590423,126,294)
{
link(Handle,10414873:Data1,[])
link(onCapture,12387351:doLoad,[(181,300)(181,293)])
}
Add(Image,12387351,497,287)
{
Left=-300
Top=-300
Width=365
Height=285
Color=-16777201
AutoSize=0
ViewStyle=4
MouseCapture=0
Point(doTop)
Point(doLeft)
Point(doWidth)
Point(doHeight)
}
Add(PointHint,5616060,436,357)
{
Info=#21:Обрезаная картинка :)|
Width=134
link(Data,12387351:ImageBitmap,[])
}
Add(Edit,4296614,217,189)
{
Left=20
Top=285
Text="200"
}
Add(Math,1754569,210,252)
{
OpType=1
link(onResult,5332956:doStrCat,[])
link(Op1,6203105:CurrentWidth,[(216,233)(139,233)])
link(Op2,4296614:Text,[(223,237)(223,237)])
}
Add(GetData,10414873,126,119)
{
link(Data,13714327:Handle,[])
}
Add(SizeWindow,6203105,133,168)
{
link(Handle,10414873:Data2,[(139,160)(139,160)])
}
Add(Edit,3352522,343,189)
{
Left=95
Top=285
Text="200"
}
Add(Math,4254314,336,252)
{
OpType=1
link(onResult,6089795:doStrCat,[])
link(Op1,6203105:CurrentHeight,[(342,226)(146,226)])
link(Op2,3352522:Text,[(349,237)(349,237)])
}
Add(Label,11288048,-7,154)
{
Left=10
Top=285
Width=9
Height=17
Caption="X"
}
Add(Label,15798148,0,161)
{
Left=85
Top=290
Width=9
Height=17
Caption="Y"
}
Add(Label,8382251,7,168)
{
Left=10
Top=255
Width=118
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="кол-во пикселей от низаправа картинки"
}
Add(StrCat,6089795,378,252)
{
Str1="-"
link(onStrCat,12387351:doLeft,[(419,258)(419,314)])
}
Add(StrCat,5332956,252,252)
{
Str1="-"
link(onStrCat,12387351:doTop,[(295,258)(295,307)])
}
Add(Edit,16271751,224,336)
{
Left=20
Top=335
Text="200"
}
Add(Math,3024383,217,399)
{
link(onResult,12387351:doWidth,[(324,405)(324,321)])
link(Op1,1754569:Result,[(223,381)(216,381)])
link(Op2,16271751:Text,[(230,384)(230,384)])
}
Add(Edit,7063095,350,336)
{
Left=95
Top=335
Text="200"
}
Add(Math,15405255,343,434)
{
link(onResult,12387351:doHeight,[(402,440)(402,328)])
link(Op1,4254314:Result,[(349,387)(342,387)])
link(Op2,7063095:Text,[(356,384)(356,384)])
}
Add(Label,12136510,0,364)
{
Left=85
Top=340
Width=9
Height=17
Caption="Y"
}
Add(Label,3777886,7,371)
{
Left=5
Top=310
Width=148
Height=24
Font=[MS Sans Serif,12,1,0,1]
Caption="размер картинки"
}
Add(Label,6141599,14,378)
{
Left=10
Top=340
Width=9
Height=17
Caption="X"
}
Add(Hub,4548624,77,294)
{
OutCount=5
link(onEvent1,15590423:doCapture,[])
link(onEvent2,1754569:doOperation,[(119,307)(119,258)])
link(onEvent3,4254314:doOperation,[(309,314)(309,258)])
link(onEvent4,3024383:doOperation,[(119,321)(119,405)])
link(onEvent5,15405255:doOperation,[(116,328)(116,440)])
}
[/code:1]
Х и У мог перепутать местами ...
Да, для нормального теста лучше вставить в форму разноцветную картинку.

Редактировалось 1 раз(а), последний 2017-03-03 00:01:44

Редактировалось 1 раз(а), последний 2017-03-03 00:01:44

Сделаем компонент к новой версии такой.