Вверх ↑
Ответов: 701
Рейтинг: 146
#1: 2024-03-29 11:43:54 ЛС | профиль | цитата
strannik_nebes писал(а):
Пытаюсь понять как работает упаковщик в поток и делаю вывод, что даже примеры упаковки в файл и распаковки из программы также не работают


Add(MainForm,2953706,21,105)
{
Width=788
Height=199
}
Add(StreamPack,10340199,245,301)
{
DataCount=#4:text|6:number|
link(onPack,1788851:doCompress,[])
link(text,6375422:Text,[(251,254)(230,254)])
link(number,4223354:Position,[(258,254)(293,254)])
}
Add(Button,5140504,189,301)
{
Left=310
Top=95
Caption="Save"
link(onClick,10340199:doPack,[])
}
Add(Label,12358209,224,126)
{
Left=45
Top=12
Width=54
Height=17
Caption="Text value"
}
Add(Label,3999125,285,126)
{
Left=45
Top=40
Width=66
Height=17
Caption="Integer value"
}
Add(Edit,6375422,224,175)
{
Left=125
Top=10
Width=170
}
Add(TrackBar,4223354,287,175)
{
Left=125
Top=35
Width=170
Height=20
Max=20
link(onPosition,9753892:doText,[])
}
Add(Label,9753892,336,175)
{
Left=305
Top=40
Width=10
Height=17
Caption="0"
}
Add(DoData,1776441,763,343)
{
link(onEventData,10998011:doPosition,[])
link(Data,14221321:number,[(769,334)(643,334)])
}
Add(Label,14579262,735,245)
{
Left=360
Top=12
Width=54
Height=17
Caption="Text value"
}
Add(Label,6159879,796,245)
{
Left=360
Top=40
Width=66
Height=17
Caption="Integer value"
}
Add(Edit,11385015,763,294)
{
Left=440
Top=10
Width=170
link(Str,14221321:text,[(769,285)(706,285)(706,341)(636,341)])
}
Add(TrackBar,10998011,819,343)
{
Left=440
Top=35
Width=170
Height=20
Max=20
link(onPosition,7919733:doText,[])
}
Add(Label,7919733,868,343)
{
Left=620
Top=40
Width=10
Height=17
Caption="0"
}
Add(StreamUnPack,14221321,630,294)
{
DataCount=#4:text|6:number|
link(onUnPack,9914869:doEvent1,[])
}
Add(Hub,9914869,714,294)
{
link(onEvent1,11385015:doText,[])
link(onEvent2,1776441:doData,[(746,307)(746,349)])
}
Add(ZLIB,1788851,315,301)
{
link(onStream,1530552:doDeCompress,[])
}
Add(ZLIB,1530552,574,294)
{
link(onStream,14221321:doUnPack,[])
}

карма: 15

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