Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

Звук   Найти похожие ветки 

← →
batya17 ©   (2006-08-26 04:33) [0]

Как воспроизвести звук wav, mp3 без команента MediaPlayer.

---

← →
PSPF2003 ©   (2006-08-26 11:11) [1]

uses
  mmsystem;

 PlaySound("ClickSnd.wav",0,SND_ASYNC)

---

← →
DprYg ©   (2006-08-26 12:02) [2]

У меня так mp3 не играет. А вот так играет
procedure SendMCICommand(Cmd: string);
var
RetVal: Integer;
ErrMsg: array[0..254] of char;
begin
RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
if RetVal <> 0 then
begin
  mciGetErrorString(RetVal, ErrMsg, 255);  
  MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMCICommand("open waveaudio shareable");
SendMCICommand("play "D:\cinematic_1.mp3"");
SendMCICommand("close waveaudio");
end;  
А вообще посмотри MSDN. Может там что-то по этому поводу написано.

---

← →
DprYg ©   (2006-08-26 12:02) [3]

Само собой, uses MMSystem

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.036 c