Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.80/41: Рейтинг темы: голосов - 41, средняя оценка - 4.80
Вопрощающий

Создание (+распаковка) CAB архива

11.10.2009, 19:26. Показов 12804. Ответов 130

Студворк — интернет-сервис помощи студентам
Обращаясь к cabinet.dll, без использования *.exe
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
11.10.2009, 19:26
Ответы с готовыми решениями:

Создание архива
Есть такая строка .AddAttachment "C:\logfiles.rar" При выполнении кода на ней ошибка. Как создать программно этот архив?

Программное создание архива.
Добрый день! Можноли программно сделать архив, например, ZIP или rar, не важно и добавить в него файлы? Заранее спасибо.

Создание архива с паролем
Private Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long) Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal...

130
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
09.01.2025, 03:03
Студворк — интернет-сервис помощи студентам
Работа с архивами - это очень интересно на самом деле. Я вот написал этот новый тестовый проект - он занимает 39 Мб папка эта. Итак, я решил упаковать всеми известными упаковщиками.
Исходные данные - папка размером 39 626 510 байт

1. Упаковка CAB-архивов 1.5.7z 5 708 867 байт
2. Упаковка CAB-архивов 1.5.rar 6 412 885 байт
3. Упаковка CAB-архивов 1.5.cab 6 859 266 байт
4. Упаковка CAB-архивов 1.5.zip 8 335 696 байт

Короче на первом месте 7z конечно же, это неоспоримый лидер в упаковке.
Хоть на втором месте и RAR но CAB почти дотягивает до этого рара!
На третьем месте CAB но с достойным результатом, почти как в RAR
И на самом последнем отстойном месте это конечно же обычный ZIP который плохо сжимает и создаёт слишком жирные архивы
Миниатюры
Создание (+распаковка) CAB архива  
0
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
09.01.2025, 03:07
Справшивается, после этого, зачем вообще отправлять кому-то RAR-файл, если RAR мало у кого стоит на компьютерах, да и программа WinRar платная, поэтому многие не хотят ставить. Если можно взять и отправить другу CAB-архив который почти так же хорошо сжимает по размеру как и RAR?

Добавлено через 1 минуту
И при этом CAB полностью бесплатен во всех версиях Windows, начиная там чуть ли ни с Win 3.11 используется и до сих пор по наши дни...
0
1412 / 873 / 93
Регистрация: 08.02.2017
Сообщений: 3,724
Записей в блоге: 2
09.01.2025, 03:18
Хватит засирать WinRar это великая программа, сколько она лет прослужила людям.)
0
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
09.01.2025, 03:28
7Zip гораздо лучше и полностью бесплатная
0
1412 / 873 / 93
Регистрация: 08.02.2017
Сообщений: 3,724
Записей в блоге: 2
09.01.2025, 03:35
Сам придумал?
Да. Но это не законченая фигня. Надо маоенько по другому сделать. Один символ оставить как разделитель, так что это будет Base 221, и перевести на беззнак..
0
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
09.01.2025, 03:55
Цитата Сообщение от testuser2 Посмотреть сообщение
Base 221
Думаю, хорошая штука, тебе стоит это вынести в отдельную тему. Было бы так же неплохо, если бы ты приложил тестовый проект, как я всегда это делаю, во всех своих творениях.

Добавлено через 28 секунд
И с описанием обязательно должно быть.

Добавлено через 25 секунд
С примерами, и так далее.

Добавлено через 53 секунды
testuser2, а так же тебе стоит подумать о людях, у которых нет русского алфавита, а там у тебя по моему кирилица используется.

Добавлено через 4 минуты
testuser2, я кстати сам раньше думал тоже создать свою кодировку такую, но меня всегда останавливала эта мысль что в других странах мира хрен пойми что будет вместо русских букв...

Добавлено через 2 минуты
Поэтому base64 - это оптимальная кодировка, скорее всего, лучше уже ничего не придумаешь такого прям универсального и интернационального...
0
1412 / 873 / 93
Регистрация: 08.02.2017
Сообщений: 3,724
Записей в блоге: 2
09.01.2025, 04:00
Просто у всех этот диапазон занят под свой алфавит. Страшно представить как там у китайцев, наверное им однобайтки уже не хватает
0
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
09.01.2025, 23:06
testuser2, я теперь крутой прогер)))

