VB6. Как обойти ошибку Out of memory?

@Anti_All · Регистрация: 26.03.2020

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

Игры, программы, фильмы ..... имеют большие файлы разного формата. И я хочу, чтобы мой *.exe файл (мой проект) был большим. Я хочу в нём хранить и звуковые файлы, и рисунки, и всё что необходимо моему проекту для качественной работу в компьютере у пользователя. Если оперативной памяти мало, то пусть мой проект зависает как большие игры на слабых компьютерах. Почему всем можно, а мне нельзя? Почему ты запрещаешь мне?

Вот эти слова я много раз повторял Visual-у Basic-у 6.0, но он упёрся при компиляции *.exe файла и говорит мне:
Название: 08.07.jpg
Просмотров: 103

Размер: 15.2 Кб

Название: 08.07.jpg
Просмотров: 103

Размер: 15.2 Кб

Мне не удалось убедить то, что мне так нравится. Уважаемые программисты, может у Вас получится? Ведь на другой язык программирования я переходить не хочу.

I can · 08.04.2020, 22:38

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

И я хочу, чтобы мой *.exe файл (мой проект) был большим.

Я уже у Вас кажется спрашивал, но почему бы не сделать человеческий инсталляционный файл, и не морочить голову прежде всего себе ?

@Catstail · 09.04.2020, 07:54

Anti_All, вопрос несерьезен. Это то же самое, что спросить врача на форуме: почему у меня нога болит? Может быть много причин. Без характеристик проекта вам никто не поможет.

@The trick · 09.04.2020, 10:23

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

Мне не удалось убедить то, что мне так нравится. Уважаемые программисты, может у Вас получится? Ведь на другой язык программирования я переходить не хочу.

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

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

Игры, программы, фильмы ..... имеют большие файлы разного формата. И я хочу, чтобы мой *.exe файл (мой проект) был большим. Я хочу в нём хранить и звуковые файлы, и рисунки, и всё что необходимо моему проекту для качественной работу в компьютере у пользователя. Если оперативной памяти мало, то пусть мой проект зависает как большие игры на слабых компьютерах. Почему всем можно, а мне нельзя? Почему ты запрещаешь мне?

Вообще-то подавляющее большинство программ как раз-таки используют кучу библиотек и ресурсы хранят во внешних файлах. Хранить много ресурсов в EXE - не очень хорошо, при загрузке образа весь файл отображается в память и соответственно это все занимает память и памяти для приложения становится меньше. Если нужно хранить ресурсы в EXE то правильней прикрепить их в "хвосте", тогда файл не будет занимать всю память и так делают большинство инсталляционных пакетов.

@Anti_All · 09.04.2020, 12:32 **[ТС]**

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

Это то же самое, что спросить врача на форуме: почему у меня нога болит?

Уважаемый Catstail (в хорошем смысле этого слова), задам вопрос как врачу. Почему я кушая, кушаю, кушаю всё подряд и у меня живот болит?

Сообщение от The trick

Нужно сначала понять что вызывает данную ошибку

Уважаемый The trick, ДРУГ (в хорошем смысле этого слова).

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

Я хочу в нём хранить и звуковые файлы, и рисунки, и всё

Причина данной ошибки это куча файлов в проекте.

Сообщение от The trick

много ресурсов в EXE - не очень хорошо

Тогда как создать много файлов, вокруг *.exe файла (проекта), типа базы данных, но так чтобы эти файлы мог прочитать только мой проект. Например играет музыка, а этого файла нет нигде.

@Catstail · 09.04.2020, 12:44

Anti_All, непонятен Ваш пафос... Не получается? Решайте проблему. Хотите совета? Представьте исходные данные.

В exe-файле можно хранить что угодно и в довольно больших объемах. Технология примерно такая. Собираете необходимые данные в двоичный файл (какую-нибудь структуру соорудите для него). Потом приливаете эти данные к самому экзешнику (это вполне допустимо). Когда экзешник запускается, он может открыть сам себя на чтение и прочитать из своего хвоста любые данные. Я это неоднократно делал. Примерно так.

@Pro_grammer · 09.04.2020, 14:14

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

Я хочу в нём хранить и звуковые файлы, и рисунки,

Я два вопроса задам:
1 Каким образом вы пытаетесь это сделать?
2 О каких объемах (примерно) идет речь?

@Anti_All · 09.04.2020, 14:28 **[ТС]**

Catstail, я не совсем понимаю смысл слова в "хвосте". Это какой-то отдельный файл? Или он находится в *.exe файле, но при загрузке проекта остаётся ждать пока к нему не обратится проект, тем самым не загружая память при загрузке проекта.

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

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

