Извлечение файлов из ресурсов приложения

@dkv · Регистрация: 21.10.2009

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

Ребята скажите пожалуйста как работать с ресурсами в таком плане: как можно при запуске моей программы извлечь находящейся в ней ресурс например в директорию C:\1.exe…
Заранее спасибо.

@angell · 05.04.2010, 12:18

непонятно...

@dkv · 05.04.2010, 15:05 **[ТС]**

Чтоб при запуске моей программы она извлекала свой ресурс...

Добавлено через 2 часа 11 минут
например на Delphi7 это выглядит так:

Delphi
1
2
3
4
5
6
7
8
9
10
procedure ExtractRes(ResType, ResName, ResNewName : String);
var
  Res : TResourceStream;
begin
  Res := TResourceStream.Create(Hinstance, Resname, Pchar(ResType));
  Res.SavetoFile(ResNewName);
  Res.Free;
end;
 
ExtractRes('EXEFILE', 'STUB', 'C:\extracted-stub.exe');

А мне надо на Visual Basic 6.0, неужели этого не кто не знает...

@STRATEG · 05.04.2010, 17:27

angell Помоему вопрос сразу был понятен,вот

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
IProgram
End Sub
 
Public Sub IProgram()
Dim  FileData() As Byte    'переменная для файлика
 
'загружаем байты из          ресурсов
FileData() = LoadResData("Test", "CUSTOM") 'Test - имя ресурса CUSTOM - раздел(папочка) 
 
Open "C:\1.exe" For Binary As #1 'открываем файл
Put #1, , FileData()                   'записываем
Close #1                                 'закрываем
End Sub

@dkv · 05.04.2010, 18:41 **[ТС]**

Большое вам спасибо strateg0793

Добавлено через 12 минут
И ещё такой вопрос как делать ресурс для "exe" файлов плиз... скажите...

@STRATEG · 05.04.2010, 19:57

Все просто,жми Add-Ins-->Add-In Maneger...VB6 Resourse Editor(по нему двойной клик)
Потом заходишь в редактор ресурсов и делаешь Add Custom Resourse....и можешь добавить любой формат в том числе и EXE

@dkv · 06.04.2010, 11:10 **[ТС]**

Спасибо конечно... но вы меня чуть чуть не поняли, я имел ввиду как сделать ресурс через RC.exe в корневой папки приложения Visual Basic 6.0 Program files\Microsoft Visual Studio\VB6\Wizard\RC.exe и что нужно писать в файле stub.rc...

Добавлено через 2 часа 36 минут

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

Visual Basic
1
2
FileData() = LoadResData("STUB", "101") 'Test - имя ресурса CUSTOM - раздел(папочка) 
End Sub

Почемуто не может найти мой ресурс, пишет: Resource with identifier "STUB" not found.
вроде всё правельно сделал...

мой код:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
IProgram
End Sub
Public Sub IProgram()
Dim FileData() As Byte
FileData() = LoadResData("stub", "101")
Open "C:\1.exe" For Binary As #1
Put #1, , FileData()
Close #1
End Sub

@Alex77755 · 06.04.2010, 15:13

Я не знаю, что у тебя кроется под "stub"

Visual Basic
1
FileData() = LoadResData("stub", "101")

но должно быть что подобное:

Visual Basic
1
 FileData() = LoadResData(101, "CUSTOM")

@dkv · 06.04.2010, 16:11 **[ТС]**

Вот теперь получилось, спасибо Alex77755 ))) только у меня почемуто файл который был извлечён не рабочий...

(фаил ресурса был обычный видовский блокнот).
Чтобы это могло быть? Может я не правельно делаю файл ресурса? Если кто знает скажите...

@STRATEG · 06.04.2010, 16:19

Надо так

Visual Basic
1
FileData() = LoadResData("Test", "CUSTOM") 'Test - имя ресурса CUSTOM - раздел(папочка)

А у тебя так

Visual Basic
1
FileData() = LoadResData("stub", "101")

Ну как я понял stub это папочка а 101 имя ресурса

LoadResData(Имя, Папка).
А почему бы просто через менеджер не создать ))
Вот так exe засунуть в ресурсы

File.RC_______________________________
program rcdata loadoncall Project1.exe
Имя ресурса Тип Резерв.Слово и путь к файлу(или его имя если относительный путь брать)
------------------------------------------

P.S. Значек вверху ответа, типа NOOB нечайно поставил

