| Вопрос: Запихнуть файл в еxешник и юзать его во время в... | Добавлено: 07.09.03 19:43 |
Автор вопроса:  Alexander N | Web-сайт: sasha.samogon.info
|
|
Мне нужно воспроизвести звук, закомпилированный в выполняемый файл. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Алексей black admin ICQ: 261779681 Вопросов: 87 Ответов: 633 |
Web-сайт: Профиль | | #1 | Добавлено: 08.09.03 04:59 |
| Используй файлы ресурсов, правда там только wav(ы) можно проигрывать. | ||
|
Номер ответа: 2 Автор ответа: Alexander N Вопросов: 21 Ответов: 44 |
Web-сайт: Профиль | | #2 | Добавлено: 08.09.03 10:25 |
| Спасибо за отклик. Если тебе это не трудно, распиши подробнее. | ||
|
Номер ответа: 3 Автор ответа:  Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 08.09.03 13:35 |
|
Сам не пробовал. Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Public Const SND_ASYNC = &H1 Public Const SND_MEMORY = &H4 Private sWav As String sWav = StrConv(LoadResData(101, "SOUND"), vbUnicode) sndPlaySound sWav, SND_ASYNC Or SND_MEMORY |
||
|
Номер ответа: 4 Автор ответа: CaSICQ: 165551179 Вопросов: 10 Ответов: 124 |
Web-сайт: Профиль | | #4 | Добавлено: 08.09.03 14:18 |
|
Почему только wav? Если поработать ручками, то можно и midi и mp3 воспроизводитьhttp://vbnet.ru/forum/images/104.gif |
||
|
Номер ответа: 5 Автор ответа: Alexander NВопросов: 21 Ответов: 44 |
Web-сайт: Профиль | | #5 | Добавлено: 08.09.03 14:34 |
|
Так хорошо. Тогда чем запихнуть звук в res файл? |
||
|
Номер ответа: 6 Автор ответа: MorpheusВопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #6 | Добавлено: 08.09.03 14:47 |
|
А у меня вообще не получается ни файл RES создать, ни вытащить из уже имеющихся. Не подскажите поподробней на примери звука или картинки, а? |
||
|
Номер ответа: 7 Автор ответа:  schAlexeyICQ: 5172015 Вопросов: 11 Ответов: 13 |
Профиль | | #7 | Добавлено: 13.09.03 19:18 |
|
Попробуй считать файл из ресурса потом сохранить его в какой - нибудь файл и запустить (мошно flash и т.д.) например: Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Dim tempDir As String Private Sub LoadCustomRes(ID, ResGrup) Dim DataBuffer As String Dim FileName As String DataBuffer = StrConv(LoadResData(ID, ResGrup), vbUnicode) FileName = tempDir & "temp.*" 'Заменить * на нужное расширение Open imageFile For Binary As #1 Put #1, , DataBuffer Close #1 DoEvents 'Выполнить необходимые действия
Kill FileName End Sub Private Sub GetTempDir() Dim lpBuffer As String lpBuffer = String$(255, Chr$(0)) r& = GetTempPath(255, lpBuffer) ptr& = InStr(1, lpBuffer, Chr$(0)) lpBuffer = Left$(lpBuffer, ptr& - 1) tempDir = lpBuffer End Sub
|
||
Страница: 1 |