Каким образом вы пытаетесь это сделать?

Pro_grammer, так как у меня нету данного ответа на Ваш первый вопрос, я процитирую слова Catstail:

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

Технология примерно такая. Собираете необходимые данные в двоичный файл (какую-нибудь структуру соорудите для него). Потом приливаете эти данные к самому экзешнику (это вполне допустимо). Когда экзешник запускается, он может открыть сам себя на чтение и прочитать из своего хвоста любые данные.

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

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

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

О каких объемах (примерно) идет речь?

Ну не больше 1 ГБ я думаю. Пока неизвестно

@The trick · 09.04.2020, 14:56

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

Тогда как создать много файлов, вокруг *.exe файла (проекта), типа базы данных, но так чтобы эти файлы мог прочитать только мой проект. Например играет музыка, а этого файла нет нигде.

Я уже написал:

Сообщение от The trick

Если нужно хранить ресурсы в EXE то правильней прикрепить их в "хвосте", тогда файл не будет занимать всю память и так делают большинство инсталляционных пакетов.

Вот у Вас есть EXE файл, просто дописывайте ему в конец ваши данные и все.

@Anti_All · 09.04.2020, 15:46 **[ТС]**

Если ещё кто-то напишет “хвост”, то я перенесу инсульт.

А можно пример? Чтобы посмотреть и понять, как это работает.

Например, пусть будет 3 файла, ну или 1 файл (просто я ещё не совсем понял, как работать с “хвостом”):
Первый файл *.exe файл (мой проект);
Второй файл (ну или “хвост”), файл который хранит в себе 3 *.jpg файла;
Третий файл (ну или “хвост”), файл который хранит в себе 3 *.wav файла;
Нажимаю на одну кнопку в форме - в Image1.Picture передаётся картинка с файла *.jpg, нажимаю ещё раз, передаётся следующая картинка с файла *.jpg;
Нажимаю на другую кнопку - воспроизводится звук с *.wav файла, нажимаю ещё раз, воспроизводится следующий звук с *.wav файла.
Но данные файлы (ну или “хвосты”) не должны открывать, извлекать ни какой сторонний проект, кроме моего проекта.

@The trick · 09.04.2020, 17:44

Anti_All, определяете размер EXE (посредством чтения секций файла, анализируя IMAGE_SECTION_HEADER.PointerToRawData и IMAGE_SECTION_HEADER.SizeOfRawData). После самой последней секции пишите свои данные в формате который позволит прочитать их (по имени/индексу). Самый простой вариант - это записать содержимое PropertyBag в котором будут записаны нужные данные. Как минимум это позволит с легкостью читать Persistent-объекты типа StdPicture, Font, данные контролов, любые бинарные данные (в том числе и музыку).
Альтернативно можно вместо PropertyBag записать OLE Compound File Storage, это чуть сложнее, но позволит использовать целую файловую систему внутри файла.

Для отладки используйте внешний файл с данными, а в Релиз-билде уже с помощью внешней утилиты записывайте данные в файл (подойдет простой батник который объединяет файлы в один).

I can · 09.04.2020, 17:50

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

Как обойти ошибку Out of memory?

Может тупо оперативки не хватает ?

@Catstail · 09.04.2020, 18:48

Anti_All, вот простой код. Рабочий. Разбирайся:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
':::: Программа, которая достает данные из собственного ХВОСТА:
 
Sub Main()
 
    HomeDir$ = App.Path
    myName$ = App.EXEName + ".exe"
    
    fi% = FreeFile
    Open HomeDir$ + "\" + myName$ For Binary Access Read As #fi%
    
    LF& = LOF(fi%) '::: Определяем собственную длину
    
    ttl$ = Space$(4) '::: Буфер для сигнатуры
    
    Seek #fi%, (LF& - 3) '::: становимся на начало сигнатуры
    Get #fi%, , ttl$     '::: читаем сигнатуру
    
    If ttl$ = "TAIL" Then  '::: Сигнатура правильная
    
       Seek #fi%, LF& - 7  '::: станем на поле длины
       Get #fi%, , LL&     '::: получили длину хвоста
       
       Buf$ = Space$(LL&)  '::: буфер для чтения хвоста
       
       Seek #fi%, (LF& - LL& - 7) '::: станем на начало блока данных
       
       Get #fi%, , Buf$    '::: Читаем блок данных
       
       MsgBox Buf$         '::: Любуемся
    
    Else
    
       MsgBox "Блок данных не найден!"
    
    End If
        
    Close #fi%
 
End Sub

