Отправлено: 03.10.13 12:21. Заголовок: zip функции харбор

подскажите , стоит переписывать архивные функции на встроенные zip функции харбор 3,2,0 ? Надежно они работают ?
Раньше в клиппер использовал вызов внешних консольных rar или arj.

 Отправлено: 03.10.13 13:14. Заголовок: and3081 пишет: встр..

and3081 пишет:

цитата:

встроенные zip функции харбор 3,2,0 ? Надежно они работают ?

Да, они работают хорошо

Ниже пример архивации с паролем:

цитата:

* aFiles := { "test.prg", "C:\windows\win.ini" } nLen := Len( aFiles ) aGauge := GaugeNew( 5, 5, 7, 40, "W/B", "W+/B" , "." ) GaugeDisplay( aGauge ) hb_ZipFile( "test33.zip", aFiles, 9, {| cFile, nPos | GaugeUpdate( aGauge, nPos / nLen ) },, "hello" ) RETURN

 Отправлено: 03.10.13 16:37. Заголовок: что-то не найду в ха..

что-то не найду в харборе функций gauge...

 Отправлено: 03.10.13 17:00. Заголовок: and3081 пишет: что-..

and3081 пишет:

цитата:

что-то не найду в харборе функций gauge

ее там и нет , хотя и была
возьми из clipper исходника

CLIPPER\SOURCE\SAMPLE\GAUGE.PRG

 Отправлено: 05.10.13 12:35. Заголовок: а есть функция тести..

а есть функция тестирования CRC zip архива ? Или только распаковывать и смотреть код возврата hb_unzipfile() ?

вообще беда с описанием функций. многие функции в доках не упоминаются, хотя в общем списке функций есть.

 Отправлено: 05.10.13 13:52. Заголовок: to gfilatov2002 к..

to gfilatov2002

как выяснилось, не все так радужно. См. мою отдельную темку по hb_unzipfile() и т.д.

 Отправлено: 06.10.13 19:22. Заголовок: and3081 пишет: См. ..

and3081 пишет:

цитата:

См. мою отдельную темку по hb_unzipfile()

Некоторые из обнаруженных Вами косяков уже были исправлены в поставке библиотеки минигуи (см. в папке minigui\source\hbziparc)

 Отправлено: 07.10.13 11:34. Заголовок: в 3.2.0 по умолчанию..

в 3.2.0 по умолчанию минигуи нет ? Надо дополнительно качать ?

 Отправлено: 07.10.13 11:40. Заголовок: Все правки этого мод..

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

http://groups.google.com/group/harbour-devel/

Для доступа требуется регистрация, но она элементарная

 Отправлено: 08.10.13 09:07. Заголовок: Объединил правки hmg..

Объединил правки hmg, and3081, и добавил кое-что от себя.
Передам патч в devlist
Среди разработчиков СПО принято давать ссылки на автора. and3081, как Вас назвать ?

 Отправлено: 08.10.13 18:13. Заголовок: Да так можно и назва..

Да так можно и назвать and3081, я привык

 Отправлено: 23.08.14 23:21. Заголовок: Чтобы не создавать л..

Добрый день.

Чтобы не создавать лишние темы, спрошу здесь.

1) Функция hb_ZipFile() при создании архива, имя которого задано кириллицей (CP866), создает кракозябры. Внутри архива - все файлы с кириллическими именами в норме.

2) Если указать (предпоследний) параметр <lWithPath> Toggle to store the path or not как TRUE, то установка последнего параметра <lWithDrive> Toggle to store the Drive letter and path or not уже никакого влияния не имеет: внутрь архива файл помещается с именем диска. Не то чтобы это серьезная проблема, но как-то некузяво, когда входишь в архив и видишь первым каталог с именем D:\...

Где нужно подкрутить ?
Спасибо.

 Отправлено: 24.08.14 11:06. Заголовок: Тэкс, с первым вопро..

Тэкс, с первым вопросом разобрался. Имя файла перекодирую в CP1251 и тогда все создается как нужно...
Кривовато, но что делать....
--
Остается вопрос номер два: нужно поместить в архив каталог с файлами, содержащий подкаталоги. Не пойму, как это правильно сделать. hb_ZipFile() сохраняет полный путь, начиная с корня диска.
Пример:
есть каталог d:\data\local\save в нем файлы, например, куча *.dbf и подкаталог d:\data\local\save\logs
Нужно сохранить целиком все файлы из \save\*.* и отдельным подкаталогом save\logs\*.*

