Вверх ↑
Разработчик
Ответов: 26214
Рейтинг: 2138
#1: 2009-03-09 18:19:41 ЛС | профиль | цитата
Извини, но разбирать такие портянки, как-то не очень

Вот пример, как реализовать сжатие и распаковку ZLib-ом. Я думаю, что там все понятно



Add(MainForm,2953706,98,154)
{
Width=144
Height=146
Caption="Test"
Position=1
}
Add(Edit,15872504,203,154)
{
Left=10
Top=10
Width=115
Text="Привет!"
}
Add(Edit,15891572,406,280)
{
Left=10
Top=60
Width=115
Text=""
}
Add(Button,29634,98,196)
{
Left=40
Top=35
TabOrder=-1
Caption="Write"
link(onClick,16101133:doEvent1,[])
}
Add(Button,2254524,98,287)
{
Left=40
Top=85
TabOrder=-1
Caption="Read"
link(onClick,9861879:doEvent1,[])
}
Add(Convertor,7114210,203,224)
{
Mode=12
link(onResult,14969586:doCompress,[])
link(Data,15872504:Text,[])
}
Add(ZLIB,14969586,266,224)
{
link(onStream,4047854:doCopyFromStream,[(317,230)(317,216)])
}
Add(FileStream,4047854,336,196)
{
FileName="test.zip"
Mode=1
Point(doCopyFromStream)
}
Add(Hub,16101133,154,196)
{
OutCount=3
link(onEvent1,4047854:doOpen,[])
link(onEvent2,7114210:doConvert,[(186,209)(186,230)])
link(onEvent3,4047854:doClose,[(252,216)(252,209)])
}
Add(FileStream,15228092,203,287)
{
FileName="test.zip"
link(onLoad,7307144:doDeCompress,[])
}
Add(ZLIB,7307144,266,280)
{
link(onStream,5207418:doConvert,[])
}
Add(Convertor,5207418,336,280)
{
Mode=11
link(onResult,15891572:doText,[])
}
Add(Hub,9861879,161,287)
{
link(onEvent1,15228092:doOpen,[])
link(onEvent2,15228092:doClose,[])
}

карма: 22

0