Программирование MidletPascal

stopPlayerprocedure stopPlayer;

Останавливает воспроизведение проигрываемой мелодии.

startPlayerfunction startPlayer:boolean;

Начинает проигрывать мелодию, предварительно загруженную с помощью функции openPlayer. Возвращает 'false', если плеер не может быть запущен.

begin
if not openPlayer('/explosion.mid', 'audio/midi') then  halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;
delay(5000);
end.

setPlayerCountfunction setPlayerCount(loopCount:integer):boolean;

Устанавливает количество циклов для плеера. 'loopCount' - это количество раз мелодия будет проиграна. Функцию необходимо вызывать после вызова openPlayer и до вызова startPlayer. Если 'loopCount' установлен в -1, мелодия будет проигрываться бесконечно.

Звуки и музыкаfunction openPlayer(resource:string; mimetype:string):boolean;

Открывает указанный ресурсный файл аудиоплеером. Ресурс не начинает проигрываться непосредственно после запуска функции. Функция возвращает 'false', если не удалось открыть указанный ресурс. Параметр 'mimetype' может принимать следующие значения:

Обычно устройства не поддерживают все вышеперечисленные форматы сразу.

Совместимость: музыкальные функции будут работать только на сотовых телефонах, совместимых с MIDP-2.0. Мидлеты с поддержкой звука не будут работать на телефонах с MIDP-1.0.

begin
if not openPlayer('/explosion.mid', 'audio/midi') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;
delay(5000);
end.

getPlayerDurationfunction getPlayerDuration:integer;

Возвращает общую длительность (в миллисекундах) загруженной в плеер мелодии.

Звуки и музыкаfunction openPlayer(resource:string; mimetype:string):boolean;

Открывает указанный ресурсный файл аудиоплеером. Ресурс не начинает проигрываться непосредственно после запуска функции. Функция возвращает 'false', если не удалось открыть указанный ресурс. Параметр 'mimetype' может принимать следующие значения:

Обычно устройства не поддерживают все вышеперечисленные форматы сразу.

Совместимость: музыкальные функции будут работать только на сотовых телефонах, совместимых с MIDP-2.0. Мидлеты с поддержкой звука не будут работать на телефонах с MIDP-1.0.

begin
if not openPlayer('/explosion.mid', 'audio/midi') then halt;
if not setPlayerCount(-1) then halt;
if not startPlayer then halt;
delay(5000);
end.