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

@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
Имя ресурса Тип Резерв.Слово и путь к файлу(или его имя если относительный путь брать)

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

Новые блоги и статьи Все статьи Все блоги /
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .

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

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

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

Решение