Вот проба записать картинки jpg в массив, записать на диск, загрузить и проиграть это "видео"
Add(MainForm,2953706,595,112) { Width=762 Height=451 Position=1 } Add(Button,6230592,161,112) { Left=20 Top=10 Caption="Record" link(onClick,10638667:doTimer,[]) } Add(Button,4391041,161,154) { Left=20 Top=35 Caption="Stop" link(onClick,10638667:doStop,[(244,160)(244,125)]) } Add(Timer,10638667,259,112) { Interval=100 Enable=1 link(onTimer,4395170:doCapture,[]) } Add(Memory,1212283,308,63) { Default=Integer(0) } Add(ScreenShort,4395170,308,112) { link(onCapture,1633170:doEvent1,[]) link(Handle,1212283:Value,[]) } Add(StreamArray,8055025,525,56) { Streams=[] } Add(Jpeg,14238430,469,182) { Point(doSaveToStream) Point(Stream) Point(doLoadFromBitmap) Point(Quality) link(Stream,8900880:Var2,[]) link(Quality,10192634:Position,[(482,100)(370,100)]) } Add(MemoryStream,12621220,469,119) { } Add(ArrayRW,4748888,525,203) { link(Array,8055025:Array,[]) link(Value,8900880:Var3,[(545,164)]) } Add(GetDataEx,8900880,469,159) { link(Data,12621220:Stream,[]) } Add(SDialog,3958838,462,56) { Filter="Bin files|*.bin" link(onExecute,8055025:doSave,[]) } Add(Button,937994,406,56) { Left=20 Top=60 Caption="Save" link(onClick,3958838:doExecute,[]) } Add(Hub,1633170,357,112) { OutCount=5 link(onEvent1,10939182:doData,[]) link(onEvent2,12621220:doClear,[(440,125)(440,132)]) link(onEvent3,14238430:doLoadFromBitmap,[(420,132)(420,209)]) link(onEvent4,14238430:doSaveToStream,[(413,139)(413,202)]) link(onEvent5,4748888:doAdd,[(407,146)(407,223)]) } Add(DoData,10939182,532,112) { link(onEventData,2953706:doCaption,[]) link(Data,8055025:Count,[]) } Add(Button,10693261,161,266) { Left=20 Top=165 Caption="Play" link(onClick,15313231:doWork2,[]) } Add(Hub,15695469,238,343) { link(onEvent1,2653514:doLoadFromStream,[]) link(onEvent2,2653514:doBitmap,[]) } Add(Jpeg,2653514,287,329) { Point(Stream) Point(doLoadFromStream) Point(doBitmap) link(onBitmap,7816834:doLoad,[]) link(Stream,1987327:Item,[]) } Add(Image,7816834,343,329) { Left=145 Top=5 Width=605 Height=410 } Add(StreamArray,7187623,287,217) { Streams=[] } Add(Button,13348922,161,217) { Left=20 Top=140 Caption="Load" link(onClick,11857514:doExecute,[]) } Add(ODialog,11857514,224,217) { Filter="Bin-файлы|*.bin" link(onExecute,7187623:doLoad,[(272,223)(272,230)]) } Add(ArrayEnum,1987327,287,266) { onBreakEnable=0 link(onItem,5761726:doEvent1,[]) link(onEndEnum,15313231:doWork3,[(331,279)(331,307)(249,307)]) link(Array,7187623:Array,[]) } Add(Hub,5761726,343,266) { link(onEvent1,10633968:doProcessMessages,[]) link(onEvent2,15695469:doEvent1,[(369,279)(369,321)(226,321)(226,349)]) } Add(Application,10633968,385,266) { Wait=1 } Add(HubEx,15313231,245,266) { link(onEvent,1987327:doEnum,[]) } Add(Button,16292895,161,301) { Left=20 Top=190 Caption="Stop" link(onClick,1987327:doStop,[(207,307)(207,279)]) } Add(TrackBar,10192634,364,56) { Left=85 Top=15 Width=20 Height=110 Max=100 Position=20 Kind=1 TickMarks=1 }
|