Работа с zip архивами

@testuser2 · Регистрация: 08.02.2017

Студворк — интернет-сервис помощи студентам

Из всего, что попадалось по теме сжатия/распаковки ZIP наиболее интересные были примеры с использованием библиотеки Zlib. Оригинальная zlib использует cdecl экспорт функций, но есть реализация zlibwapi.dll, которую можно использовать в VB. Вот хороший пример использования. Там можно увидеть как сжть/распаковать массив байтов, но вот беда, очень сложно найти пример под VB с более обширным использованием, способной на большее, данной либы, которая не есть простая, там есть функции с использованием множества параметров констант и длинных структур, которые чтобы узнать наверное надо долго копатся в сишных заголочниках. Но HackerVlad в личной беседе говорил, что у него есть исходники с использованием данной библиотеки, поэтому любезно прошу его поделиться данной информацией.

Добавлено через 1 минуту
кстати словосочетание zip-архивами в названии форум блочит почему-то )

Добавлено через 6 минут
На одном форуме есть хороший пример испльзования функций zlib для извлечения/распаковки отдельных файлов, там

Кликните здесь для просмотра всего текста

обсуждался какой-то экзотический ЯП Clarion, но очень наглядно

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
! Источнег: https://forum.clarionlife.net/viewtopic.php?t=2389
! Для добавления в архив PwlZip ваш пароль
ZipHandle = zipOpen(NEW_ZIPPACK, 0)
If EncryptFlag = 1
Res# = zipOpenNewFileInZip3(ZipHandle, PATH_CURZIP, Zinfo, 0, 0, 0, 0, Comment, Z_DEFLATED, CompressionFlag,0,-15,8,0,PwlZip,0)
Else
Res# = zipOpenNewFileInZip(ZipHandle, PATH_CURZIP, Zinfo, 0, 0, 0, 0, Comment, Z_DEFLATED, CompressionFlag)
.
 
!Для чтения из архива
ZipHandle = unzOpen(PATH_INFILE_PACK)
LocRes1=UnzGoToFirstFile(ZipHandle)
If unzGetCurrentFileInfo(ZipHandle,FinFo,PATH_NAMEUPD_TMP,Size(PATH_NAMEUPD_TMP),0,0,Comment,Size(Comment)).
If FinFo.Flag = 3 !признак шифрованного zip по крайней мере так я понял после мыкания с архивами
LocRes2 = unzOpenCurrentFilePassword(ZipHandle,PwlZip)
Else
LocRes2 = UnzOpenCurrentFile(ZipHandle)

Здесь подробное описание функций, структур и констант, однако я не нашел там unzGetCurrentFileInfo и т.п.

@HackerVlad · 06.11.2024, 16:58

Сообщение от testuser2

Это также как "жюри, брощюра, паращют"

Самое смешное что эти правила ни раз менялись то через Ю то снова возвращали через У писать то опять снова через Ю

Добавлено через 10 минут
Я лично помню как ещё в 2001 году по телевизору показывали как сам Путин говорил о том что мы будем писать парашют через букву У, и почему-то мы сейчас пишем через Ю

Добавлено через 3 минуты
И я насмотревшись телевизора тогда пришёл в школу и начал писать парашУт через букву У, за что мне училка влепила двойку, а ей такой говорю: вы что телевизор не смотрели о новых правилах? а ей всё равно было.

@HackerVlad · 07.11.2024, 04:36

testuser2, кстати вот тут есть ещё тема как работать с 7z архивами: https://www.vbforums.com/showt... ip-support

Добавлено через 4 минуты
И кстати я сейчас заметил что дельты сжимают почти так же хорошо как 7ZIP а архивы 7z это самые лучшие

@testuser2 · 07.11.2024, 07:46 **[ТС]**

HackerVlad, какбы эти дельты под x64 еще заюзать

Добавлено через 1 минуту
А то душа не на спокое уже от етого

Добавлено через 2 часа 55 минут
Причем на x86 если у этой функции задать другое кол-во аргументов, и сделать простой вызов с нулями, то выйдет ошибка "bed DLL conversion", но на x64 именно она вызывает ислючение. Надо еще попробовать DeltaW и DeltaA

