Вверх ↑
Этот топик читают: Гость
Гость
Ответов: 17029
Рейтинг: 0
#1: 2009-03-09 17:01:14 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 23:21:40
карма: 0

0
Гость
Ответов: 17029
Рейтинг: 0
#2: 2009-03-09 17:14:00 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 23:21:40
карма: 0

0
Разработчик
Ответов: 26212
Рейтинг: 2138
#3: 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
Гость
Ответов: 17029
Рейтинг: 0
#4: 2009-03-09 19:09:48 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 23:21:40
карма: 0

0
Разработчик
Ответов: 26212
Рейтинг: 2138
#5: 2009-03-09 20:20:13 ЛС | профиль | цитата
г. 8.110.254.80.donpac.ru писал(а):
Хотелось бы чтобы файлы закидывающиеся в мешок еще и сжимались

Я показал на потоке как его сжимать и записывать в файл, а также, как распаковывать, что еще надо -- индексацию файлов в мешке, так это надо самому продумать. Есть где-то на форуме, поищи по запросу "файловый мешок", ребята уже этот вопрос юзали.

карма: 22

0
Разработчик
Ответов: 26212
Рейтинг: 2138
#6: 2009-03-10 16:58:02 ЛС | профиль | цитата
Много возникает вопросов по созданию непрерываных архивов, а по-сему, я решил немного восполнить пробел в этой области и сделал пример построения непрерывного ZIP архива. Пример лежит в публикаторе. Сразу предупреждаю, что выдергивать оттуда куски для отдельно взятых примеров кому-то я не буду, кто хочет, то разберется сам.

http://www.hiasm.com/sha/shatools.php?q=5&id=120
карма: 22

0
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)