Добрый день всем !
В одной моей программе по дате и номеру, вводимыми пользователями ищется подходящий файл XML и импортируется.
Оказалось что у другого заказчика тот файл сидит в одноименном ZIPе. Можно конечно сказать им чтоб распаковывали, однако лучше бы их этим не грузить.
Кто что может посоветовать
1. Куда распаковывать ? В ту же папку где ZIP лежит ? Может и сетевая оказаться...
В некую локальную TEMP ?
2. Чем лучше распаковывать ? Библиотеки есть какие ? или 7zip взять ?
Посоветуйте распаковку
Clarion, Clarion 7
Модератор: Дед Пахом
Правила форума
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
При написании вопроса или обсуждении проблемы, не забывайте указывать версию Clarion который Вы используете.
А так же пользуйтесь спец. тегами при вставке исходников!!!
Андрей
Посоветуйте распаковку
Добрый день!
1. Распаковывать надо во временный каталог %Temp%, в Кларионе есть функция GetTempPath
2. Распаковывать, используя библиотеку Zlib. У меня есть ZipClass, старый, но пользую до сих пор
https://mega.nz/#!JoQiSBSI!19Oe2HA0R1eD ... F3tH9sGTcI
1. Распаковывать надо во временный каталог %Temp%, в Кларионе есть функция GetTempPath
2. Распаковывать, используя библиотеку Zlib. У меня есть ZipClass, старый, но пользую до сих пор
https://mega.nz/#!JoQiSBSI!19Oe2HA0R1eD ... F3tH9sGTcI
Последний раз редактировалось Yufil 03 Апрель 2017, 14:28, всего редактировалось 1 раз.
Yufil
- Дед Пахом
- Старичок
- Сообщения: 3302
- Зарегистрирован: 07 Июль 2005, 16:51
- Откуда: Москва, Россия
- Благодарил (а): 15 раз
- Поблагодарили: 51 раз
- Контактная информация:
Посоветуйте распаковку
У меня есть библиотека (платная), в которой с zip-архивами работаешь как с папками, то есть не надо распаковывать вообще.
С уважением, ДП
Дед Пахом
-
- ✯ Ветеран ✯
- Сообщения: 5183
- Зарегистрирован: 28 Май 2009, 15:54
- Откуда: Москва
- Благодарил (а): 11 раз
- Поблагодарили: 26 раз
Посоветуйте распаковку
Я пользовался консольным winrar'ом, в фоне всё сам сделает. Не помню про лицензию, не требуется, кажется, для консольного варианта.
We are hard at work… for you. 

kreator
- Игорь Столяров
- Ветеран движения
- Сообщения: 8081
- Зарегистрирован: 07 Июль 2005, 10:19
- Откуда: г. Ростов-на-ДоМу
- Благодарил (а): 29 раз
- Поблагодарили: 98 раз
Посоветуйте распаковку
А я вообще ничем не пользуюсь.
Мне лень и денег жалко.
Распаковываем ZIP средствами WinApi ....
Мне лень и денег жалко.

Распаковываем ZIP средствами WinApi ....
Код: Выделить всё
UnloadZIPFile PROCEDURE (ZipFile_,Dest_)
Loc:Object CSTRING(65)
Loc:RetValue BYTE(False)
Loc:Path CSTRING(255)
CODE
If Exists(ZipFile_)
If Exists(Dest_) then Remove(Dest_).
If ~Exists(Dest_)
Loc:Object = Create(0,Create:Ole)
Loc:Object{Prop:Create} = 'Shell.Application'
Loc:Object{Prop:ReportException} = True
Loc:Path = Clip(xExtractFileName(Dest_,1)) & Clip(xExtractFileName(Dest_,2))
Loc:Object{'NameSpace("' & Loc:Path & '").CopyHere(' & |
Clip(Loc:Object{'NameSpace("' & ZipFile_ & '").Items()'}) & ',20)'}
If Exists(Dest_) then Loc:RetValue = True.
Loc:Object{Prop:Deactivate}
end
end
Return(Loc:RetValue)
Make Clarion Great Again ! 
Игорь Столяров
Вернуться в «CLARION for Windows»
Перейти
- CW
- ↳ CLARION for Windows
- ↳ CLARION for Internet
- ↳ Clarion.NET
- Эксклюзив
- ↳ Приват
- CLARION и...
- ↳ Reports
- ↳ Железо
- ↳ Готовые программы, шаблоны, библиотеки...
- ↳ cJSON
- ↳ LibCurl
- ↳ MAV
- ↳ SQL, Oracle, ...
- ↳ Multi-программирование(Pascal/Delphi, и т.д.)
- ↳ WinDev
- DOS
- ↳ CLARION for DOS
- Разное
- ↳ Новости
- ↳ English
- ↳ Ресурсы
- ↳ Работа
- ↳ Обо всем ...
- ↳ Обсуждение этого Форума (типа, Гостевая книга)