@HackerVlad · 07.11.2024, 12:22

testuser2, а ты пробовал читать MSDN? Или там ничего не понятно по этому поводу?

@testuser2 · 07.11.2024, 12:58 **[ТС]**

Сообщение от HackerVlad

а ты пробовал читать MSDN?

Я тебе перекрестный вопрос скажу, а ты пропробуй найти где написано что флаги DELTA_FILE_TYPE и DELTA_FILE_TYPE 64-битные (8 байт), вот просто интересно где про это написано, допустим, это как пример.

Добавлено через 2 минуты
Где в MSDN указаны значения этих флагов типа DELTA_FLAG_IGNORE_FILE_SIZE_LIMIT?

@locm · 07.11.2024, 13:12

Сообщение от testuser2

На x64 чудо-функции запустить не получилось.

Разве VB компилирует в x64?

@testuser2 · 07.11.2024, 13:58 **[ТС]**

Сообщение от locm

Разве VB компилирует в x64?

Представьте себе да, если к VB добавить еще буквочку A или заменить на TB )

Добавлено через 30 минут
locm, можно несколько вопросов для интервью ) Ранее вы продемонстрировали крутые возможности возможности Pure Basic, которые даже трудно достижимые в C++, как заметил HackerVlad, посему интересно было бы узнать еще некоторые моменты.
1) Поддериваются ли в PB разные типы строк Ansi, Utf-16 (Utf-8..) как базовые типы?
2) Поддерживается ли в PB передача UDT по значению (ByVal)?
3) Есть ли в PB встроенные функции копирования памяти?

@locm · 07.11.2024, 14:28

Сообщение от testuser2

Представьте себе да, если к VB добавить еще буквочку A

Тогда это другой раздел https://www.cyberforum.ru/vba/

Сообщение от testuser2

Поддериваются ли в PB разные типы строк Ansi, Utf-16 (Utf-8..) как базовые типы?

Раньше было, но с версии 5.40 отменили ascii, т. к. сейчас не актуально.

Сообщение от testuser2

Поддерживается ли в PB передача UDT по значению (ByVal)?

Только строки и простые типы.

Сообщение от testuser2

Есть ли в PB встроенные функции копирования памяти?

https://www.purebasic.com/docu... index.html

Есть псевдотипы - автоконвертация кодировки строки при вызове функции из сторонних библиотек https://www.purebasic.com/docu... types.html

@testuser2 · 07.11.2024, 14:58 **[ТС]**

Сообщение от locm

Тогда это другой раздел https://www.cyberforum.ru/vba/

Извините товарищь вахтер, не знал что есть такой раздел, спасибо за столь ценную информацию

@HackerVlad · 07.11.2024, 16:24

Товарищу locm тоже можно было сказать тогда это другой раздел PureBasic)))

Добавлено через 1 минуту

Сообщение от locm

Раньше было, но с версии 5.40 отменили ascii, т. к. сейчас не актуально.

Очень даже актуально когда в коде хочешь хранить гигантскую строку base64 чтобы она не занимала в два раза больше байт потом в EXE файле. Позор разработчикам что убрали это.

Добавлено через 22 минуты
testuser2, я кстати сейчас посмотрел, что у 7zip открытый исходный код

@locm · 07.11.2024, 16:29

Народ, здесь было упоминания про x64 но без уточнения что это VBA. Вот я и спросил какие 64 бит в VB6.

Сообщение от HackerVlad

Очень даже актуально когда в коде хочешь хранить гигантскую строку base64 чтобы она не занимала в два раза больше байт потом в EXE файле.

Зачем в коде? Сохраните в ресурсе в ascii. В чем сложность?

Сообщение от HackerVlad

Позор разработчикам что убрали это.

Если речь про PureBasic, то проблемы вообще нет. Бинарный файл подключается командой IncludeBinary и не нужно никаких ухищрений типа base64.
А если нужно то в PB есть функция Base64DecoderBuffer() которая может декодировать бинарные данные.

@testuser2 · 07.11.2024, 16:40 **[ТС]**

Не по теме:

