Вверх ↑
Разработчик
Ответов: 26322
Рейтинг: 2147
#1: 2008-01-18 22:22:01 ЛС | профиль | цитата
NetCom, к сожалению, ImageLoader читает только из файлов, со сканера он читать не может, поэтому, попробуй вот так


#sha
Add(MainForm,14894510,287,238)
{
Left=10
Top=10
Height=544
Ctl3D=0
Position=1
}
Add(Hub,3694799,350,336)
{
InCount=3
OutCount=1
link(onEvent1,2955374:doLoad,[(391,342)(391,345)])
}
Add(Button,11254953,203,301)
{
Left=95
Top=415
Width=135
Height=60
Font=[Arial,8,0,0,204]
TabOrder=-1
Hint="Шаг 1.Cканировать изображение. Качество картинки = время ожидания."
Caption="сканировать"
link(onClick,10831575:doScan,[])
}
Add(TWAIN,10831575,287,294)
{
link(onScan,13484687:doEvent1,[(471,300)(471,335)])
}
Add(Hub,13484687,518,329)
{
InCount=4
OutCount=4
link(onEvent1,1477425:doLoad,[(604,335)(604,237)])
link(onEvent2,13119395:doClear,[])
link(onEvent3,14645231:doStart,[(576,349)(576,370)])
}
Add(RichEdit,13119395,721,329)
{
Top=445
Width=10
Height=5
Visible=1
Point(doAddBitmap)
Point(RichEdit)
Point(FileName)
}
Add(Button,6737124,203,343)
{
Left=95
Top=480
Width=135
TabOrder=-1
Hint="Шаг 1. Открыть картинку"
Caption="Открыть"
link(onClick,13703943:doExecute,[])
}
Add(ODialog,13703943,287,343)
{
Filter="jpg / bmp"
FileName=""
link(onExecute,3694799:doEvent2,[])
}
Add(Image,1477425,658,231)
{
Width=370
Height=410
}
Add(Thread,14645231,595,364)
{
FastStop=0
link(onExec,2446598:doData,[])
}
Add(DoData,2446598,658,364)
{
link(onEventData,13119395:doAddBitmap,[])
link(Data,5129142:Var2,[])
}
Add(GetDataEx,5129142,651,315)
{
link(Data,1477425:ImageBitmap,[])
}
Add(ImageLoader,2955374,392,336)
{
link(onLoad,13484687:doEvent2,[])
}

------------ Дoбавленo:

Поток, в таких случаях, надо делать одноразовым (FastStop=True), да и время в 1000 msec не обязательно, можно меньше поставить, нужен он тут, чтобы отрисовка и работа мыша не тормозились.
карма: 22

0