Visual Basic 6.0. Как воспроизвести *.Wav файл по его указателю в памяти?

Question

[Allaberdy Nurbaev]

Есть файл ресурс “MMM.wav”. Показано на рисунке

Private Declare Function FindResource Lib "kernel32" Alias "FindResourceA" (ByVal hInstance As Long, ByVal lpName As String, ByVal lpType As Long) As Long
Private Declare Function LoadResource Lib "kernel32" (ByVal hModule As Long, ByVal hResInfo As Long) As Long
Const RT_RCDATA = 10&

Dim F As Long, L As Long
F = FindResource(0, "MMM", RT_RCDATA) – находим файл ресурс “MMM.wav” и узнаём какой-то цифровой адрес данного файла
L = LoadResource(0, F) – узнаём какой-то цифровой адрес файл ресурса “MMM.wav”
Hex(F) – возможный указатель в памяти файл ресурса “MMM.wav”
Hex(L) – возможный указатель в памяти файл ресурса “MMM.wav”

WindowsMediaPlayer1.URL = "C:\MMM.wav" – воспроизведёт файл “MMM.wav”, если он находится на “С” диске

Вопрос:
Как сделать, чтобы WindowsMediaPlayer1.URL воспроизвёл файл “MMM.wav” по его указателю в памяти
Например: WindowsMediaPlayer1.URL = Hex(F) или Hex(L) – нерабочий код

Comments

[NewDevLab]

WindowsMediaPlayer не будет по указателю воспроизводить. выгружай на диск.
или своими силами wav производи.

[Allaberdy Nurbaev]

Это понятно. Надо указатель через какую-то функцию или 2, 3, 4 функции пропустить и сделать из него адрес, а потом можно будет делать с этим файлом всё что угодно. Но вот как это возможно, Но возможно это точно. В цифровом мире нет ничего невозможного.

[NewDevLab]

понятно. удачи.

Answer 1

[Sergey В.]

Купите профильные форумы. Я даже не знаю, пользуется ли кто-то ещё VB6.
Насколько я помню, то что Вы хотите делается через WinApi. Смотрите ещё форумы C++.

Comments

[Allaberdy Nurbaev]

В C++ используют Me.RESOURCE, но этого нет в VB6. Я ищу какой то аналог.

Answer 2

[beerchaser]

1. Сохранить ресурс во временный файл.
2. Возпроизвести временный файл.
3. Удалить временный файл.
Вы пытаетесь ссылку на Inproc ресурс передать Outproc объекту. Это так не работает...

Comments

[Allaberdy Nurbaev]

Я не хочу передать Inproc - Outproc на прямую. Мне надо вытащить Inproc, пропустить его через несколько WinAPI и получить Outproc, а затем использовать. Но вот как это возможно. Но возможно это точно. В цифровом мире нет ничего невозможного.

[beerchaser]

Винапи не набор заклинаний, а низкоуровневые функции. Ничего экстраординарного они не делают. Для передачи Inproc-Outproc необходимо иметь возможность организовать между ними ресурс совместного доступа, с которым могут работать оба процесса. В Вашем случае выбор ограничен методами объекта WindowsMediaPlayer и способами, которыми он позволяет взаимодействовать. Т.е. можно создать для взаимодействия со стороны Vb например Named shared memory, но будет ли с этим работать WindowsMediaPlayer - не знаю. И в принципе - это тоже самое, что было предложено: воспроизведение файла через выгрузку на диск.
Поэтому в Вашем случае проще и разумнее всего либо реализовать проигрывание через выгруженный файл, либо отказаться от использования компоненты WindowsMediaPlayer и проигрывать файл своими силами (вот в этом случае API) Вам поможет.
Пы.Сы. Можете попробовать проигрывать через PlaySound. Оно умеет с ресурсами.

[Allaberdy Nurbaev]

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_RESOURCE As Long = &H40004
 
Private Sub PlayWave()
PlaySound "MMM", 0, SND_RESOURCE Or SND_ASYNC 'Воспроизвести
End Sub
 
Private Sub StopWave()
PlaySound vbNullString, 0, 0 'Остановить
End Sub

Но тогда я не могу делать то, что могу делать при помощи WindowsMediaPlayer1. То есть узнать позицию, поставить на паузу и т.д.

[beerchaser]

Позицию можно приблизительно по времени воспроизведения. В противном случае - писать свой проигрыватель. Или вернутся к идее временного файла.

[Allaberdy Nurbaev]

Думаю, что мой проигрыватель тоже не подойдёт. Например потому что его производитель, то есть я, ещё не получил на свой вопрос рабочий ответ. Временная папка не подходит, потому что файлов много и все они весомые.

[beerchaser]

У Вас не проигрыватель, у Вас надстройка над проигрывателем Windows Media Player. Если сможете реализовать (а это возможно, хотя требует времени) необходимый Вам функционал данного проигрывателя, то сможете решить задачу в том виде, как Вы ее сформулировали. Реализацию проигрывателя можно посмотреть например здесь.

[Allaberdy Nurbaev]

BeerChaser, "WindowsMediaPlayer1.URL" для меня не принципиально. Я ищу способ, для воспроизведения ресурсного файла и контроля над этим файлом (то есть узнать позицию, поставить на паузу и т.д.)

Answer 3

[Allaberdy Nurbaev]

Вопрос решён при помощи сторонних функций, и поэтому выкладывать код нет смысла. Без этих сторонних функций код нерабочий.
Спасибо всем и особенно BeerChaser.
Вопрос закрыт.