Я извиняюсь за немножко пафосность, но по моему (и не только) мнению вахтеризм убивает форумы. И речь не о том, чтобы устроить полный бардак в разделах, а о том, что рассматривая какой-то предмет, гораздо лучше иметь более широкое представление и сравнение с др. похожими предметами. Т.е. широкий кругозор, дает больше понимания. Второе, если углубиться немножко в историю создания само устройство VB6, можно понять, что VB6, VBA и даже VBS это детища одной утробы, это мжоно сказать какбы ветки единой экосистемы. И развивающийся сейчас TB реализуется именно таким образом, чтобы идеально встроиться в эту экосистему. Это можн сравнить со всесторонне развитым сейчас JS. VBA и VB6 это настолько совместимые среды, что легко можно код (не касающийся объектной модели) который будет работать в VB6 и VBAx86-64 с небольшими правками. Мне также нравится, когда здесь можно обсудить какие-то моменты, Pure Basic-а, Delfi, даже JS, почему нет. Почему не обсудить, допустим взаимодействие языков и т.д. А вахтерские форумы давно уже умерли, там сидят сторожевые собаки и изредка лают на приблудившихся странников

Добавлено через 7 минут

Сообщение от locm

Если речь про PureBasic, то проблемы вообще нет. Бинарный файл подключается командой IncludeBinary и не нужно никаких ухищрений типа base64.
А если нужно то в PB есть функция Base64DecoderBuffer() которая может декодировать бинарные данные.

Интересно как в вашей логике укладывается, что вы можете сдесь спокойно обсуждать нюансы работы Pure Basic (я кстати не против), но при этом указывать мне на наличие других разделов форума. Давайте быть логичны и последовательны, а то получается одни меньше равны чем другие, тогда это получается полная лажа

Добавлено через 1 минуту

Сообщение от testuser2

одни меньше равны чем другие

В таком случае я буду требовать революцию!!

@locm · 07.11.2024, 16:42

Не по теме:

Сообщение от testuser2

Интересно как в вашей логике укладывается, что вы можете здесь спокойно обсуждать нюансы работы Pure Basic

Меня спросили, я ответил.
Мне все равно обсуждается здесь VB или VBA. Просто если не VB, то это уточнять нужно чтобы не было путаницы.

@testuser2 · 07.11.2024, 17:00 **[ТС]**

Кстати в ближайшее время надо заняться Дельфином, и попытаться переработать один код на VB.

Добавлено через 2 минуты

Не по теме:

Просто я хотел сказать, что МС чего-то там нахитрожопили с той функцией, но я не будут конечно это говорить..

@HackerVlad · 07.11.2024, 17:09

Сообщение от locm

Зачем в коде? Сохраните в ресурсе в ascii. В чем сложность?

Не все хотят хранить в ресурсах, так как ресурсы легко открываются и легко взламываются.

@locm · 07.11.2024, 17:17

Зашифровать данные. AES или что-то подобное.

@HackerVlad · 07.11.2024, 17:47

Сообщение от locm

Зашифровать данные. AES или что-то подобное.

Ну ты же читал тему, ну, мы и так умеем упаковывать данные они там и так будут как бы зашифрованными. Однако не все люди хотят хранить данные именно в ресурсах. Тут ты должен поддержать и скать , что да почему они плохие такие не сделали хранение Анси строк ну

Добавлено через 45 секунд
Я ситаю это огромным упущением просто со стороны разработчиков ЯП

Добавлено через 4 минуты

Сообщение от testuser2

надо заняться Дельфином

Что касается Borland Delphi то там строки хранятся в ANSI кстати

Добавлено через 1 минуту

Сообщение от testuser2

и попытаться переработать один код на VB

Хорошо было бы переписать модуль для работы с CAB который я давал на Дельфи, переписать его на VB, но с другой стороны, оно нам надо? там сложный код и его сложно переписывать, три дня точно потратишь, особенно сложно что там 10 call-back функций обратного вызова

Добавлено через 3 минуты

Сообщение от locm

Мне все равно обсуждается здесь VB или VBA. Просто если не VB, то это уточнять нужно чтобы не было путаницы.

