Нужно реализовать постоянное проигрывание AVI файла, как это сделать??
Как закольцевать проигрывание AVI файла?
Страница: 1
Тема закрыта
Сообщений 1 страница 6 из 6
Поделиться22008-01-26 00:59:35
Привожу нужный вам КУСОК КОДА:
procedure Form1.Button1Click(Sender: TObject);
var slovo: Boolean;
begin
slovo:=false; //ну или true
while slovo=false {ну или true} do
begin
{Вызов функции проигрывания файла}
end; end;
Здесь всё просто - только в теле цикла НЕ НАДО менять значение переменной slovo и всё!
Советую вам зарегистрироваться на портале <a href=http://rusfaq.ru/regist/174411>RusFAQ.RU</a> и получать помощь по возникающим вопросам.
Поделиться32008-01-31 23:31:48
Лучше всего использовать OnNotify:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with TMediaPlayer(Sender) do
if (Position = Length) then
Play;
end;
Можно записать немного по- другому:
Procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
with MediaPlayer1 do
if NotifyValue = nvSuccessful then
begin
Notify:=true; Play;
end; end;
Второй код взят с портала RusFAQ(
Http://rusfaq.ru/regist/174411) - free regist!
Поделиться42008-02-03 13:36:23
Спасибо...
Поделиться52008-02-07 01:21:37
Всегда пожалуйста!
Поделиться62008-02-08 15:15:58
Тему закрываем.
Тема закрыта
Страница: 1