Добавлено через 2 минуты
Почитай,я писал как менеджером сделать,это оч просто вообще,и удобно

@dkv · 07.04.2010, 12:51 **[ТС]**

^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
>File.RC______________________________ _ <
>program rcdata loadoncall Project1.exe <
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Вот это мне и надо было... Огромное вам всем спасибо...

@Insert · 12.03.2012, 21:00

Перенесу свой вопрос сюда, ато Димон ругается).

А как выгрузить файл из файла ресурсов в WebBrowser?

Этот код ругается.

Visual Basic
1
WebBrowser1.Navigate =  LoadResData(index, format)

Я так понимаю, нужно ввести какие-та функции, но какие...

Потом интернет сказал мне, что напрямую загрузить файл из ресурсов в Браузер не получится (?). Сначала его нужно вызрузить в папку, и уже потом дать ссылку на него.

В результате получилось вот что:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load() 
i = LoadResData(101, "CUSTOM") 
Dim k As Integer 
k = FreeFile 
Open App.Path & "\файл.ххх" For Binary As #k 
For x = 0 To UBound(i) 
Put #k, , CByte(i(x)) 
Next x 
Close #k 
WebBrowser1.Navigate App.Path & "\файл.ххх"
End Sub

Код работает, но нужно сделать так, чтобы выгруженный файл удалялся после закрытия программы. Знает кто?

@coderxx · 12.03.2012, 21:50

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

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

Visual Basic
1
2
3
Private Sub Form_UnLoad() 
  Kill App.Path & "\файл.ххх"
End Sub

@Insert · 12.03.2012, 22:08

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

Visual Basic
1
2
3
Private Sub Form_UnLoad() 
  Kill App.Path & "\файл.ххх"
End Sub

Код ругается, пишет "Procedure declaration does not match description of event or procedure having the same name"

@coderxx · 12.03.2012, 22:18

Правильнее будет так:

Visual Basic
1
2
3
Private Sub Form_Unload(Cancel As Integer)
  Kill App.Path & "\файл.ххх"
End Sub

Предыдущую от памяти написал.

@Insert · 12.03.2012, 22:25

Успех. Спасибо.

fireday · 26.09.2013, 17:13

File.RC_______________________________
program rcdata loadoncall Project1.exe
Имя ресурса Тип Резерв.Слово и путь к файлу(или его имя если относительный путь брать)

Что это? можешь поподробнее?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@dkv 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 15

	Извлечение файлов из ресурсов приложения 05.04.2010, 11:00. Показов 5911. Ответов 16 Метки нет (Все метки) Ребята скажите пожалуйста как работать с ресурсами в таком плане: как можно при запуске моей программы извлечь находящейся в ней ресурс например в директорию C:\1.exe… Заранее спасибо. 0

@angell 0 / 0 / 0 Регистрация: 03.03.2010 Сообщений: 26
	05.04.2010, 12:18
	непонятно... 0

@dkv 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 15
	05.04.2010, 18:41 [ТС]
	Большое вам спасибо strateg0793 Добавлено через 12 минут И ещё такой вопрос как делать ресурс для "exe" файлов плиз... скажите... 0

@STRATEG 1174 / 480 / 83 Регистрация: 04.03.2010 Сообщений: 1,019
	05.04.2010, 19:57
	Все просто,жми Add-Ins-->Add-In Maneger...VB6 Resourse Editor(по нему двойной клик) Потом заходишь в редактор ресурсов и делаешь Add Custom Resourse....и можешь добавить любой формат в том числе и EXE 0

@dkv 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 15
	06.04.2010, 16:11 [ТС]
	Вот теперь получилось, спасибо Alex77755 ))) только у меня почемуто файл который был извлечён не рабочий... (фаил ресурса был обычный видовский блокнот). Чтобы это могло быть? Может я не правельно делаю файл ресурса? Если кто знает скажите... 0

@dkv 1 / 1 / 0 Регистрация: 21.10.2009 Сообщений: 15
	07.04.2010, 12:51 [ТС]
	^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ >File.RC______________________________ _ < >program rcdata loadoncall Project1.exe < ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ Вот это мне и надо было... Огромное вам всем спасибо... 0

@Insert 1 / 1 / 0 Регистрация: 05.03.2012 Сообщений: 31
	12.03.2012, 22:25
	Успех. Спасибо. 0

Извлечение файлов из ресурсов приложения

Решение