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

Вниз

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

← →
Slaem   (2002-07-26 17:27) [0]

Есть файл .wav, как программой воспроизвести из него любой кусок?

---

← →
MJH ©   (2002-07-26 19:04) [1]

блин...TMediaplaer тотже...
ставишь позишн...и до какого-то определенного позишена воспроизводишь....элеметарно же...

---

← →
SI-riuss ©   (2002-07-29 02:54) [2]

Пишу кусок для гениев:
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Position:=2000;
MediaPlayer1.Play;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if MediaPlayer1.Position>10000 then
begin
MediaPlayer1.Stop;
Timer1.Enabled:=false;
end;
end;
То биш воспроизводим файл с позиции 2000 до позиции 10000.

---

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

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

Наверх

Память: 0.46 MB
Время: 0.019 c