Формирователь хвоста:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'::: Служебная программа, которая формирует ХВОСТ основному модулю
 
Sub Main()
 
    Cmd$ = Command$
    
    k% = InStr(Cmd$, " ")
    
    If k% = 0 Then
       MsgBox "Вызов addData Куда_добавлять Что_добавлять"
       Exit Sub
    End If
 
    Where$ = Left$(Cmd$, k% - 1)
    From$ = Mid$(Cmd$, k% + 1)
    
    fo% = FreeFile
    Open Where$ For Binary Access Write As #fo%
    
    fi% = FreeFile
    Open From$ For Binary Access Read As #fi%
    
    LFI& = LOF(fi%)
    Buf$ = Space(LFI&)
    Get #fi%, , Buf$
    Close #fi%
    
    LFO& = LOF(fo%)
    Seek #fo%, LFO&
    Put #fo%, , Buf$
    Put #fo%, , LFI& ' длина блока даных
    ttl$ = "TAIL"
    Put #fo%, , ttl$
    Close #fo%
    
    MsgBox "OK"
 
End Sub

Как всем этим пользоваться:

1) Распаковать архив
2) перетранслировать t123
3) выполнить командный файл addData.cmd (Он добавить в ХВОСТ t123 ее собственный исходник)
4) запустить t123.exe и убедиться, что распечатается исходник (без открытия доп. файлов)

@Pro_grammer · 09.04.2020, 19:44

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

что распечатается исходник (без открытия доп. файлов)

Текст понятно. Вот это интересно посмотреть без выгрузки файла на диск:
А вот

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

в Image1.Picture передаётся картинка с файла *.jpg, нажимаю ещё раз, передаётся следующая картинка с файла *.jpg;

Ну и звуки до кучи.

@Catstail · 09.04.2020, 20:11

Мне это не было нужно, поэтому не занимался. В общем, путь указан...

@Pro_grammer · 09.04.2020, 20:41

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

В общем, путь указан...

Это распутье, на котором мы встали

@Catstail · 09.04.2020, 21:00

Ну вот:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub LoadPic()
 
    HomeDir$ = App.Path
    myName$ = App.EXEName + ".exe"
    
    fi% = FreeFile
    Open HomeDir$ + "\" + myName$ For Binary Access Read As #fi%
    
    LF& = LOF(fi%)         '::: Определяем собственную длину
    
    ttl$ = Space$(4)       '::: Буфер для сигнатуры
    
    Seek #fi%, (LF& - 3)   '::: становимся на начало сигнатуры
    Get #fi%, , ttl$       '::: читаем сигнатуру
    
    If ttl$ = "TAIL" Then  '::: Сигнатура правильная
    
       Seek #fi%, LF& - 7  '::: станем на поле длины
       Get #fi%, , LL&     '::: получили длину хвоста
       
       Buf$ = Space$(LL&)  '::: буфер для чтения хвоста
       
       Seek #fi%, (LF& - LL& - 7) '::: станем на начало блока данных
       
       Get #fi%, , Buf$    '::: Читаем блок данных
       
       Close #fi%
       
       fo% = FreeFile
       Open HomeDir$ + "\$$$.jpg" For Binary Access Write As #fo%
       Put #fo%, , Buf$
       Close #fo%
       
       Form1.Image1.Picture = LoadPicture(HomeDir$ + "\$$$.jpg")
       
       Kill HomeDir$ + "\$$$.jpg"
    
    Else
    
       Close #fi%
    
       MsgBox "Блок данных не найден!"
    
    End If
 
End Sub

В упаковке командный файл, который добавляет картинку jpg в хвост экзешнику. Разберетесь. Если не нравится, что файл создается в текущей директории, никто не мешает создавать его во временной директории системы. Думаю, что The trick подскажет более изящное решение.

@The trick · 09.04.2020, 21:09

Файлы можно объединить через батник типа

Code
1
copy /b file.001+file.002 file.bin

@Pro_grammer · 09.04.2020, 21:51

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

Если не нравится, что файл создается в текущей директории, никто не мешает создавать его во временной директории системы.

В принципе не нравится выгрузка на диск. Теряется смысл всех этих плясок с бубном, имею в виду присоединение файлов в хвост. Гораздо проще и надежней в таком случае создать обычный SFX архив.
Должен же быть способ загрузить прямо из участка памяти изображение в Image? На PureBasic это делается одной командой, значит это возможно с точки зрения системы, просто мы не знаем как?

@Catstail · 10.04.2020, 10:25

Да, способ должен быть

Добавлено через 1 час 14 минут
The trick, объединить-то - да, но придется еще оглавление создавать...

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

