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

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

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

Обращаясь к cabinet.dll, без использования *.exe

@testuser2 · 24.11.2024, 12:39

Просто я о чем хочу сказать, что если TB будет дальше также актино развиваться, то он заменит VB и 64бит будет более актуально чем сейчас. Когда то и VB пеершел с 16 на 32 бита, там выгода, конечно была более очевидна. Уже сейчас как бы видно, что TB предоставляет больше свободы в каких-то мелких, и нвеное не только вещах. Допустим ты можешь спокойно взять указатель на строковыый массив (VarPtr(sAr)), ну и монгие другие вещи, как бы прще. Т.е. я, допустим думаю, что еси писать, допустим, прогу, наверное прикольнее было бы на TB, хотя конечно там сейчас глючноватое IDE и вообще сами проги могут быть глючноватыми. Хотя я простой флудер на форуме, я не пишу проги, но просто мне хотелось бы видеть развитие VB как Твин-бейсика, это было бы кассно.

@HackerVlad · 24.11.2024, 12:50

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

и 64бит будет более актуально чем сейчас.

да, будет актуально, но не всем это будет по карману, поэтому многие будут продолжать компилировать в 32 бита, как я

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

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

сами проги могут быть глючноватыми

да не будут проги глючноватыми, если ты нормальный прогер то ты проверишь работу каждой функции чтобы ничего не глючило. ЯП тут не влияет. Влияет конечно, но лишь немного. Придётся конечно всё тестировать и проверять самому чтобы работало точно так же как и в VB6. Вот например мой модуль упаковки не работает в откомпилированном EXE в Твине у меня лично, а у фафалона почему-то работает, глюки в твине и правда есть и бывает хрен разберёшься где и кого в чём там ошибка.

@testuser2 · 24.11.2024, 12:50

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

но не всем это будет по карману,

Да вы запарили про это "не по карману" я ваще про ето не хочу думать ))

@HackerVlad · 24.11.2024, 12:55

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

Добавлено через 2 минуты
testuser2, у меня к тебе есть просьба: пожалуйста откомпилируй EXE моего модуля, моего проекта, не важно 32 или 64 бита в Твине и попробуй запустить EXE а потом нажать на кнопку Упаковать. И посмотри вылетит ли сразу ошибка, как у меня. У меня почему-то в EXE работает только если компилировать на VB6...

Добавлено через 1 минуту
Самое тут странное это то что в среде IDE Твина через запуск через F5 всё работает как часики. А в exe уже не хочет работать. Ненавижу такие чудеса. Фиг поймёшь почему вообще так...

@testuser2 · 24.11.2024, 13:20

Я вот от части всвязи с этой темой стал немножко интересоваться Делфи. Допустим, какие там способы передачи параметров функций. Вообще на одном форуме упоминали о 6 способах передачи параметров (in, out, по значению, по ссылке, const, вроде бы еще по указателю, но это тоже саомое, что и по ссылке). В одной старой статье упоминалась возможность перегрузки (Overload), но не рекомендовалось ее использовать, поскольку она может быть источником труднодиагностируемых проблем. К слову на Твин-бейске тоже добавили перегрузку, интересно как она себя там покажет..

Добавлено через 18 минут
HackerVlad, одну ошибку вижу утебя

Visual Basic
1
Private Declare Function GetMemPtr Lib "msvbvm60" Alias "GetMem4" (ByVal Addr As Long, ByRef dstValue As Long) As Long

Не должно быть так все "msvbvm60" нужно заменять на твинбейсиковый "<hiddenmodule>". Эту строчку можно закомментировать. В TB к проекту по умолчанию уже подключен "HiddenModule.twin" в котором все аналоги функций msvbvm60. Правда, я когда хотел код Трика портировать на x64 (просто для интереса), то обнаружил там нехватку одной функции из msvbvm60.

@HackerVlad · 24.11.2024, 13:23

testuser2, ты вообще меня слышишь я попросил тебя проверить работу exe и нажать на кнопку Упаковать файлы, обязательно запустив exe твиновский.

@testuser2 · 24.11.2024, 13:24

Декларарации зи hiddenmodule кстати можно переносить себе в модуль и переделывать как удобнее. Допустим
GetMemPtr там такое

Visual Basic
1
    Public DeclareWide PtrSafe Sub GetMemPtr Lib "<hiddenmodule>" Alias "#7" (ByVal Address As LongPtr, ByRef retVal As LongPtr)

Его можно переделать на более универсальный вариант

Visual Basic
1
Private DeclareWide PtrSafe Sub GetMemPtr Lib "<hiddenmodule>" Alias "#7" (ByVal Address As Any, ByRef retVal As Any)

И будет работать именно этот вариант
Кстати, там если заметил, все функции GetMem это субы (Sub), в отличие от msvbvm-овских

@HackerVlad · 24.11.2024, 13:28

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

