VPF::Проигрывание файла - Форум программистов

Mew

Дата 16.10.2004, 12:49 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

Можно ли прогрывать 1 файл без остановки, то есть зацикливанием

deMike

Дата 16.10.2004, 12:54 (ссылка)

(нет голосов)

Загрузка ...

M.Shinoda

Профиль
Группа: Участник
Сообщений: 361
Регистрация: 12.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: 0

Mew Возможно, но не уверен.

Alkash

Дата 16.10.2004, 12:54 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Хм, как только закончится - запускай его снова...

--------------------

Подпись >> /dev/null

Mew

Дата 16.10.2004, 13:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

А как это сделать программно, чтобы не создавалась паузы, а было как буд-то он повторяет и повторяется, пока пользователь к примеру его не оборвет

Alex

Дата 16.10.2004, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

С помощью чего проигрываешь?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Alkash

Дата 16.10.2004, 13:29 (ссылка)

(нет голосов)

Загрузка ...

коллекционер жизни

Профиль
Группа: Участник
Сообщений: 516
Регистрация: 5.7.2004
Где: /

Репутация: нет
Всего: нет

Ну мой пропитый мозг даёт такое решение:
Проверяем длинну файла, и по таймеру в момент окончания файла запускаеим его снова(Мож вечером примерчик накидаю, щас думать в лом).

--------------------

Подпись >> /dev/null

Alex

Дата 16.10.2004, 13:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

Код

uses
    MMSystem;

playsound('C:\WINDOWS\Media\Windows XP - входящий звонок.wav', 0, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT Or SND_LOOP);

О функции почитай здесь: http://mech.math.msu.su/~vfnik/WinApi/p/playsound.html

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

DonPager

Дата 16.10.2004, 13:37 (ссылка)

(нет голосов)

Загрузка ...

Колдырь

Профиль
Группа: Участник
Сообщений: 327
Регистрация: 28.3.2003
Где: Воронеж

Репутация: нет
Всего: 2

самое просто что могу предложить :

Код

procedure TForm1.FormActivate(Sender: TObject);
begin
 MMPlay.FileName := 'Gong.wav';
 MMPlay.Open;
 MMPlay.Play;
 Tag := 0;
 while Tag <> 10 do
  begin
   MMPlay.Play;
   Application.ProcessMessages;
  end;
 close;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Tag := 10;
end;

паузы зависят от структуры проигрываемого файла...

--------------------

кодер + лодырь = колдырь

deMike

Дата 16.10.2004, 15:57 (ссылка)

(нет голосов)

Загрузка ...

M.Shinoda

Профиль
Группа: Участник
Сообщений: 361
Регистрация: 12.10.2004
Где: Санкт-Петербург

Репутация: нет
Всего: 0

DonPager А для чего, ты используешь таги?

Alex

Дата 16.10.2004, 17:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

Если вы хотите сделать через MediaPlayer то тогда так:

Код

procedure TForm1.Button3Click(Sender: TObject);
begin
  with MediaPlayer1 do begin
    FileName:= 'C:\WINDOWS\Media\Windows XP - входящий звонок.wav';
    Open;
    Play;
  end;
end;

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  with MediaPlayer1 do if NotifyValue = nvSuccessful then begin
    Notify := True;
    Play;
  end;
end;

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Mew

Дата 21.10.2004, 13:26 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

А как сделать чтобы между проигрыванием паузы не было. т.е. когда он заканчивается нет паузы, он просто мягко начинается снова без паузы

Alex

Дата 21.10.2004, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

обрезать паузу вначале и в конце файла

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Mew

Дата 22.10.2004, 06:16 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

а как понять обрезать

Alex

Дата 22.10.2004, 07:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

открыть файл в звуковом редакторе и обрезать.

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

Mew

Дата 22.10.2004, 07:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 91
Регистрация: 16.8.2004
Где: Омск

Репутация: 1
Всего: 1

А если он уже обрезан, а паузы остаются

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »