Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сжатие данных для KOL [D7, WinXP]


Страницы:   1 2 3 4

X9 ©   (2004-03-13 06:43:00) 

Подскажите кто-нибудь, где можно взять компонент для сжатия(KOL). Пробовал KOLZLib, только чтобы без библиотек, однако он позволяет сжимать/извлекать только из файла в файл, да и ещё выдаёт ошибку при сжатии файлов > 300кб.


X9   (2004-04-02 14:39:00) [41]

2Михаил
А для Delphi7 нет исходников?


Михаил   (2004-04-02 09:45:00) [42]

У меня есть VCLZip 2.17 с исходниками (D5,D6)...
Пользуюсь очень давно...
Если кого интересует - мыльте....


Dimaxx   (2004-04-02 00:13:00) [43]

2 Х9: Получить - не получил, но скачал... Сенькс тебе гигантский за сырцы! Там даже есть распаковка метода Inflate64!!!! Вот это супер!!!


Vetek   (2004-04-01 12:48:00) [44]

ZipTV.rar скачал :)))
Хорошая штука !


Владимир Кладов   (2004-04-01 10:13:00) [45]

Вот я и говорю: 1 раз все найти и написать правила для автоматической конвертации, и потом можно работу автоматизировать.


X9   (2004-04-01 09:37:00) [46]

Спасибо за совет, хотя я этим пользуюсь. Но дело ведь не только в TSringList и TMemoryStream. В этих компонентах очень часто используются процедуры и функции из SysUtils, и, хотя у меня есть исходники этого модуля, в нем есть функции, которые используют другие функции из SysUtils. Я знаю, что в KOL реализованы почти все возможности SysUtils и даже больше, однако рни имеют разное написание, например:
StrToInt -> Str2Int
CompareText -> AnsiCompareText и др.
Поэтому на поиск процедур-клонов уходит немало времени.


Владимир Кладов   (2004-04-01 09:21:00) [47]

Для таких преобразований можно использовать GlueCut. Один раз задать набор рулесов вроде
REPLACE[TStringList.Create][NewStrList]
REPLACE[TStringList][PStrList]
...
И потом только подставлять их, и получать на выходе KOL-версию компоненты. Подумайте: лучше 1 день потерять (на изучение), зато потом сколько дней выиграть...


X9   (2004-04-01 07:39:00) [48]

2Gandalf
Ну как, закачали? Если да, то что вы думаете об адаптации в KOL?
В разумные сроки, конечно:)).
2Dimaxx
А вы получили? Если все всё получили, то давайте распределять обязанности(т.е. модули), т. к. 60 модулей перевести в одиночку, на мой взгляд, очень проблематично. Я тут в KOL немного осваиваться начал. Там ведь в основном надо TMemoryStream, TFileStream заменить на PSream, поставив вместо
T***Stream.Create NewRead/WriteStream и NewMemoryStream, и ещё часто встречается TStringList -> PStrList. Давайте тогда я как чайник в KOL начну с небольших модулей - например, ztvUnJar и ztvJar.


Dimaxx   (2004-03-31 21:47:00) [49]

Гендальф, участвую!


Gandalf   (2004-03-31 19:21:00) [50]

Качаю... даст бог скачается... по мне ZipTV круче, ну что попробуем портануть?


X9   (2004-03-31 05:22:00) [51]

Заходите на ftp://ruwh.comс логином xplorer и паролем corel или на htt://narod.yandex.ru с логином xplorer-delphi и паролем
corel. На ruwh.com в папке download/delphi/tvzip/, а на народе -
в download/delphi. Если никак, то исходникия уже отослал Dimaxx.
У меня есть VCLZip, только без сырцов, моё мыло - x-comp2004@mail.ru


Dimaxx   (2004-03-30 22:20:00) [52]

Пишет "Нет такой страницы"! Че делать!!! Залей на hotbox.ru - там пофигу размер.


mdw   (2004-03-30 10:38:00) [53]

У меня есть компонент VCLZip с исходниками, правда довольно старенький (Version 2.17 February 8, 1999). Давно портануть собираюсь, но сейчас работы - выше крыши:((. Если у кого есть желание и возможность - пришлю. Я смотрел, там, в принципе, работы не очень много.
Ах, да работает с Zip архивами (компрессия\декомпрессия).


X9   (2004-03-30 09:46:00) [54]

В общем заходите на http://xplorer-delphi.narod.ruс паролем corel, но только, plz, не меняйте его!


X9   (2004-03-30 09:32:00) [55]

Извините за битый линк, вот нормальный:
http://xplorer.ruwh.com/download/delphi/ziptv/ziptv.part1.rar
http://xplorer.ruwh.com/download/delphi/ziptv/ziptv.part2.rar
Всё вместе весит чуть меньше 700 кб. Извините за многотомный архив, но на этом хосте не разрешено отправлять файлы > 500 кб.


X9   (2004-03-30 09:03:00) [56]

Кому на мыло - выкладывайте адреса. А вот линк на версию 6.8.4 с сырцами и демкакми - бесплатно:
http://xplorer-delphi.narod/download/delphi/ziptv.rar- весит
около 700 кб.
2Alekc
Да, действительно, теперь это ZipTV.


Dimaxx   (2004-03-29 22:36:00) [57]

Сайт www.ziptv.com. Либа стоит денег, у меня есть ломалка 3.50, но прогресс не стоит на месте... Исходники любой версии на мыло, плз...


dvkr   (2004-03-29 20:02:00) [58]

недавно занимался этой проблемой перекопал довольно много материала. но остановился на том , что использовал консольный упаковщик 7z ( http://www.7-zip.org/) и в своей проге запускал.
Писал на KOL что-то типа
ExecuteWait('7za.exe',Бпараметры>,GetTempDir,SW_HIDE, INFINITE, nil)
сжатие получше даже в формате zip.


Alekc   (2004-03-29 19:08:00) [59]


> По-моему ты недогоняешь, сам понял чё сказал?

Я - понял. А что непонятно тебе ?

> Я поработал с TCompress и нашёл в нём кучу глюков. Затем,
> покопавшись в своём архиве компонентов, я нашёл оптимальный
> вариант - TVZip.

TVZip ? Это не то, что теперь зовётся ZipTV ?


Gandalf   (2004-03-29 17:01:00) [60]

Хм... если уж и переводить, то лучшее - у меня есть TVZip но очень старый - и без сорцов, поделись - можно посмотреть...


Страницы:   1 2 3 4

Наверх

Титульная страница Поиск, карта сайта Написать письмо