[TC] компоненты delphi для воспроизведения avi
Здравствуйте, industry.
Если кому-нибудь известны делфовые компоненты с помощью которых можно проигрывать
avi файлы, кроме media player,
буду ужасно благодарен хотя бы за название.
Подписаться
Бесплатный дискуссионный лист
Подписчиков 1.804
За последние 60 дней 467 выпусков (несколько раз в день)
Сайт листа:
http://www.tiflocomp.ru
Открыт:
22-01-2004
Пре-модерация: Нет
Адрес для писем в лист: industry.comp.tiflocomp-list@subscribe.ru
Модератор
Статистика
1.804 подписчиков
-1 за неделю
-1 за неделю
Ответы:
Здравствуйте, Lisovoy.
Вы писали 29 марта 2010 г., 20:56:03:
оч грустно, потому нужно проиграть именно видео.
здравствуйте.
может можно попробовать функцию - WinExec.
она запускает внешние исполняемые файлы. попробуйте запустить местный
проигрыватель видео с путем на воспроизводимый файл.
может и получится.
здравствуйте.
как проигрывать видео я даже не интересовался.
но если вдруг вам нужно проигрывать обычные волновые звуки, то медиа плеер
это просто зло.
для этого читайте ниже:
Функция PlaySound
Эта функция может воспроизводить любые волновые звуки, а не только звуки
событий Windows. Функция API Windows, параметры которой описаны в модуле
mmsystem.
Поэтому для использования этой функции в Ваших программах, необходимо
включить в раздел uses модуль mmsystem. Функция PlaySound определена так:
function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;
Параметр pszSound является нуль терминированной строкой (последний символ
строки имеет нулевой код), он определяет воспроизводимый звук. Параметр hmod
используется
в случае, когда звук берется из ресурса, поскольку мы этого делать не будем,
то можно этот параметр задавать равным 0 или nil.
Последний параметр fdwSound является множеством, которое определяет как
будет воспроизводиться звук (режим воспроизведения). Приведу наиболее важные
значения
этого множества для воспроизведения произвольных волновых флагов.
список из 5 элементов
SND_ASYNC - Звук воспроизводится асинхронно и функция возвращается сразу
же после начала воспроизведения. Чтобы прекратить воспроизведение нужно
вызвать
функцию PlaySound с параметром pszSound, равным 0.
SND_LOOP - воспроизведение звука постоянно повторяется, одновременно надо
установить флаг SND_ASYNC.
SND_NOSTOP - Если заданный звук не может быть воспроизведен из-за
занятости ресурсов, то функция немедленно вернет false (и звук не будет
воспроизведен).
Если же данный флаг не указан, то функция попытается остановить
воспроизведение другого звука, чтобы освободить ресурсы.
SND_PURGE - Останавливает воспроизведение любых звуков, вызванных в
данной задаче.
SND_SYNC - Синхронное воспроизведение звука события. Функция PlaySound
возвращается только после окончания воспроизведения.
конец списка
Важно: флаги можно комбинировать операцией or.
Указанный параметром pszSound звук, должен подходить для установленного
драйвера устройства воспроизведения волновых файлов, а также должен
помещаться в
доступную память.
Прервать воспроизведение звука можно выполнив оператор
PlaySound(0, 0, SND_PURGE);
или путем задания нового звука.
Например, чтобы многократно и асинхронно проиграть какой-нибудь звук,
выбранный с помощью OpenDialog, можно написать такой код:
procedure TForm1.Button1Click(Sender: TObject);
var PCh: PChar;
begin
if OpenDialog1.Execute then
begin
StrPCopy(PCh,OpenDialog1.FileName);
PlaySound(Pch,0,SND_ASYNC or SND_LOOP);
end;
end;