VB6. Как обойти ошибку Out of memory?

Решение

Решение

@Anti_All 2 / 2 / 0 Регистрация: 26.03.2020 Сообщений: 41

	VB6. Как обойти ошибку Out of memory? 08.04.2020, 22:26. Показов 6370. Ответов 27 Метки out of memory, vb6, ошибка (Все метки) Игры, программы, фильмы ..... имеют большие файлы разного формата. И я хочу, чтобы мой .exe файл (мой проект) был большим. Я хочу в нём хранить и звуковые файлы, и рисунки, и всё что необходимо моему проекту для качественной работу в компьютере у пользователя. Если оперативной памяти мало, то пусть мой проект зависает как большие игры на слабых компьютерах. Почему всем можно, а мне нельзя? Почему ты запрещаешь мне? Вот эти слова я много раз повторял Visual-у Basic-у 6.0, но он упёрся при компиляции .exe файла и говорит мне: Мне не удалось убедить то, что мне так нравится. Уважаемые программисты, может у Вас получится? Ведь на другой язык программирования я переходить не хочу. 0

@Catstail Супер-модератор 38177 / 21112 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	09.04.2020, 07:54
	Anti_All, вопрос несерьезен. Это то же самое, что спросить врача на форуме: почему у меня нога болит? Может быть много причин. Без характеристик проекта вам никто не поможет. 0

@Catstail Супер-модератор 38177 / 21112 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	09.04.2020, 12:44
	Anti_All, непонятен Ваш пафос... Не получается? Решайте проблему. Хотите совета? Представьте исходные данные. В exe-файле можно хранить что угодно и в довольно больших объемах. Технология примерно такая. Собираете необходимые данные в двоичный файл (какую-нибудь структуру соорудите для него). Потом приливаете эти данные к самому экзешнику (это вполне допустимо). Когда экзешник запускается, он может открыть сам себя на чтение и прочитать из своего хвоста любые данные. Я это неоднократно делал. Примерно так. 0

@Anti_All 2 / 2 / 0 Регистрация: 26.03.2020 Сообщений: 41
	09.04.2020, 15:46 [ТС]
	Если ещё кто-то напишет “хвост”, то я перенесу инсульт. А можно пример? Чтобы посмотреть и понять, как это работает. Например, пусть будет 3 файла, ну или 1 файл (просто я ещё не совсем понял, как работать с “хвостом”): Первый файл .exe файл (мой проект); Второй файл (ну или “хвост”), файл который хранит в себе 3 .jpg файла; Третий файл (ну или “хвост”), файл который хранит в себе 3 .wav файла; Нажимаю на одну кнопку в форме - в Image1.Picture передаётся картинка с файла .jpg, нажимаю ещё раз, передаётся следующая картинка с файла .jpg; Нажимаю на другую кнопку - воспроизводится звук с .wav файла, нажимаю ещё раз, воспроизводится следующий звук с *.wav файла. Но данные файлы (ну или “хвосты”) не должны открывать, извлекать ни какой сторонний проект, кроме моего проекта. 0

@The trick Модератор 10053 / 3898 / 884 Регистрация: 22.02.2013 Сообщений: 5,851 Записей в блоге: 79
	09.04.2020, 17:44
	Anti_All, определяете размер EXE (посредством чтения секций файла, анализируя IMAGE_SECTION_HEADER.PointerToRawData и IMAGE_SECTION_HEADER.SizeOfRawData). После самой последней секции пишите свои данные в формате который позволит прочитать их (по имени/индексу). Самый простой вариант - это записать содержимое PropertyBag в котором будут записаны нужные данные. Как минимум это позволит с легкостью читать Persistent-объекты типа StdPicture, Font, данные контролов, любые бинарные данные (в том числе и музыку). Альтернативно можно вместо PropertyBag записать OLE Compound File Storage, это чуть сложнее, но позволит использовать целую файловую систему внутри файла. Для отладки используйте внешний файл с данными, а в Релиз-билде уже с помощью внешней утилиты записывайте данные в файл (подойдет простой батник который объединяет файлы в один). 2

@Catstail Супер-модератор 38177 / 21112 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	09.04.2020, 20:11
	Мне это не было нужно, поэтому не занимался. В общем, путь указан... 0

@Catstail Супер-модератор 38177 / 21112 / 4307 Регистрация: 12.02.2012 Сообщений: 34,716 Записей в блоге: 14
	10.04.2020, 10:25
	Да, способ должен быть Добавлено через 1 час 14 минут The trick, объединить-то - да, но придется еще оглавление создавать... 0