Я лично сразу понял что речь идёт о 64-битном VBA. Мне лично не интересно это, так как на VBA я не программирую и 64 бита мне не надо, но понял я всё равно сразу. Ну пусть у testuser2 всё получится. Просто для vb6 это не актуально вообще.

@locm · 07.11.2024, 18:11

Не по теме:

Сообщение от HackerVlad

Что касается Borland Delphi то там строки хранятся в ANSI кстати

То есть на винде не для региона RU текст станет не читаемым? Китайский/японский/арабский и др. в пролете?
Повторюсь, кодировка ascii давно устарела.

Сообщение от HackerVlad

64 бита мне не надо

Система x86? Мало у кого она сейчас, т .к. ограничение 4 ГБ ОЗУ очень существенное. Хватит памяти только для ОС.
То есть x86 приложения считайте что устаревшие и работают в режиме совместимости.
То есть давно пора задуматься о переходе на x64 платформу.

@HackerVlad · 07.11.2024, 18:20

Сообщение от locm

Система x86? Мало у кого она сейчас

64 и что, что мешает мне запускать 32-бдитные программы

Добавлено через 56 секунд

Сообщение от locm

То есть на винде не для региона RU текст станет не читаемым? Китайский/японский/арабский и др. в пролете?

Юникод там тоже есть скорее всего не вникал

Добавлено через 55 секунд
Главное это что, чтобы ЯП предоставлял нам право выбора как хранить строки в ANSI или в Unicode, хотябы для того чтобы экономить память где мне не нужен Unicode

Добавлено через 57 секунд
Я уже говорил огигантских строках base64 и повторятсья не хочу, это основная задача хранить строки в Анси только для этого чтобы экономить место

@locm · 07.11.2024, 18:26

Не по теме:

Сообщение от HackerVlad

хотябы для того чтобы экономить память где мне не нужен Unicode

В приложениях не нужны длинные константные строки и экономия нескольких КБ ни на что не повлияет.

Сообщение от HackerVlad

Я уже говорил о гигантских строках base64

Зачем? base64 увеличивает размер данных, а не уменьшает их. Храните как бинарные данные и тем самым уменьшите занимаемый объем.

Новые блоги и статьи Все статьи Все блоги /
Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .
Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .

@HackerVlad Вернулся 1753 / 649 / 45 Регистрация: 10.09.2021 Сообщений: 2,803
	07.11.2024, 04:36
	testuser2, кстати вот тут есть ещё тема как работать с 7z архивами: https://www.vbforums.com/showt... ip-support Добавлено через 4 минуты И кстати я сейчас заметил что дельты сжимают почти так же хорошо как 7ZIP а архивы 7z это самые лучшие 1

@testuser2 1407 / 866 / 93 Регистрация: 08.02.2017 Сообщений: 3,700 Записей в блоге: 2
	07.11.2024, 07:46 [ТС]
	HackerVlad, какбы эти дельты под x64 еще заюзать Добавлено через 1 минуту А то душа не на спокое уже от етого Добавлено через 2 часа 55 минут Причем на x86 если у этой функции задать другое кол-во аргументов, и сделать простой вызов с нулями, то выйдет ошибка "bed DLL conversion", но на x64 именно она вызывает ислючение. Надо еще попробовать DeltaW и DeltaA 0

@HackerVlad Вернулся 1753 / 649 / 45 Регистрация: 10.09.2021 Сообщений: 2,803
	07.11.2024, 12:22
	testuser2, а ты пробовал читать MSDN? Или там ничего не понятно по этому поводу? 0

@testuser2 1407 / 866 / 93 Регистрация: 08.02.2017 Сообщений: 3,700 Записей в блоге: 2
	07.11.2024, 17:00 [ТС]
	Кстати в ближайшее время надо заняться Дельфином, и попытаться переработать один код на VB. Добавлено через 2 минуты Не по теме: Просто я хотел сказать, что МС чего-то там нахитрожопили с той функцией, но я не будут конечно это говорить.. 0

@locm 7152 / 3331 / 342 Регистрация: 28.10.2011 Сообщений: 13,145 Записей в блоге: 7
	07.11.2024, 17:17
	Зашифровать данные. AES или что-то подобное. 0