| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
media [D5, Win95/98]
Slaem © (2002-07-26 17:27:00)Есть файл .wav, как программой воспроизвести из него любой кусок?
SI-riuss (2002-07-29 02:54:00) [1]Пишу кусок для гениев:
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.
MJH (2002-07-26 19:04:00) [2]блин...TMediaplaer тотже...
ставишь позишн...и до какого-то определенного позишена воспроизводишь....элеметарно же...
| |
