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

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

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

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

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

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

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

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

Добавлено через 2 минуты
Поэтому base64 - это оптимальная кодировка, скорее всего, лучше уже ничего не придумаешь такого прям универсального и интернационального...
0
1400 / 858 / 92
Регистрация: 08.02.2017
Сообщений: 3,642
Записей в блоге: 2
09.01.2025, 04:00
Просто у всех этот диапазон занят под свой алфавит. Страшно представить как там у китайцев, наверное им однобайтки уже не хватает
0
Вернулся
 Аватар для HackerVlad
1748 / 644 / 45
Регистрация: 10.09.2021
Сообщений: 2,786
09.01.2025, 23:06
testuser2, я теперь крутой прогер)))

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

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

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

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

Добавлено через 12 минут
Цитата Сообщение от HackerVlad Посмотреть сообщение
Чего только стоит редактирование памяти листбокса
Если честно я застрял на этом уровне познания, и там в принципе ни чего особо сложного, ты бы сам мог в это разобраться, но у тебя видимо другие приоритеты
1
Вернулся
 Аватар для HackerVlad
1748 / 644 / 45
Регистрация: 10.09.2021
Сообщений: 2,786
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
Ответ Создать тему
Новые блоги и статьи
FSharp: interface of module
DevAlt 16.05.2026
Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .
Хитросплетение родственных связей пантеона греческих богов.
russiannick 14.05.2026
Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .
[golang] Угол между стрелками часов
alhaos 12.05.2026
По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .
Debian 13: Установка Lazarus QT5
ВитГо 09.05.2026
Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .
Нейросеть на алгоритме "эстафета хвоста" как перспектива.
Hrethgir 06.05.2026
На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .
Асинхронный приём данных из COM-порта
Argus19 01.05.2026
Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++
pyirrlicht 29.04.2026
попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .
Контроль уникальности выбранного документа-основания при изменении реквизита
Maks 28.04.2026
Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru