Воспроизведение звука

[Патрон]

Сообщение от SERG1980

Сокрее всего ни на какой, это сторонний компонент.
Можно попорбовать BASS 23. это DLL для управления mp3, WAV мелодиями. В демках есть примеры на делфи, так же имеется help
PS: Сам не пробовал пока,качнул на всякий случай

Отлично! Спасибо большое! выручил.

[Terran]

Вот сам компонент LMDWaveComp:
LMDWaveComp.rar

[mutabor]

Стандартными средствами Дельфи это все легко делается. MP3 грузится в память из ресурсов и воспроизводится в фоне Медиаплеером. Также встречал способ также из ресурсов, после небольших манипуляций PlaySound также играет MP3.

[Патрон]

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

[mutabor]

Сообщение от Патрон

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

Это и называется загрузка из ресурсов, в отличие от загрузки из файла.

[Патрон]

Сообщение от mutabor

Это и называется загрузка из ресурсов, в отличие от загрузки из файла.

а можно поподробнее? т.е. что нужно? какой формат мелодии? и наконец какой код?

[mutabor]

Я по памяти не могу код написать, а в сети куча статей на эту тему. На этом форуме также неоднократно обсуждался вопрос. Проигрывание Wav, MP3 музыки из ресурсов это популярная тема.

Кейджены играют трекерную музыку, принцип тот же, музыка из ресурсов, с той разницей что размер музыки маленький плюс кейджен на WinAPI написан, а то и на ассемблере, вот и размер маленький. На Дельфи, в зависимости от версии, exe файл будет иметь размер ~400кб + размер муз. файла.

[Alter]

procedure PlayWave;
var
  WaveHandle: THandle;
  WavePointer: Pointer;
begin
   WaveHandle := FindResource( hInstance, 'MyWave', RT_RCDATA );
   if WaveHandle <> 0 then
   begin
      WaveHandle := LoadResource( hInstance, WaveHandle );
      if WaveHandle <> 0 then
      begin
         WavePointer := LockResource( WaveHandle );
         sndPlaySound( WavePointer, SND_MEMORY or SND_ASYNC );
         UnlockResource( WaveHandle );
         FreeResource( WaveHandle );
      end;
   end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   PlayWave;
   Sleep( 350 );
end;

Небольшая задержка при закрытии формы нужна для того, чтобы воспроизводимый звук успел проиграть до конца, иначе мы его просто не услышим.

[beegl]

помогите пожалуйста установить LMDWaveComp на Delphi 7.0
а то при попытке установить выводит ошибку:

{$IFNDEF CLR}
unit LMDWaveComp;
{$ENDIF}
{$I lmdcmps.inc}

на строку

{$I lmdcmps.inc}

Я ставил таким образом:
зашол Component -> Install Component ввыбрал вкладку Into New Package потом выбирал LMDWaveComp.pas в Unit File Name, в Pachage File Name прописал "набор символов" кнопку ОК, а потом ошибка

[Terran]

beegl, не мучайтесь с этим компонентом, если не ставится то, вот лучше скочайте этот архив. В нём набор компонентов LMD в том числе и есть компонент LMDWaveComp и много полезных других компонентов! Они ставятся легко и без проблем. Просто запустите сетуп и установите.


http://slil.ru/25981928