| Вопрос: Resource output | Добавлено: 16.03.05 16:26 |
Автор вопроса:  AgentFire | ICQ: 192496851 |
| Народ, кто знает, как из ресурсов бинарный файл вытащить и записать на диск? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #1 | Добавлено: 16.03.05 20:25 |
|
Что-нить в этом роде:
[code] Dim nf As Long, bt() As Byte nf = FreeFile ' Во временный каталог никто нам писать не запретит bt = LoadResData("music", "mp3") ' Сохраняем данные Open sPath For Binary Access Write Lock Read As nf Put nf, vbNull, bt Close nf[code] |
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 16.03.05 20:55 |
| интересно, че подсветка невключилась... из-за того что тег забыл закрыть что-ль... | ||
|
Номер ответа: 3 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 18.03.05 17:25 |
|
Круто! спасибо
123123[code]
[code]123123 |
||
Страница: 1 |