Архив форумов ЦИТФорума

[Nikola Zub]

Кто знает, как с помощью mciSendCommand можно сделать воспроизведение звука из потока или области памяти?
Из файла воспроизведение звука без проблем.
Код ниже. На Pascal-е. В документации Windows SDK не разобрался. Может есть Windows SDK, Windows 3.1 Multimedia Reference или MCI Command Strings Contents на русском языке?

uses
mmsystem;

var
wDeviceID: DWORD ;
mciOpenParms: MCI_OPEN_PARMS ;
mciPlayParms: MCI_PLAY_PARMS ;
fbuf: file;
fs: integer;
p: pointer;
oka: PAnsiChar;

begin
oka:='D:\CD1\Songs\midi\loveofmy.mid';
AssignFile(fbuf, oka);
Reset(fbuf, 1);
fs := FileSize(fbuf);
GetMem(p, fs);
BlockRead(fbuf, p^, fs);

mciOpenParms.lpstrDeviceType := 'sequencer';
mciOpenParms.lpstrElementName :=oka;
mciSendCommandA(0, MCI_OPEN, MCI_OPEN_TYPE or MCI_OPEN_ELEMENT, Longint(@mciOpenParms)) ;
wDeviceID := mciOpenParms.wDeviceID;
mciPlayParms.dwFrom := 0;
mciSendCommandA(wDeviceID, MCI_PLAY, MCI_FROM or MCI_WAIT, Longint(@mciOpenParms));
mciSendCommandA(wDeviceID, MCI_CLOSE, 0, 0);
CloseFile(fbuf);
FreeMem(p);

[Vladgul]

Недавно смотрел достижения народа в области программирования на разных сайтах.
Как раз видел компоненты для воспроизведения
и WAV и MP3, но к сожалению не помню где точно
Вот список сайтов где это должно быть.
http://www.dimas-page.narod.ru/MATER/TEACH/INDY/index .html
http://www.codenet.ru/
http://alien911.narod.ru/site /delphi.html
http://www.sources.ru/delphi/delphi_get_ip_for _all_interfaces.shtml
http://www.comprice.ru/debug/1101.pht ml
www.delphimaster.ru

[Nikola Zub]

Ссылки гляну.
Но вот компоненты желательно использовать тестированные.
Пару раз пробовал использовать компоненты на Торри, больше желания нет. Зря потраченное время.

[Nikola Zub]

В принципе вариант:
Сохранять данные во временном файле и после воспроизведения удалять.
Но это же ненормально, если можно воспроизвести из потока.