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

@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-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

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

	Извлечение файлов из ресурсов приложения 05.04.2010, 11:00. Показов 5896. Ответов 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

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

Решение