Добавлено через 18 секунд
тебе тоже советую подняться)))

Добавлено через 25 секунд
testuser2, аву себе сделаешь может хотябы для приличия?
0
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
10.01.2025, 14:15
Безмятежный созерцатель))))))) ахахха)))) молодец))))

Добавлено через 32 секунды
testuser2, а почему ты кстати не считаешь себя программистом? ты же такие крутые скрипты писал)))

Добавлено через 1 минуту
Чего только стоит редактирование памяти листбокса и напрямую заливка списка строк в листбокс) даже круче меня))))
0
1412 / 873 / 93
Регистрация: 08.02.2017
Сообщений: 3,724
Записей в блоге: 2
10.01.2025, 14:45
Цитата Сообщение от HackerVlad Посмотреть сообщение
а почему ты кстати не считаешь себя программистом?
Я тут раньше насмотрелся, как новичков шпыняли. В разделе C++ шмырили за то что только человек использовал заглавные буквы в названиях перменных.. Назыаться крутым спецом, это как подставляться, имхо )

Добавлено через 12 минут
Цитата Сообщение от HackerVlad Посмотреть сообщение
Чего только стоит редактирование памяти листбокса
Если честно я застрял на этом уровне познания, и там в принципе ни чего особо сложного, ты бы сам мог в это разобраться, но у тебя видимо другие приоритеты
1
Вернулся
 Аватар для HackerVlad
1775 / 670 / 46
Регистрация: 10.09.2021
Сообщений: 2,820
23.02.2025, 02:42
Кстати сказать, оказывается, есть ещё один очень простой способ распаковки CAB-файла.
Я сегодня решил попробовать распаковать CAB так же само как и ZIP через оболочку Shell.Application и это сработало!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
    Dim oShell As Object
    Dim oFile As Object
    Dim Ret As Long
    
    Set oShell = CreateObject("Shell.Application")
    
    For Each oFile In oShell.NameSpace("d:\TEMP\test.cab").Items
        Ret = (oShell.NameSpace("d:\TEMP\Unpacked\").CopyHere(oFile))
    Next
End Sub
Что ZIP что CAB оболочке без разницы что распаковывать... Всё едино...

Добавлено через 12 минут
Но этот метод работает только в семёрке и выше. В XP у меня не работает, я проверял, кстати ZIP тоже в XP так не распаковывает у меня лично, хотя некоторые мне говорили что ZIP распаковывается в XP оболочкой. Но у меня в XP ничего не распаковывается.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
23.02.2025, 02:42

Создание установочного архива для своих любимых программ
Многие новички в программировании рано или поздно создают программы или игры, которыми хотят поделиться с другими пользователями или своими...

Распаковка архива rar без сохранения файла во временную папку
В архиве rar хранится сжатый (с паролем) файл txt, как его распаковать (пароль известен) чтобы файл не записывался на диск, а содержимому...

Создание архива с паролем средствами PB. Возможно?
Есть ли какая то библиотека что позволяет запихнуть PB кодом файлы в архив с паролем? Ну и соответственно извлекать из архива. Спасибо.

Создание cab архива
Здравствуйте! Помогите реализовать код создания cab архива с помощью CabinetAPI Код из msdn не получается скомпилировать, не понимаю...

Создание папки с датой в имени и распаковка в неё архива
Есть папка на диске С:\Arhiv в нем есть архивы по датам! надо что бы брал самый последний архив по дате и распаковывал в корень С:\Arhiv\...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
131
Ответ Создать тему
Новые блоги и статьи
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
Программа опроса у.з. расходомера SLS-720F
Argus19 02.09.2026
Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .
Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0.
Maks 31.08.2026
При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм
anaschu 31.08.2026
Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .
Оттачиваю умение писать js программы.
russiannick 30.08.2026
Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru