Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26163
Рейтинг: 2127
#16: 2010-03-20 11:07:17 ЛС | профиль | цитата
mail137.anonymouse.org писал(а):
Порт LZMA под kol

Тут Wolfik, вроде, сам портировал, а не брал готовый KOL. Погоняем, посмотрим, если что, то будем искать утечку
карма: 22

0
Ответов: 4641
Рейтинг: 334
#17: 2010-03-20 11:11:26 ЛС | профиль | цитата
nesco писал(а):
Тут Wolfik

он наверно LZH портировал.
Проверил LZMA он на файле 3мб....виснет...100мб оперативки съедает...
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#18: 2010-03-20 11:13:25 ЛС | профиль | цитата
Ravilr писал(а):
он на файле 3мб....виснет...100мб оперативки съедает...

Уменьш размер словаря, очень сильно влияет на потребление памяти
------------ Дoбавленo в 11.15:
Ravilr писал(а):
он наверно LZH портировал

И LZMA, тоже

Вот, кстати, его отметка -- KOLwlfLZMA


------------ Дoбавленo в 11.17:
Посетил delphimaster -- нет там ничего про утечку памяти порта (я там этого не нашел), только про попытку сделать сам архиватор 7z
карма: 22

0
Ответов: 4641
Рейтинг: 334
#19: 2010-03-20 11:25:45 ЛС | профиль | цитата
nesco писал(а):
Уменьш размер словаря

уменьшил и точно стало меньшее....но скорости не прибавилось....3мб...архивирует..оооооочень долго
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#20: 2010-03-20 11:36:05 ЛС | профиль | цитата
Ravilr писал(а):
архивирует..оооооочень долго

Увеличь ProgressInterval
------------ Дoбавленo в 11.41:
Кстати, неплохо бы ProgressInterval сделать настраиваемым. Это так, на ум пришло
карма: 22

0
Ответов: 4641
Рейтинг: 334
#21: 2010-03-20 11:48:25 ЛС | профиль | цитата
все испробовал...
до 500кб скорость сжатия нормальная, а вот после начинаются тормоза.
nesco, у тебя по другому работает?
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#22: 2010-03-20 12:00:45 ЛС | профиль | цитата
Ravilr писал(а):
у тебя по другому работает?

А ты на чем проверяешь, на каком примере
------------ Дoбавленo в 12.09:
При ProgressInterval=1000, DictionerySize=20 и длине файла 1,4 Mb сжало за 1,16 сек, и сжало больше чем в 2,5 раза (файл *.dll)
------------ Дoбавленo в 12.15:
При ProgressInterval=1000, DictionerySize=20 и длине файла 10,9 Mb сжало за 21,7 сек, и сжало больше чем в 18 раза (текстовый log)
карма: 22

0
Ответов: 4641
Рейтинг: 334
#23: 2010-03-20 12:54:03 ЛС | профиль | цитата
nesco писал(а):
примере

может схема не такая?
code_17434.txt
------------ Дoбавленo в 13.03:
забыл написать я как всегда проверяю на FPC
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
файлы: 1code_17434.txt [620B] [468]
Разработчик
Ответов: 26163
Рейтинг: 2127
#24: 2010-03-20 13:26:02 ЛС | профиль | цитата
Ravilr писал(а):
забыл написать я как всегда проверяю на FPC

Ну, звэняйте, батьку Ничем помочь не могу, все вопросы к авторам FPC.
А схема у тебя сильная, однако

Вот эту попробуй, для чистоты эксперимента



