| Вопрос: Как с ресурсов извлечь бинарные файлы? | Добавлено: 04.05.07 13:04 |
Автор вопроса:  Silver Ferrum | ICQ: 422640045 |
| У меня возникла проблема. Когда я с ресурсов извлекаю картинки или текст, то всё хорошо, а когда программу, библиотеку... или файл с особосй конструкцией, он становится текстовым.. Пробывал через переменные типа Byte-ничего не получается.. подскажите.. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 04.05.07 13:25 |
|
Dim arrB() As Byte
'загружаем данные из файла ресурсов в массив arrB = LoadResData(101, "CUSTOM" 
'создаем новый файл Open "C:\temp\myData.exe" For Binary As #1 'записываем данные массива в созданный файл Put #1, , arrB Close #1 'закрываем файл |
||
|
Номер ответа: 2 Автор ответа: Silver Ferrum ICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #2 | Добавлено: 04.05.07 13:29 |
О!.. Понял.. Спасибо.. Я б не додумалСо 
|
||
Страница: 1 |