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

11.10.2009, 19:26. **Показов** 11125. **Ответов** 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 расставить на каждой строке да и посмотреть где накроется

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

Вопрощающий

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

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

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

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

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

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

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

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