Вверх ↑
Ответов: 1376
Рейтинг: 198
#1: 2011-03-17 00:16:15 ЛС | профиль | цитата
Вот проба записать картинки 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
}


карма: 1

1
Голосовали:Dima