вшитие звука в прогу

[BOO]

1:Как интегрировать в программу звук и как его потом проигрывать?
2:Можно ли в текстовый файл запихнуть картинку???

[goro]

1:Как интегрировать в программу звук и как его потом проигрывать?
2:Можно ли в текстовый файл запихнуть картинку???

1) В файл ресурсов в ВБ пихай, потом извлекай и проигрывай
2) Я знаю как в картинку текстовик записать

[BOO]

Не я конечно все понял
поточней нельзя как это возьми и проигрывай???
кроме того если ты занешь как запихнуть картинку в текстовый файл почему не написал????

[FaKk2]

Не я конечно все понял
поточней нельзя как это возьми и проигрывай???
кроме того если ты занешь как запихнуть картинку в текстовый файл почему не написал????

Насчет первого не уверен, а вот насчет второго, подумай ВНИМАТЕЛЬНО чего просишь

[goro]

RTFM!
На фига злишься? Тебе примеров на сайтах мало?
И почитай, что я тебе сказал насчет картинок!

[badDRAGON]

goro,по братски(если не знаешь сам,как это все сделать,то хоть дай урл с примером...

[Max!]

А если так:

Код: Выделить всё

Код формы:
MMC.Wait = True
MMC.Shareable = False
mmc.devicetype="WaveAudio"
nextmusic
А вот этот - в событие MMC_Done:
Код:

If MMC.Position = MMC.TrackLength Then 'проверка, находимся ли мы в конце трека
MMC.Command = "close"
nextmusic


Теперь относительно nextmusic. Это - отдельная процедура, которая не относится ни к какому контролу. Её надо ставить в раздел (General):
Код:

Sub nextmusic()
Static f
f = f + 1'счётчик музыки
If f = 6 Then f = 1
MMC.Command = "close"
compname = "C:\Music\" & f & "x.wav" ' Здесь указал путь до музыки !
MMC.Filename = compname
MMC.Command = "open"
MMC.Command = "play"
End Sub


Вот и все!

[Amed]

1) Max! коды, содранные из других топиков, к тому же не то делающие, не подходят - надо проиграть файл не из C:\Music\, а из exe файла программы.
2) Текстовый файл должен быть удобочитаем? В смысле, допустимо присутствие в нём строк/последовательностей вроде "@34jgrwen@RT%Ib"?

Если допустимо, то в чём же дело?
Пишем в серединку файла строку "HEREISSTARTINGHEADEROFMYCOOLIMAGE", потом побайтово данные картинки и "HEREISTHEENDOFMYCOOLIMAGE", программа читает файл, ищет последовательность 1, возвещающую о начале заголовка картинки, потом читает данные до последовательности 2.
Сохраняет побайтово полученную информацию во временный файл, читает из него по LoadPicture в PictureBox или иной контейнер...

P.S. Фуф, запарился писать

[mad_Max]

Для тех кто не помнит, не знает и для того, кому лень искать:
Функция воспроизведения звука из прикрепленного к проге resурса

Код: Выделить всё

Public Const SND_SYNC = &H0                 '  play synchronously (default)
Public Const SND_MEMORY = &H4             '  lpszSoundName points to a Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long
Public Sub ResPlaySound(ResourceId As Long)
    Dim sndBuff As String
    sndBuff = StrConv(LoadResData(ResourceId, "WAVE"), vbUnicode)
    Call sndPlaySound(sndBuff, SND_SYNC Or SND_MEMORY)
End Sub

Здесь надо только указать ID, под которым звук записан в res

[Amed]

madMax ты такой камень с меня свалил! Честное слово! Спасибо!

[badDRAGON]

ребят,а можно дословно без лишних слов ,всетаки,ответить на основную тему ?(как вшить в прогу звуковой файл?)

[Amed]

Конечно, можно:

1) Подключаешь Resource Editor (Add-Ins|Add-In Manager|VB 6 Resource Editor)
2) Открываешь его (Tools|Resource Editor)
3) Жмёшь Add Custom Resource, выбираешь нужный wav файл
4) Выбираешь новый появившийся элемент (101, например)
5) Пишешь в коде формы:
Private Const SND_SYNC = &H0
Private Const SND_MEMORY = &H4
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal SoundData As Any, ByVal uFlags As Long) As Long
Public Sub ResPlaySound(ResourceId As Long)
Dim sndBuff As String
sndBuff = StrConv(LoadResData(ResourceId, "CUSTOM"), vbUnicode)
Call sndPlaySound(sndBuff, SND_SYNC Or SND_MEMORY)
End Sub
6) Вызываешь ResPlaySound с параметром - ID ресурса (101 в данном случае)
7) Наслаждаешься результатом