HackerVlad, одну ошибку вижу утебя

Этот код писал fafalone а не я, вот у него вообще вот так вот

Visual Basic
1
2
3
4
5
    #If Win64 Then
        Private Declare PtrSafe Function GetMemPtr Lib "msvbvm60" Alias "GetMem8" (ByVal Addr As LongLong, ByRef dstValue As LongLong) As Long
    #Else
        Private Declare Function GetMemPtr Lib "msvbvm60" Alias "GetMem4" (ByVal Addr As Long, ByRef dstValue As Long) As Long
    #End If

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

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

testuser2, у меня к тебе есть просьба: пожалуйста откомпилируй EXE моего модуля, моего проекта, не важно 32 или 64 бита в Твине и попробуй запустить EXE а потом нажать на кнопку Упаковать. И посмотри вылетит ли сразу ошибка, как у меня. У меня почему-то в EXE работает только если компилировать на VB6...

ну пожалуйста ну

@testuser2 · 24.11.2024, 13:31

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

проверить работу exe и нажать на кнопку Упаковать файлы

Выдает ошибку библиотеки

@HackerVlad · 24.11.2024, 13:33

testuser2, как и у меня, поэтому я не понимаю почему фафалон говорит что у него всё работает и он "не может воспроизвести проблему" не люблю такое

@testuser2 · 24.11.2024, 13:34

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

Этот код писал fafalone а не я, вот у него вообще вот так вот

Наверное он пошутил, поскольку в Твин-бейсике есть свои эти функции и не нужен msvbvm60 для работы )

@HackerVlad · 24.11.2024, 13:34

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

hiddenmodule

А про эти штуки hiddenmodule я знал ты это фафалону лучше скажи, он же писал, а не я ту вставку с GetMemPtr

@testuser2 · 24.11.2024, 13:38

Чтобы я сделал в данном случае, во всех функция, которые идут по цепи после нажатия кнопки Pack расставил обработчики ошибок "On Error Goto ErrHdr.." и вывод описания ошики на экран месаджбоксом типа "Процедура такая-то " & Err.Description. Потом когда найдется функция, в этой функции сделать нумерацию строк и смотреть в какой строке произошла ошибка с помощью Erl

@HackerVlad · 24.11.2024, 13:43

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

расставил обработчики ошибок "On Error Goto ErrHdr.."

Да зачем!? Я на 90% уверен, что это DispCallFunc сбоит.

Добавлено через 1 минуту
Вообще конечно ещё тут виноваты разработчики ЯП твина, в vb6 же всё ок работает как надо

@testuser2 · 24.11.2024, 14:03

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

Да зачем!? Я на 90% уверен, что это DispCallFunc сбоит.

До нее не успевает дойти я проверил

@HackerVlad · 24.11.2024, 14:17

но сами по себе же API функции не могут вызывать ошибки времени выполнения с фатальным вылетом из программы

Добавлено через 16 секунд
а там всё на API

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

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

До нее не успевает дойти я проверил

Блин точно, все функции IStream успешно работают, я проверил в отдельном своём проекте который тестирует только работы UStream

Добавлено через 25 секунд
Тогда хрен поймёшь эту ошибку вообще

Добавлено через 28 секунд
И главное же что этой ошибки вообще быть не должно быть! Это косяк Твина.

@testuser2 · 24.11.2024, 14:20

Ты можешь найти хотяб в каком месте ошибка и сообщить разрабам

@HackerVlad · 24.11.2024, 14:35

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

Ты можешь найти хотяб в каком месте ошибка и сообщить разрабам

Ну я попросил об этом фафалона.

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

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

в каком месте ошибка

А хрен поймёшь если в IDE это никак не отловить

Добавлено через 12 минут
testuser2, прикинь, я написал письмо Кристиан Гислеру с предложением идей TotalCommander'а и он мне ответил даже на моё письмо! я в шоке!

@testuser2 · 24.11.2024, 14:47

Ошибка в CabinetAddFiles, но строку узнать я не смог, видимо Erl не работает в откомпилированном виде

@HackerVlad · 24.11.2024, 14:58

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

видимо Erl не работает

А что такое Erl?

Добавлено через 10 минут
testuser2, а может MsgBox расставить на каждой строке да и посмотреть где накроется