Получается - либо всё в одну кучу, либо с полным путем: d:\data\...

 Отправлено: 24.08.14 15:06. Заголовок: Не знаю как hb_ZipFi..

Не знаю как hb_ZipFile(), а в МиниГуи команда такая:
COMPRESS aFiles ;
TO cBackupZip ;
BLOCK { | cFile, nPos | ProgressUpdate( nPos, cFile, aSizeFiles, .T. ) } ;
LEVEL LEVEL_ZIP ;
PASSWORD cPass ;
OVERWRITE ;
STOREPATH ;
FILEPROGRESS { | nPos, nTotal | ProgressFile( nPos, nTotal, .T. ) } ;
RESULT lSuccess
Куда можно любые файлы по разным путям архивировать.
Т.е. задаещь в массив aFiles нужные файлы и все.

 Отправлено: 24.08.14 15:28. Заголовок: Andrey пишет: Не зн..

Andrey пишет:

цитата:

Не знаю как hb_ZipFile(), а в МиниГуи команда такая: COMPRESS aFiles ;

Ну вообще то это и есть hb_zipFile

 
 #command COMPRESS [ FILES ] <afiles> ; 
 		TO <zipfile>  ; 
 		BLOCK <block> ; 
 		[ RESULT [ TO ] <lSuccess> ] ; 
 		[ LEVEL <level> ] ; 
 		[ <ovr: OVERWRITE> ] ; 
 		[ PASSWORD <password> ] ; 
 		[ <srp: STOREPATH> ] ; 
 		[ FILEPROGRESS <fileblock> ] ; 
 	=> ; 
 	[ <lSuccess> := ] hb_ZipFile( <zipfile> , <afiles> , <level> , <block> , <.ovr.> , <password> , <.srp.> , , <fileblock> ) 
  
 

Кроме того в Минигуи своя HbZipArc , не такая как в Harbour

 Отправлено: 24.08.14 21:07. Заголовок: Andrey пишет: Не зн..

Andrey пишет:

цитата:

Не знаю как hb_ZipFile(), а в МиниГуи команда такая: COMPRESS aFiles ... Куда можно любые файлы по разным путям архивировать. Т.е. задаещь в массив aFiles нужные файлы и все.

Проблем с архивированием файлов как таковым нет. Есть маленький вопрос: если указывать параметр StorePath как TRUE, в архив попадает полный путь файла. Начиная с буквы диска.

Заходишь такой, ничего не подозревая, в архив тоталом или фаром, а тут - БАЦ! и первое, что видишь - "папку" D:

У всех так ?

 Отправлено: 24.08.14 21:13. Заголовок: Sergy пишет: У всех..

Sergy пишет:

цитата:

У всех так ?

Да у меня тоже так !
Но мне это даже лучше, так как я вижу откуда пользователь делал архив.
При распаковке этот полный путь не влияет ни на что....

 Отправлено: 29.08.14 21:31. Заголовок: Andrey пишет: Да у ..

Andrey пишет:

цитата:

Да у меня тоже так ! Но мне это даже лучше, так как я вижу откуда пользователь делал архив. При распаковке этот полный путь не влияет ни на что....

Моя цель была сделать "привычный" архив. На гуглофоруме подсказал знающий человек.
Перед запуском hb_ZipFile() нужно сменить текущий директорий, передать список файлов с "относительными" путями, запаковать, после чего вернуть текущий каталог на место.

Может кому пригодится.

 Отправлено: 04.09.14 13:50. Заголовок: Sergy пишет: Моя це..

Sergy пишет:

цитата:

Моя цель была сделать "привычный" архив.

Поправил для новой сборки 2.3.9 в библиотеке HbZipArc создание архива с сохранением путей к файлам с учетом этого обсуждения (т.е. имя диска теперь не включается в архив) и изменений, выполненных Виктором (Viktor Szakats).

 Отправлено: 05.09.14 16:45. Заголовок: gfilatov2002 пишет: ..

gfilatov2002 пишет:

цитата:

Поправил для новой сборки 2.3.9 в библиотеке HbZipArc создание архива с сохранением путей к файлам с учетом этого обсуждения (т.е. имя диска теперь не включается в архив) и изменений, выполненных Виктором (Viktor Szakats).