VPF::Работа с файлом ресурсов - Форум программистов

Summ

Дата 29.8.2004, 18:14 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Для того чтоб проиграть из ресурса к примеру звуковой файл можно сделать ПРИМЕРНО так:

ZvBufer = LoadResData(101, "WAVE")
sndPlaySound ZvBufer(0), SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY

А как достать из файла ресурсов какой либо бинарный файл и сохранить его на диске?

Если найдутся ответы на мой вопрос шлите на мыло.
Заранее спасибо!

Это сообщение отредактировал(а) Summ - 29.8.2004, 18:17

cardinal

Дата 29.8.2004, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Цитата(Summ @ 29.8.2004, 17:14)

Если найдутся ответы на мой вопрос шлите на мыло

Модератор: Ответы пишутся прямо на форуме, а не шлются на мыло!

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

boevik

Дата 30.8.2004, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Написал когда то такую функцию:

Код


'Save file from resource
'Arguments:
'    aID  - resource ID
'    aFileName - full path and file name.
Private Function Resource2File(ByVal aID As Long, ByVal aFileName As String) As Boolean
Dim abFile() As Byte        'resource "Files"
    
    On Error GoTo ErrHand
    
    'read from resource to array byte
    abFile = LoadResData(aID, FILESRESOURCE)
    
    'save to file
Dim f As Long
    
    f = FreeFile
    Open aFileName For Binary Access Write As f
    Put f, , abFile
    Close f
    
    Resource2File = True
    Exit Function
    
ErrHand:
    Resource2File = False
    Err.Raise Err.Number, "project.Module.Resource2File " & _
            "Version: " & App.Major & "." & App.Minor & "." & App.Revision & _
            " At line: " & Erl & vbNewLine & Err.Source, Err.Description & vbNewLine & _
            "ID = " & aID & " File path: " & aFileName
    
End Function

--------------------

Никогда не говори никогда

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »