Упаковка данных внутрь EXE-файла.

[Mikle]

Столкнулся с проблеммой. Необходимо, чтобы EXE-шник на VB в определенный момент "родил" некий бинарный файл, размером около 30 кБ, со строго определенным содержимым. То есть программа должна быть из единственного EXE-шника. Каким образом засунуть такой объем информации в программу? Несколько тысяч строк DATA - это как-то по-старинке, да и занимает места больше, чем необходимо.
Попробовал вставить в форму невидимый Image, а в Image.Picture засунуть нужную инфу в виде BMP. Потом сохраняю через SavePicture, отрезаю заголовок, переименовываю - файл готов, но... при режиме экрана 24\32 бпп - все работает, в других режимах бейсик меняет формат BMP под текущий режим, в результате содержимое файла гробится. Может кто-нибудь подскажет решение проблеммы?

[Mirus]

А вместо Image.Picture не пробовал файлом ресурсов пользоваться?

[ASD]

Допиши в конец своего Exe. А потом выдирай от туда.
Вообще тема уже обсуждалась. Попробуй поискать в форуме.

[Mikle]

ASD
Нашел в поиске pe-bundle, но она либо ограничена сроком, либо Trial версия упаковывает только DLL. Переименую свой файл в DLL - может прокатит.

Mirus
Я же написал - кроме EXE никаких других файлов.

[alibek]

Тебе дали вполне дельный совет, добавляешь в проект файл ресурсов. Он скомпилируется вместе с твоим exe-шником.

[Mikle]

Видимо я просто не знаю, как это сделать. В меню проект\добавить... есть модули, формы, классмодули и т. д. Есть файл - но он подразумевает один из перечисленных выше типов файлов.
Просто подскажите куда копать. В pe-bundle удается удается загрузить любой файл - не только DLL, но как им потом пользоваться?
Даписать EXE-шник в конце - не удобно на этапе разработки, не запустишь из бейсика, каждый раз переделывать после компиляции. Неужели нет ничего типа ImageList, только не для картинок, а любых данных?

[Mirus]

Видимо я просто не знаю, как это сделать

Вначале проверь в меню Дополнения->Менеджер дополнений - напротив VB6 Resource Editor должно стоять Startup/Loaded, если нет то сделай чтоб появилось.
Потом заходи в меню Сервис->Resource Editor, в нем выбирай Add Custom Resource и дальше выбирай файл который хочешь вставить, после выбора сохраняй файл ресурсов и он добавиться к проэкту.
После компиляции все окажется в одном файле.

Чтоб сохранить содержимое файла ресурсов на диск воспользуйся:

Код: Выделить всё

Dim files() As Byte
files = LoadResData(101, "Custom")
Open "c:\1.txt" For Binary Access Write As 1
Put 1, , files
Close 1

[Mikle]

Благодарю, это то, что нужно.