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 не обязательно, можно меньше поставить, нужен он тут, чтобы отрисовка и работа мыша не тормозились.
|