Форум: "Media";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Media";
Текущий архив: 2002.11.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.014 c