[/flood] Вот схема для упаковки видео в exe файл, надо только поменять путь к своему видео в элементе FileStream:
------------ Дoбавленo в 14.45:
Хорошо бы такой компонент написать StreamAdder для объединения 2-х и более потоков в один..
------------ Дoбавленo в 18.20:
Нашел такой элемент - StreamPack, наверное лучше сделать это через него:
Пример из Helpa - для упаковки данных:
Add(MainForm,2953706,511,133)
{
Height=174
Caption="Stream pack"
}
Add(StreamPack,10340199,588,259)
{
DataCount=#4:text|6:number|
link(onPack,4481860:doEvent1,[])
link(text,6375422:Text,[(594,212)(573,212)])
link(number,4223354:Position,[(601,212)(636,212)])
}
Add(Button,5140504,532,259)
{
Left=310
Top=95
Caption="Save"
link(onClick,10340199:doPack,[])
}
Add(Label,8577940,721,203)
{
Left=48
Top=97
Width=49
Height=17
Caption="File name"
}
Add(Label,12358209,567,84)
{
Left=45
Top=12
Width=54
Height=17
Caption="Text value"
}
Add(Label,3999125,628,84)
{
Left=45
Top=40
Width=66
Height=17
Caption="Integer value"
}
Add(Edit,6375422,567,133)
{
Left=125
Top=10
Width=170
}
Add(TrackBar,4223354,630,133)
{
Left=125
Top=35
Width=170
Height=20
Max=20
link(onPosition,9753892:doText,[])
}
Add(Label,9753892,679,133)
{
Left=305
Top=40
Width=10
Height=17
Caption="0"
}
Add(Edit,16013048,679,203)
{
Left=125
Top=95
Width=170
Text="values.dat"
}
Add(FileStream,9551284,679,259)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,16013048:Text,[])
}
Add(Hub,4481860,644,259)
{
link(onEvent1,9551284:doOpen,[])
link(onEvent2,9551284:doCopyFromStream,[(668,272)(668,279)])
}
Для распаковки:
Add(MainForm,8479364,56,105)
{
Height=174
Caption="Stream unpack"
}
Add(Button,5140504,56,161)
{
Left=310
Top=95
Caption="load"
link(onClick,4481860:doEvent1,[])
}
Add(Label,8577940,189,105)
{
Left=48
Top=97
Width=49
Height=17
Caption="File name"
}
Add(Label,12358209,294,112)
{
Left=45
Top=12
Width=54
Height=17
Caption="Text value"
}
Add(Label,3999125,355,112)
{
Left=45
Top=40
Width=66
Height=17
Caption="Integer value"
}
Add(Edit,6375422,294,161)
{
Left=125
Top=10
Width=170
link(Str,14221321:text,[(300,149)(236,149)(236,208)(195,208)])
}
Add(TrackBar,4223354,350,210)
{
Left=125
Top=35
Width=170
Height=20
Max=20
link(onPosition,9753892:doText,[])
}
Add(Label,9753892,399,210)
{
Left=305
Top=40
Width=10
Height=17
Caption="0"
}
Add(Edit,16013048,147,105)
{
Left=125
Top=95
Width=170
Text="values.dat"
}
Add(FileStream,9551284,147,161)
{
AutoCopy=0
link(onLoad,14221321:doUnPack,[])
link(FileName,16013048:Text,[])
}
Add(Hub,4481860,112,161)
{
link(onEvent1,9551284:doOpen,[])
}
Add(StreamUnPack,14221321,189,161)
{
DataCount=#4:text|6:number|
link(onUnPack,9914869:doEvent1,[])
}
Add(Hub,9914869,245,161)
{
link(onEvent1,6375422:doText,[])
link(onEvent2,1776441:doData,[(277,174)(277,216)])
}
Add(DoData,1776441,294,210)
{
link(onEventData,4223354:doPosition,[])
link(Data,14221321:number,[(300,202)(202,202)])
}
Справку хорошо переделали, теперь ее стоит перечесть прежде чем спрашивать... Извиняюсь за беспокойство..
Поиск
Друзья
Администрация