Новые блоги и статьи Все статьи Все блоги /
Часы с термометром и праздничным календарем yariko 12.11.2026 Сегодня мы рассмотрим как можно сделать отличные многофункциональные часы. Итак, поставим конкретную задачу: разработать часы с календарем, двумя термодатчиками, выводом поздравительных сообщений. . .	Транслитерация текста с кириллицы на латиницу (вариант №1) Maks 11.11.2026 Решил облегчить жизнь себе и коллегам админам при создании электронных почтовых ящиков для пользователей, в результате написал обработку "Транслитерация текста" с кириллицы на латиницу, а в ней. . .	Книги по геймдизайну, левел-дизайну, игровым механикам и проектированию игрового опыта 8Observer8 08.11.2026 Содержание блога \| English Version 1. 2003 - 06 - Designing Virtual Worlds (1st Edition) Автор: Richard A. Bartle \| Объем: 768 стр. Ссылки: Amazon . . .	Родители токсичные абьюзеры по отношению к своим детям ругают их оскорбляют не любят zorxor 08.11.2026 Жить в атмосфере постоянных оскорблений, критики и холодности со стороны родителей — это тяжелое и болезненное испытание, которое оставляет глубокие эмоциональные раны. Токсичное и абьюзивное. . .
Как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Ответ от Джемени ИИ. zorxor 08.11.2026 Джемени, как только я захожу к себе в свою комнату я сразу же с себя снимаю свои трусы. Многие люди, возвращаясь домой, сразу переодеваются в максимально свободную одежду или вовсе предпочитают. . .	Паттерн очереди действий/команд (Action / Command Queue). Система очереди действий и кат-сцен с SDL3 Callbacks, cglm и OpenGL 8Observer8 07.11.2026 Содержание блога \| English Version Руководство для начинающих по реализации паттерна очереди действий/ команд (Action / Command Queue) на C++ (C++20) с использованием официального SDL3 Callbacks. . .	Проверка полного ФИО в типовом справочнике Maks 07.11.2026 Решение реализовано в конфигурации КА2, на примере справочника "КонтактныеЛицаПартнеров". Задача: Запрет инициалов. Не допускаеть использование сокращений вида "И. И. ", "И. И. ", "И И" и. . .	Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .

Вопрощающий

	Создание (+распаковка) CAB архива 11.10.2009, 19:26. Показов 13356. Ответов 130 Метки cabinet.dll (Все метки) Обращаясь к cabinet.dll, без использования *.exe

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	24.11.2024, 12:39
	Просто я о чем хочу сказать, что если TB будет дальше также актино развиваться, то он заменит VB и 64бит будет более актуально чем сейчас. Когда то и VB пеершел с 16 на 32 бита, там выгода, конечно была более очевидна. Уже сейчас как бы видно, что TB предоставляет больше свободы в каких-то мелких, и нвеное не только вещах. Допустим ты можешь спокойно взять указатель на строковыый массив (VarPtr(sAr)), ну и монгие другие вещи, как бы прще. Т.е. я, допустим думаю, что еси писать, допустим, прогу, наверное прикольнее было бы на TB, хотя конечно там сейчас глючноватое IDE и вообще сами проги могут быть глючноватыми. Хотя я простой флудер на форуме, я не пишу проги, но просто мне хотелось бы видеть развитие VB как Твин-бейсика, это было бы кассно. 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	24.11.2024, 12:55
	Самое фиговое когда один и тот же код имеет разное поведение на разных компьютерах и в среде IDE работает в EXE уже не работает. Фиг отловишь такие ошибки и хрен пойми почему вообще. Добавлено через 2 минуты testuser2, у меня к тебе есть просьба: пожалуйста откомпилируй EXE моего модуля, моего проекта, не важно 32 или 64 бита в Твине и попробуй запустить EXE а потом нажать на кнопку Упаковать. И посмотри вылетит ли сразу ошибка, как у меня. У меня почему-то в EXE работает только если компилировать на VB6... Добавлено через 1 минуту Самое тут странное это то что в среде IDE Твина через запуск через F5 всё работает как часики. А в exe уже не хочет работать. Ненавижу такие чудеса. Фиг поймёшь почему вообще так... 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	24.11.2024, 13:23
	testuser2, ты вообще меня слышишь я попросил тебя проверить работу exe и нажать на кнопку Упаковать файлы, обязательно запустив exe твиновский. 0

@HackerVlad Вернулся 1782 / 677 / 46 Регистрация: 10.09.2021 Сообщений: 2,840
	24.11.2024, 13:33
	testuser2, как и у меня, поэтому я не понимаю почему фафалон говорит что у него всё работает и он "не может воспроизвести проблему" не люблю такое 0

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	24.11.2024, 13:38
	Чтобы я сделал в данном случае, во всех функция, которые идут по цепи после нажатия кнопки Pack расставил обработчики ошибок "On Error Goto ErrHdr.." и вывод описания ошики на экран месаджбоксом типа "Процедура такая-то " & Err.Description. Потом когда найдется функция, в этой функции сделать нумерацию строк и смотреть в какой строке произошла ошибка с помощью Erl 0

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	24.11.2024, 14:20
	Ты можешь найти хотяб в каком месте ошибка и сообщить разрабам 0

@testuser2 1412 / 878 / 93 Регистрация: 08.02.2017 Сообщений: 3,753 Записей в блоге: 2
	24.11.2024, 14:47
	Ошибка в CabinetAddFiles, но строку узнать я не смог, видимо Erl не работает в откомпилированном виде 0