Add(MainForm,11110781,497,140)
{
Left=300
Top=200
Width=153
Height=129
Caption="LZMA Demo"
BorderStyle=3
}
Add(LZMA,1755314,301,189)
{
DictionarySize=20
ProgressInterval=1000
Point(DestSize)
Point(onProgress)
Point(onProgressMax)
Point(onError)
link(onStream,1185699:doEvent1,[(341,195)(341,167)])
link(Stream,12259100:Stream,[])
link(onProgress,11003155:doPosition,[])
link(onProgressMax,11003155:doMax,[])
link(onError,8038993:doMessage,[])
}
Add(Button,10125888,105,84)
{
Left=10
Top=25
TabOrder=-1
Caption="Pack"
link(onClick,1096359:doEvent1,[])
}
Add(Button,6333852,105,147)
{
Left=80
Top=25
TabOrder=-1
Caption="Unpack"
link(onClick,5168960:doEvent1,[])
}
Add(ODialog,1914952,210,84)
{
FileName=""
link(onExecute,12259100:doOpen,[])
}
Add(FileStream,12259100,301,84)
{
link(onLoad,16264439:doExecute,[])
}
Add(Memory,11596301,392,84)
{
}
Add(SDialog,16264439,343,84)
{
FileName=""
link(onExecute,11596301:doValue,[])
}
Add(FileStream,13389639,392,147)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,11596301:Value,[])
}
Add(Hub,1185699,350,161)
{
OutCount=4
link(onEvent1,13389639:doCopyFromStream,[])
link(onEvent2,13703545:doStop,[(433,174)(433,153)])
link(onEvent3,12259100:doClose,[(376,181)(376,136)(289,136)(289,97)])
link(onEvent4,6925404:doString,[(376,188)(376,283)(285,283)(285,251)])
}
Add(Message,8664802,392,245)
{
Caption="Done!!!"
}
Add(ProgressBar,11003155,448,196)
{
Top=79
Width=147
Align=4
Ctl3D=0
WinStyle=2
Smooth=1
ProgressColor=7554575
Point(doMax)
}
Add(FormatStr,6925404,301,245)
{
DataCount=1
Mask="File size is %1 bytes"
link(onFString,8664802:doMessage,[])
link(Str1,1755314:DestSize,[])
}
Add(Message,8038993,392,210)
{
Caption="Error"
Icon=1
}
Add(TimeCounter,13703545,448,140)
{
link(onStop,11110781:doCaption,[(488,153)(488,146)])
}
Add(Hub,1096359,154,84)
{
link(onEvent1,7999595:doWork2,[])
link(onEvent2,1934272:doStart,[(193,97)(193,146)])
}
Add(Hub,5168960,154,147)
{
link(onEvent1,7999595:doWork3,[(186,153)])
link(onEvent2,13232037:doStart,[(186,160)(186,195)])
}
Add(HubEx,7999595,182,84)
{
link(onEvent,1914952:doExecute,[])
}
Add(Thread,1934272,210,140)
{
Delay=0
FastStop=0
link(onExec,4009044:doEvent1,[])
}
Add(Thread,13232037,210,189)
{
Delay=0
FastStop=0
link(onExec,2659492:doEvent1,[])
}
Add(Hub,4009044,252,140)
{
link(onEvent1,15631013:doWork2,[])
link(onEvent2,1755314:doCompress,[(284,153)(284,195)])
}
Add(Hub,2659492,252,189)
{
link(onEvent1,15631013:doWork3,[(277,195)])
link(onEvent2,1755314:doDeCompress,[])
}
Add(HubEx,15631013,273,140)
{
link(onEvent,13703545:doStart,[])
}

карма: 22

0
Ответов: 4641
Рейтинг: 334
#25: 2010-03-20 13:38:04 ЛС | профиль | цитата
nesco писал(а):
для чистоты эксперимента

также...медленно.
может конечно на новом FPC все ок....но нет у меня его.

Собственно буду использовать LZH.....он сжимает быстро.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#26: 2010-03-20 13:59:58 ЛС | профиль | цитата
Ну, под FPC у меня 10,9 Mb, при тех же параметрах, ушатало за 51 сек, не шибко быстро, но не так уж и медленно
------------ Дoбавленo в 14.01:
Ravilr писал(а):
он сжимает быстро

Но и хуже, почти как zip

А старый FPC я не признаю как компилятор, сырой он был страшно и не оптимизированный, спасает только то, что он халявный
карма: 22

0
Ответов: 16884
Рейтинг: 1239
#27: 2010-03-20 14:12:43 ЛС | профиль | цитата
nesco писал(а):
А старый FPC я не признаю как компилятор
а новый прикрутил?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#28: 2010-03-20 14:16:13 ЛС | профиль | цитата
Tad писал(а):
а новый прикрутил?

Не, не крутил. Жду, когда кто-то прикрутит. Надо народу поработать дать, не все же самому делать. А народ втихаря себе поприкручивал, и молчит как рыба. Что-то не шибко торопятся делится наработками
карма: 22

0
Ответов: 4641
Рейтинг: 334
#29: 2010-03-20 14:54:33 ЛС | профиль | цитата
Под это дело установил 2.2.4
nesco, работает со скорость делфи !
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 16884
Рейтинг: 1239
#30: 2010-03-20 15:06:09 ЛС | профиль | цитата
Ravilr писал(а):
работает со скорость делфи !
и все компоненты работают ?
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)