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

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

11.10.2009, 19:26. Показов 10632. Ответов 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
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
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
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
09.01.2025, 03:07
Справшивается, после этого, зачем вообще отправлять кому-то RAR-файл, если RAR мало у кого стоит на компьютерах, да и программа WinRar платная, поэтому многие не хотят ставить. Если можно взять и отправить другу CAB-архив который почти так же хорошо сжимает по размеру как и RAR?

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

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

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

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

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

Добавлено через 2 минуты
Поэтому base64 - это оптимальная кодировка, скорее всего, лучше уже ничего не придумаешь такого прям универсального и интернационального...
0
1381 / 837 / 89
Регистрация: 08.02.2017
Сообщений: 3,497
Записей в блоге: 1
09.01.2025, 04:00
Просто у всех этот диапазон занят под свой алфавит. Страшно представить как там у китайцев, наверное им однобайтки уже не хватает
0
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
09.01.2025, 23:06
testuser2, я теперь крутой прогер)))

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

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

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

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

Добавлено через 12 минут
Цитата Сообщение от HackerVlad Посмотреть сообщение
Чего только стоит редактирование памяти листбокса
Если честно я застрял на этом уровне познания, и там в принципе ни чего особо сложного, ты бы сам мог в это разобраться, но у тебя видимо другие приоритеты
1
Испарился
 Аватар для HackerVlad
1741 / 637 / 45
Регистрация: 10.09.2021
Сообщений: 2,769
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
Ответ Создать тему
Новые блоги и статьи
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Access
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
Создание Single Page Application на фреймах
krapotkin 16.11.2025
Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru